亮显/选中指定颜色的实体(源码)
本帖最后由 【KAIXIN】 于 2012-6-7 10:02 编辑**** Hidden Message *****
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 【KAIXIN】的微博 根据自己的习惯,修改了一下,亮显后可以编辑
(defun c:KK (/ coa co ssco i one )
(setq coa (getvar "CECOLOR"))
(initdia)
(command ".color")(setvar "cmdecho" 0)
(setq co (getvar "CECOLOR"))
(SETQ SSCO(SSGET "X" (LIST (CONS 62 (atoi co)))))
(setvar "CECOLOR" coa)
(sssetfirst nil ssco)
(setvar "cmdecho" 1) (princ))
感谢作者的分享! 感谢作者的分享! 哈哈 ,看看 高手。 要是用在选择对象的时候就好了,看下 老兄,不会连演示都不让看了吧 没看到东西,要如何回复~ 怪不得明经浏览量直线上升了,有点神秘感才好,建议金牌会员以上的都可以有这种回复才能查看的权力
k大厉害~下来看下 看看楼主的源码 可以改善颜色