不一样地设计 发表于 2023-5-11 18:34:41

模型背景色黑色与灰色切换，对于环境变量马上生效的办法

本帖最后由 不一样地设计 于 2023-5-11 18:40 编辑


;;;模型背景色黑色与灰色切换bj                                                               
(defun c:bj()                                                                                    
(setenv "Background" (if (= (getenv "Background") "0") "14079444" "0"))            
(setvar "TILEMODE" 0);;;模型布局相互切换刷新效果                                    
(setvar "TILEMODE" 1)                                                                        
)                                                                                                 

如题，有没有其他不用重启CAD的办法，使更改的环境变量马上生效

xjshaha 发表于 2023-5-11 19:35:57

(defun c:bj (/ DISPLAY)
(princ "\n模型背景色黑色与灰色切换")
(setq
    DISPLAY (vla-get-display (vla-get-preferences (vla-get-application (vlax-get-acad-object))))
)
(if (= (getenv "Background") "0")
    (vla-put-GraphicsWinModelBackgrndColor DISPLAY 8421504)
    (vla-put-GraphicsWinModelBackgrndColor DISPLAY 0)
)
(prin1)
)

戏男 发表于 2023-6-19 15:06:25

能三种颜色转换吗？黑白灰

cq4920 发表于 2023-6-19 20:58:30

戏男 发表于 2023-6-19 15:06
能三种颜色转换吗？黑白灰

if 换成多条件判断，查询到灰色的编码，很容易

magicheno 发表于 2023-6-20 13:03:55

感谢大佬分享
页: [1]
查看完整版本: 模型背景色黑色与灰色切换，对于环境变量马上生效的办法