请问为什么会出错

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

(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

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

duotu007 发表于 2014-8-15 11:49
lay 是变量

(defun c:s11()

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

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

'((8 . "图层1"));条件为指定
(list (cons 8 lay));条件为变量

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

[提问] 请问为什么会出错

点评

点评