高手们来帮个忙吧 图层多选 筛选并过滤

pparc

帮找找下面程序的错误吧 member老不成功 什么情况？
(defun c:ceshi ()
(prompt"\n请选择要选择过滤的图层上的对象")
(setq s1 (ssget))
(setq la '())
       (setq len (sslength s1) i 0)
       (while (< i len)
              (setq temp (ssname s1 i))
              (setq templst (list (assoc 8 (entget temp))))
              (setq la (append  templst la))     
              (setq i (1+ i))
       )
(prompt"\n请选择要生成对象的范围")
(setq ss1 (ssget "x" '((-4 . "<OR") la (-4 . "<OR"))))
)

caoyin

(setq ss1 (ssget "x" '((-4 . "<OR") la (-4 . "<OR"))))
->
(setq ss1 (ssget "x" (list '(-4 . "<OR") la '(-4 . "<OR"))))
试试

pparc

回复 caoyin 的帖子

运行了一下  提示  错误: ssget 列表错误

caoyin

或者这样
(defun c:ceshi (/ S1 I TEMP LAY LST FILT SS1)
  (prompt"\n请选择要选择过滤的图层上的对象")
  (setq s1 (ssget)  I (sslength s1))
  (while (setq TEMP (ssname s1 (setq I (1- I))))
    (setq LAY (cdr (assoc 8 (entget temp))))
    (or (member LAY LST)
        (setq LST (cons LAY LST))
    )
  )
  (prompt"\n请选择要生成对象的范围")
  (setq FILT (read (vl-string-translate "( )" "\",\"" (vl-princ-to-string LST)))
        ss1  (ssget "x" (list (cons 8 FILT)))
  )
)

caoyin

pparc 发表于 2011-6-7 13:48
回复 caoyin 的帖子

运行了一下  提示  错误: ssget 列表错误

那是你的代码问题，检查一下变量la

pparc

回复 caoyin 的帖子

谢谢 找出来 应该是la有问题