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

不一样地设计

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

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

xjshaha

1. (defun c:bj (/ DISPLAY)
   
2.   (princ "\n模型背景色黑色与灰色切换")
   
3.   (setq
   
4.     DISPLAY (vla-get-display (vla-get-preferences (vla-get-application (vlax-get-acad-object))))
   
5.   )
   
6.   (if (= (getenv "Background") "0")
   
7.     (vla-put-GraphicsWinModelBackgrndColor DISPLAY 8421504)
   
8.     (vla-put-GraphicsWinModelBackgrndColor DISPLAY 0)
   
9.   )
   
10.   (prin1)
    
11. )

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

戏男

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

cq4920

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

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

magicheno

感谢大佬分享