打造一个适合自己的运行环境(系统变量设置)

lee50310

yangchao2005090 发表于 2018-7-22 09:38
请问布局背景颜色怎么改呀

2. ;;程式預設背景為黑色，每次執行程式指令:  BackGround  會依序 黑/灰/白 循環更換。
   
3. 
   
4. (if (null BackGround) (setq BackGround 1)) ;; 預設背景黑色
   
5. (defun C:BackGround (/ acadobject acadpref acaddisp)
   
6.     (setq scm (getvar "cmdecho"))
   
7.     (setvar "cmdecho" 0)
   
8.     (setq acadobject (vlax-get-acad-object))
   
9.     (setq acadpref   (vlax-get-property acadobject 'preferences))
   
10.     (setq acaddisp   (vlax-get-property acadpref 'display))
    
11.     (cond
    
12.         ((= BackGround 0) ;; 背景白色
    
13.          (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 16777215)
    
14.          (vlax-put-property acaddisp 'ModelCrosshairColor 0) ;; 設定模型空間游標顏色
    
15.          (setq BackGround 1) )
    
16.         ((= BackGround 1) ;; 背景黑色
    
17.          (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 0) ;; 設定模型空間背景顏色  
    
18.          (vlax-put-property acaddisp 'ModelCrosshairColor 16777215)
    
19.          (setq BackGround 0) )
    
20. 
    
21.    ;     ((= BackGround 2) ;; 背景灰色
    
22.    ;      (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 5987163)  
    
23.    ;      (vlax-put-property acaddisp 'ModelCrosshairColor 16777215)
    
24.    ;      (setq BackGround 0))
    
25.     )
    
26. 
    
27.     (princ "\n****** 切換 AutoCAD 背景色完成 ******")
    
28.     (setvar "cmdecho" scm)
    
29. (princ)
    
30. )
    
31. (prompt "\n****** Load << 切換 AutoCAD 背景(黑/白)色 >> Successful ******")
    
32. (prin1)
    

;;程式預設背景為黑色，每次執行程式指令:  BackGround  會依序 黑/灰/白 循環更換。<br /> <br /> (if (null BackGround) (setq BackGround 1)) ;; 預設背景黑色<br /> (defun C:BackGround (/ acadobject acadpref acaddisp)<br />     (setq scm (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (setq acadobject (vlax-get-acad-object))<br />     (setq acadpref   (vlax-get-property acadobject 'preferences))<br />     (setq acaddisp   (vlax-get-property acadpref 'display))<br />     (cond<br />         ((= BackGround 0) ;; 背景白色<br />          (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 16777215)<br />          (vlax-put-property acaddisp 'ModelCrosshairColor 0) ;; 設定模型空間游標顏色<br />          (setq BackGround 1) )<br />         ((= BackGround 1) ;; 背景黑色<br />          (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 0) ;; 設定模型空間背景顏色  <br />          (vlax-put-property acaddisp 'ModelCrosshairColor 16777215)<br />          (setq BackGround 0) )<br /> <br />    ;     ((= BackGround 2) ;; 背景灰色<br />    ;      (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 5987163)  <br />    ;      (vlax-put-property acaddisp 'ModelCrosshairColor 16777215)<br />    ;      (setq BackGround 0))<br />     )<br /> <br />     (princ "\n****** 切換 AutoCAD 背景色完成 ******")<br />     (setvar "cmdecho" scm)<br /> (princ)<br /> )<br /> (prompt "\n****** Load << 切換 AutoCAD 背景(黑/白)色 >> Successful ******")<br /> (prin1)<br />

JHX948954875

谢谢楼主分享

zhangkui9070

谢谢分享

paulpipi

很好，谢谢楼主

＿Levin

厉害，谢谢楼主分享

at1636

谢谢分享！！！！！

magicheno

感谢大佬分享~

boboxiake

hcq0594

学习了，系统变量有时候不好记住

magicheno

感谢大佬分享