VLA&VBA 设置系统背景色

1291500406

happy336 发表于 2019-10-29 22:42
cad2008可以使用，十字光标没有变，全是白色，

(defun c:bb( / bb)
(setq bb (vla-get-truecolor (vla-get-ActiveLayer(vla-get-activeDocument (vlax-get-acad-object)))))
(if (not(vl-catch-all-apply 'vla-put-ColorIndex (list bb (acad_colordlg 3))))
(vla-put-graphicswinmodelbackgrndcolor(vla-get-display(vla-get-preferences(vla-get-application (vlax-get-acad-object))))
(+ (*  (vla-get-blue bb)65536) (* (vla-get-green bb) 256)  (vla-get-red bb))))(princ))


(defun c:bb1( / bb)
(setq bb (vla-get-truecolor (vla-get-ActiveLayer(vla-get-activeDocument (vlax-get-acad-object)))))
(if (not(vl-catch-all-apply 'vla-put-ColorIndex (list bb (acad_colordlg 3))))
(vla-put-ModelCrosshairColor(vla-get-display(vla-get-preferences(vla-get-application (vlax-get-acad-object))))
(+ (* (vla-get-blue bb) 65536) (* (vla-get-green bb) 256)(* (vla-get-red bb)))))(princ))

1291500406

lisperado 发表于 2019-10-31 04:23
RGB次序好像弄反了？
你的是B-G-R?
(* (vla-get-blue bb) 65536) (* (vla-get-green bb) 256)(vla-get-r ...

设置背景的和这个不一样