社区 › AutoLISP/Visual LISP 编程技术 › 亮显/选中指定颜色的实体（源码）

smartstar 发表于 2012-4-21 21:24:22

回帖看看！

fdb2007 发表于 2012-4-22 17:16:07

楼主的好东西多啊，下载使用。谢谢

skymudy 发表于 2012-4-22 22:44:55

谢谢，谢谢分享   

lizhu 发表于 2012-4-23 10:48:40

不知是什么东东

DWS16888 发表于 2012-4-23 13:27:14

撒东东
好好好好好好好喊

jxjaxa 发表于 2012-4-23 13:51:47

看看看，学习学习

caozb 发表于 2012-4-23 15:38:22

可以改善颜色

illcyt 发表于 2012-4-23 16:47:12

如何使用，下来看看

vlisp2012 发表于 2012-4-23 19:42:38

学习开心的源码。

vlisp2012 发表于 2012-4-23 19:55:26

根据自己的习惯，修改了一下，亮显后可以编辑
(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))

查看完整版本: 亮显/选中指定颜色的实体（源码）