[LISP程序]：晓东老师你好！！请您进来我有问题请教！

wang5748 · 发表于 2004-11-25 00:16:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

晓东老师你好！！我下面这个程序是把“选择物体的物体层置于当前层”。可是我想把他改成“把选择的物体放到当前层来”。我怎么也该不出来太深奥了。能否帮我改一下，谢谢您帮助，等待您的回复！！
(defun c:ll( / l1 l2 l3 l4 l5 )
  (setq l1 (entsel))
  (setq l2 (car l1))
  (setq l3 (entget l2))
  (setq l4 (assoc 8 l3))
  (setq l5 (cdr l4))
  (command "layer" "s" l5 "")
)

zxq0220 · 发表于 2004-11-25 10:54:05

程序更改如下：
(defun c:ll( / la ss)
(setq la (getvar "CLAYER")) ;取得当前层名
(princ "\n选择物体 :")
(setq ss (ssget))
(if (/= l1 nil) (command "change" ss "" "P" "LA" la))
(princ)
)

xxxyzxx · 发表于 2004-11-25 13:05:24

恩，楼上的兄弟，我也想学LSP，1楼的我试了一下不好使，2楼的也不能使－－程序行我也没全读懂，哪位兄弟能否借这个简单的程序作个详细的说明，谢谢；
请问1楼楼主的程序是不是中间某步有错？没读懂:(
2楼楼主的程序是不是也存在漏洞？程序不能使:(

(defun c:ll( / l1 l2 l3 l4 l5 );定义主函数ll，括号内的看不懂，应该是5个子函数吧，为什么以这种形式写？
(setq l1 (entsel))
(setq l2 (car l1))
(setq l3 (entget l2))
(setq l4 (assoc 8 l3))
(setq l5 (cdr l4));看了半天，前面应该是高阶函数，但不明白为什么要用这么复杂的方式写？
(command "layer" "s" l5 "");这个好像看懂了，应该是层命令吧？
)

lucyxia · 发表于 2004-11-25 13:10:28

最初由 zxq0220 发布
[B](if (/= l1 nil) (command "change" ss "" "P" "LA" la))
[/B]

"l1"是什么，是不是该是“ss”？我不懂编程，只是看看学学。

zxq0220 · 发表于 2004-11-25 14:36:59

最初由 lucyxia 发布
[B]

"l1"是什么，是不是该是“ss”？我不懂编程，只是看看学学。 [/B]

是写错了，程序更正如下：

(defun c:ll( / la ss)
;除号后的是程序中所用的局部变量，程序退出时清空
(setq la (getvar "CLAYER")) ;取得当前层名，存入变量la。
(princ "\n选择物体 :") ;提示选物体
(setq ss (ssget)) ;调用SSGET函数选物体，存入变量ss。
;如果选了物体，调用CHANGE命令将物体图层更改
(if (/= ss nil) (command "change" ss "" "P" "LA" la ""))
;若想将物体的颜色和线型都改为随图层，用下行替换上行。
;(if (/= ss nil) (command "change" ss "" "P" "LA" la "C" "BYLAYER" "LT" "BYLAYER" "")
(princ) ;平静地，无返回值地退出
)

xxxyzxx · 发表于 2004-11-25 15:21:21

谢谢zxq0220，太感谢了，这是我第一次完全读懂一个LSP程序，流泪中～～～
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
(getvar "CLAYER"))是取得当前层名，(ssget)是选物体，其它的函数我在哪才能查到？
1楼的程序还有些问题，不知道错误出在哪了？(assoc 8 l3)这里是不是问题的关键？突然出现了个8，觉得挺奇怪的
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
晕，终于找到1程序不好使的原因了（去论坛转了N圈，原来是我不懂函数，8没问题～）－－－原来是我自己机器里的命令重名－－－改名后发现程序只能点选物体，我想是否可以将程序改得更好些呢？－－－框选物体－－－（将l1子函数改为2楼兄弟中的ss子函数，但程序运转不正常，不清楚是何原因？）

wang5748 · 发表于 2004-11-25 18:19:00

谢谢你！！个位！！
不过你们上面给我该改的不是我要的效果！

zhuquanmao · 发表于 2004-11-25 22:12:22

更改后的程序：
[PHP];;; 将所选物体的层同当前层
(DEFUN C:OTO ()
  (princ "\n<将所选物体的层同所选物体层或当前层>")
  (setq ss (ssget))
  (if (and
ss
(> (sslength ss) 0)
   )
(progn
   (setq ent (entsel "\n选择目标实体 <Enter>选择当前层:"))
   (if ent
(setq la (cdr (assoc 8 (entget (car ent)))))
(setq la (getvar "clayer"))
   )
   (command ".chprop" ss "" "layer" la "")
)
  )
  (princ)
)

[/PHP]

xxxyzxx · 发表于 2004-11-26 11:07:03

madman的程序似乎是属性刷，但是不好使；1楼的程序只能先执行命令，后点选物体；而我实际操作已经习惯先选物体（可框选），后执行命令－－－1楼的程序不能使，该怎么改呢？－－－
系统带的命令是先选物体或先执行命令都可以的，那样的程序该如何去编呢？

zxq0220 · 发表于 2004-11-26 15:47:47

回复：xxxyzxx
1楼程序更改后可以先选择后执行命令

(defun c:ll( / l1 l2 l3 l4 l5 )
(setq l1 (ssget))
(if (/= l1 nil) (progn
(setq l2 (ssname l1 0)) ;读第一个实体名
(setq l3 (entget l2)) ;读实体的数据
(setq l4 (assoc 8 l3)) ;读取图层名的点对表
(setq l5 (cdr l4)) ;读取图层名
(command "layer" "s" l5 "") ;设定当前图层
))
(princ)
)

回复：wang5748
您想要的效果是什么样的？

wang5748 · 发表于 2004-11-27 01:01:12

最初由 zxq0220 发布
[B]回复：xxxyzxx
1楼程序更改后可以先选择后执行命令
[code]
(defun c:ll( / l1 l2 l3 l4 l5 )
(setq l1 (ssget))
(if (/= l1 nil) (progn
(setq l2 (ssname l1 0)) ;读第一个实体名
(setq l3 (entget l2)) ... [/B]

我要的效果是把不是当前层的物体放到当前层来！！

comets · 发表于 2004-11-27 01:06:13

楼主想要的命令是“把选择的物体放到当前层来”
这个LISP我也想要，请高手帮忙

zhuquanmao · 发表于 2004-11-27 17:13:52

8楼的程序完全可以满足要求了啊而且够灵活

cuiwenjun2008 · 发表于 2004-11-27 23:13:44

我想请问一下，象公布出来的源程序怎么加载呀？我总是加载lisp程序，不知怎么加源程序，想学学

wang5748 · 发表于 2004-11-28 00:26:08

最初由 madman 发布
[B]更改后的程序：
[PHP];;; 将所选物体的层同当前层
(DEFUN C:OTO ()
  (princ "\n<将所选物体的层同所选物体层或当前层>")
  (setq ss (ssget))
  (if (and
ss
(> (sslength ss) 0)
   )
(progn
... [/B]

你的程序我试过了，可以，但是有点麻烦！
你加入了一个我不需要的功能！
我其实想要的就是执行命令后只要点一下物体，此物体就在当前层就可以了，你的是要回车多次才可以！麻烦了点！
不过还是谢谢你啊！！3Q

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：晓东老师你好！！请您进来我有问题请教！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：[LISP程序]：晓东老师你好！！请您进来我有问题请教！

浏览过的版块