亮显/选中指定颜色的实体（源码）

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))

账号		自动登录	找回密码
密码			注册

亮显/选中指定颜色的实体（源码）

点评

点评

点评

点评

点评

点评

点评

点评

点评

评分