有没有只显示某种颜色的lisp
 

有没有只显示某种颜色的lisp
www.dimcax.com
有没有只显示某种颜色的lisp
求助岗位高手
有朋自远方来,不亦乐乎!

在msteel 插件中有按颜色显示命令

有没有这样的lisp源程序啊

fi----设置颜色过滤类别-----加入列表-----应用
3dlove

或下载

命令名称onc*** 程序已更新
(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)
)
*********
保存为.lsp即可
3dlove

4楼的程序可用，可有效地独显非随层的实体颜色

程序已更新
3dlove

更新后的程序更好用,且不受随层的限制,学习了