谁能修改这个程序，指定颜色图层显示，其它的不显示
这个程序可以只显示图纸中某种颜色的图元，但是非这种颜色的图元会被删除，所以我想高手解决一下只显示颜色，而其他颜色的图元不被删除。源码如下：
(defun c:onc (/ mm enn lst ss1 ss2 i p)
(setvar "cmdecho" 1)
(setq enn (entget (car (entsel))))
(setq mm (assoc 62 enn))
(setq lst (list mm))
(setq ss1 (ssget "X" lst))
(setq ss2 (ssget "x"))
(setq i 0)
(repeat (sslength ss1)
(redraw (ssname ss1 i) 3)
(setq i (1+ i))
)
(setq i 0)
(repeat (sslength ss1)
(setq p (ssname ss1 i))
(ssdel p ss2)
(setq i (1+ i))
)
(setq i 0)
(repeat (sslength ss2)
(redraw (ssname ss2 i) 2)
(setq i (1+ i))
)
(princ)
)
*********
我运行了这个程序，其它的颜色没有被删除，只是不显示了
你刷新后，就能全部显示了来了 (sssetfirst nil (ssget))
页:
[1]