谁能修改这个程序，指定颜色图层显示，其它的不显示

zxp626

这个程序可以只显示图纸中某种颜色的图元，但是非这种颜色的图元会被删除，所以我想高手解决一下只显示颜色，而其他颜色的图元不被删除。

源码如下：
(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)
)
*********

琴剑江山_10184

我运行了这个程序，其它的颜色没有被删除，只是不显示了
你刷新后，就能全部显示了来了

maiko

(sssetfirst nil (ssget))