iamhuangjinming 发表于 2016-10-20 07:46:20

用lisp把cad光标颜色改为9号色可行？

工作常需要光标颜色改为9号，总是去调很麻烦～

669423907 发表于 2016-10-20 08:28:18

;光标颜色:58
(vl-load-com);(getenv "XhairPickboxEtc");查看光标颜色
(setq acadPrefDisplay (vla-get-display
(vla-get-preferences (vlax-get-acad-object)) ) )
(vla-put-modelcrosshaircolor acadPrefDisplay4161407);58=19532;57=4161407
我也不知道这颜色号是怎么换算的，9=12632256

Andyhon 发表于 2016-10-20 11:05:11

You might check here
http://www.lee-mac.com/colourconversion.html

iamhuangjinming 发表于 2016-10-20 16:35:44

669423907 发表于 2016-10-20 08:28
;光标颜色:58
(vl-load-com);(getenv "XhairPickboxEtc");查看光标颜色
(setq acadPrefDisplay (vla-get- ...

好诡异的编码

iamhuangjinming 发表于 2016-10-20 20:06:32

669423907 发表于 2016-10-20 08:28
;光标颜色:58
(vl-load-com);(getenv "XhairPickboxEtc");查看光标颜色
(setq acadPrefDisplay (vla-get- ...

百度了一下，是十进制的编码。。 谢谢啦

214063858 发表于 2016-10-21 11:15:17

学习了
页: [1]
查看完整版本: 用lisp把cad光标颜色改为9号色可行？