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

zhuquanmao

楼上请看：
[PHP] (DEFUN C:test (/ ss la)
  (setq la (getvar "clayer"))
  (setq ss (ssget))
  (if (and
        ss
        (> (sslength ss) 0)
      )
    (command ".chprop" ss "" "layer" la "")
  )
  (princ)
)[/PHP]

wang5748

最初由 madman 发布
[B]楼上请看：
[PHP] (DEFUN C:test (/ ss la)
  (setq la (getvar "clayer"))
  (setq ss (ssget))
  (if (and
        ss
        (> (sslength ss) 0)
      )
    (command ".chprop" ss "" "layer" la "")
  )
  (prin... [/B]

测试成功！非常好用，正是我要的效果！
谢谢了！！*-*9

xxxyzxx

晕，madman  的程序不是和 zxq0220的功能一样吗？wang5748为什么看到“madman”的程序才说能使？－－不解
请madman、zxq0220或其它懂的兄弟帮我详细对比讲解两者的区别，谢谢！

zxq0220

区别：（设定madman为甲，zxq0220为乙）
1、甲用判断(and ss (> (sslength ss) 0))当变量ss不为空且选择集长度大于零；
   乙用判断(/= ss nil)只判断变量ss不为空（因为函数(ssget)的返回值只能为选择集或空值）。
2、甲用命令".chprop"是更改物体特性的命令；
   乙用命令"change"是更基本的更改实体的命令，
   用该命令可以更改线段的端点、文本的内容....；用此命令只是个人习惯。
3、乙用了提示(princ "\n选择物体 :")；
   甲未用提示，只有ssget中的提示Select objects:；

xxxyzxx

谢谢老大提示，我仔细研究了一下
甲的IF判断过于复杂，层次过多（我有点晕）；
建议新手（包括我）学LISP应从简洁的判断入手。

－－－－－－－－－－－－－－－－－－－－－－
另外我想自己编个LISP，但苦于一点思路都没
向各位请教，
编双向OFFSET的LISP的思路

li809

很好用,特别是填充的时候

xxming

madman的程序：(  (if (and 　　　　　　　　　　;这边显示得多余的
    ss
    (> (sslength ss) 0)
      )
   
修改程序如下：
(defun c:t() (setq ss (ssget))
             (if ss
               (progn
                 (setq lname (getvar "clayer"))
                 (command "chprop" ss "" "layer" lname "")
               )
              )
)

li809

22楼的够简洁了