求一段程序能改变模型空间背景颜色

shchwy · 发表于 2019-4-3 13:02:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我经常需要把模型空间的背景颜色，在黑、白之间转换，每次都要op一下特别麻烦，求个插件能一键互转的。
谢谢啦

pxr201419 · 发表于 2019-5-1 18:32:22

(defun c:bjs (/ prefdisplay)
(vl-load-com)
(setq prefdisplay (vla-get-display (vla-get-preferences (vlax-get-acad-object)))
color (vlax-variant-value (vlax-variant-change-type(vla-get-graphicswinmodelbackgrndcolor prefdisplay)vlax-vblong)))
(vla-put-graphicswinmodelbackgrndcolor prefdisplay
(vlax-make-variant (if (= color 0)
16777215
0
) vlax-vblong
)
)
(princ)
)

pxr201419 · 发表于 2019-5-2 08:23:46

完善昨天程序：
(defun c:bjs (/ prefdisplay color)
(vl-load-com)
(setq prefdisplay (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq color (vlax-variant-value (vlax-variant-change-type(vla-get-graphicswinmodelbackgrndcolor prefdisplay)vlax-vblong)))
(vla-put-graphicswinmodelbackgrndcolor prefdisplay (vlax-make-variant (if (= color 0) 16777215 0) vlax-vblong))
(vla-Put-ModelCrosshairColor prefdisplay (vlax-make-variant (if (/= color 0) 16777215 0) vlax-vblong))
(princ)
)

shchwy · 发表于 2019-5-2 13:09:21

pxr201419 发表于 2019-5-2 08:23
完善昨天程序：
(defun c:bjs (/ prefdisplay color)
(vl-load-com)

非常感谢 3Q

kmliro_2017 · 发表于 2019-5-5 05:58:17

谢谢分享！！！！

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

[求助] 求一段程序能改变模型空间背景颜色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分