[求助]选择集中删除指定颜色的所有图元

sf_elite

请大家看下下面的这段LISP程序有什么问题？执行的时候老是出现选择集错误！

程序应用目的：选一图元，删除和此图元同一颜色的所有图元

(defun c:cx(/en1 en2 en3 en4)
(setq en1 (entsel))
(setq en2 (entget (car en1)))
(setq en3 (assoc 62 en2)) 
(setq en4 (cdr en3)) 
(SETQ x (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,text") (62 . en4))))
(command "erase" x "")
)

rongyifei

将(ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,text") (62 . en4)))

改为

(ssget "x" (list '(0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC,text") (cons 62 en4)))

oyxx1023

你的程序明显有问题。

首先构造选择集的时候有误。选择集列表有变量时必须用LIST。

还有text应该是TEXT.

还有要考虑颜色为随层和随块的情况。

rongyifei

是呀!当颜色为bylayer时,因为为默认的颜色,图元的数据表中会省略索引为62的子表,(assoc 62 en2))  返回nil,程序无法运行,所以你还须完善!

sf_elite

程序已搞定，谢谢二位前辈指点迷津！

liaoguangj

怎么搞定的，告诉我吧。

f5612140

oyxx1023发表于2006-11-26 13:10:00 你的程序明显有问题。 首先构造选择集的时候有误。选择集列表有变量时必须用LIST。 还有text应该是TEXT. 还...

请问text和TEXT的结果有何不同？

wzz1968

-在选择集过滤器中,除非是文字内容.其余如层名\字型是部分大小写的.