zkq1212 发表于 2014-8-15 11:17:25

请问为什么会出错

(defun c:s11()
(setq en(entsel"\n选择一个参照对象:"))
(setq en1(entget(car en)))
(setq lay (cdr ( assoc 8 en1)))
(setq ss(ssget'((8 . lay))))；；这一句报错
(command "erase" SS "" ))
(princ )
)
程序是选择相同图层的对象删除

duotu007 发表于 2014-8-15 11:49:27

lay 是变量

(defun c:s11()
(setq en(entsel"\n选择一个参照对象:"))
(setq en1(entget(car en)))
(setq lay (cdr ( assoc 8 en1)))
(setq ss (ssget(list (cons 8 lay))))；；这一句报错
(command "erase" SS "" )
(princ )
)

zkq1212 发表于 2014-8-15 12:02:50

duotu007 发表于 2014-8-15 11:49 static/image/common/back.gif
lay 是变量

(defun c:s11()


请教一下应该怎么写？O(∩_∩)O谢谢

reyun 发表于 2014-8-16 11:32:00

'((8 . "图层1"));条件为指定
(list (cons 8 lay));条件为变量
页: [1]
查看完整版本: 请问为什么会出错