[LISP程序]：请问以下更改对象图层的语句有什么错误？

yintao

请问以下更改对象图层的语句有什么错误？
(steq ob (entlast))
(setq old(assoc 8 ob))
(setq new(getstring “\n新的图层名：”))
(setq ob2(subst new old ob))
(entmod ob2)

lgh930

应改为
(setq ob (entlast))
(setq old (assoc 8 (entget ob)))
(setq new(getstring "\n新的图层名:"))
(setq ob2(subst (cons 8 new) old (entget ob)))
(entmod ob2)

yintao

谢谢！
我还有另外一个问题：我如何将若干绘图结果作为一个对象集，而不需每次调用(setq ob (entlast))
(setq old (assoc 8 (entget ob)))
(setq new(getstring "\n新的图层名:"))
(setq ob2(subst (cons 8 new) old (entget ob)))
(entmod ob2)
修改图层。
我现在的语句是：
(command "line" p0 "@25<90" "")
        (setq ob (entlast))
        (setq old (assoc 8 (entget ob)))
        (setq ob2(subst (cons 8 new) old (entget ob)))
        (entmod ob2)
        (command "text" p1 "3.5" "90" sm)
        (setq ob (entlast))
        (setq old (assoc 8 (entget ob)))
        (setq ob2(subst (cons 8 new) old (entget ob)))
        (entmod ob2)
        (command "text" p2 "3.5" "90" zh)
        (setq ob (entlast))
        (setq old (assoc 8 (entget ob)))
        (setq ob2(subst (cons 8 new) old (entget ob)))
        (entmod ob2)
        (if (or (= xs 1) (= xs 2)) (command "CIRCLE" p3 "1.6"))
        (if (or (= xs 3) (= xs 4)) (command "line" p7 p8 ""))
        (setq ob (entlast))
        (setq old (assoc 8 (entget ob)))
        (setq ob2(subst (cons 8 new) old (entget ob)))
        (entmod ob2)
        (if (or (= xs 3) (= xs 4)) (command "RECTANGLE" p5 p9 ""))
        (setq ob (entlast))
        (setq old (assoc 8 (entget ob)))
        (setq ob2(subst (cons 8 new) old (entget ob)))
        (entmod ob2)
显得比较繁琐，怎样简化？

aeo

开始画之前得到最后一个物体(setq endob(entlast))
画完后取endob以后的实体.(没endob就是图中全部)

象你的可以写一个子程序
(defun changlay(e newlay / en)
(setq en(entget e))
(entmod(subst(cons 8 newlay)(assoc 8 en)en) )
)
可以画完一个就(changelay (entlast) new)

(command "line" p0 "@25<90" "")
(changelay (entlast) new)
(command "text" p1 "3.5" "90" sm)
(changelay (entlast) new)
(command "text" p2 "3.5" "90" zh)
(changelay (entlast) new)
(if (or (= xs 1) (= xs 2)) (command "CIRCLE" p3 "1.6"))
(if (or (= xs 3) (= xs 4)) (command "line" p7 p8 ""))
(changelay (entlast) new)
(if (or (= xs 3) (= xs 4)) (command "RECTANGLE" p5 p9 ""))
(changelay (entlast) new)

当然一起改更好

lgh930

(setq e1 (entlast))
(command "line" p0 "@25<90" "")
((command "text" p1 "3.5" "90" sm)
...
(setq set1 (ssadd))
(while (if e1 (setq e1 (entnext e1)) (setq e1 (entnext)))
  (setq set1 (ssadd e1 set1))
)
这个SET1就是你要的对象集

lijiao

最初由 yintao 发布
[B]谢谢！
我还有另外一个问题：我如何将若干绘图结果作为一个对象集，而不需每次调用(setq ob (entlast))
(setq old (assoc 8 (entget ob)))
(setq new(getstring "\n新的图层名:"))
(setq ob2(subst (cons 8 new)... [/B]

很简单，绘图前将你想要的图层设为当前层即可，不用去转换图层。
不过建议增加一个判断，如果用户输入的图层不存在，要建立一个新的图层，或作其它处理。
供你参考。