改变模型空间、图纸空间背景色

newer

2. 
   
3. (defun SetBkColor ()
   
4.   (setq acad (vlax-get-acad-object)
   
5.     pref (vla-get-Preferences acad)
   
6.     disp (vla-get-Display pref)
   
7.     newColr (vlax-make-variant 255 19)
   
8.   );setq
   
9. 
   
10.   (if (= (getvar "tilemode") 1)
    
11.    ;;change the modelspace background color
    
12.     (progn
    
13.       (setq oldColr (vla-get-GraphicsWinModelBackgrndColor disp)
    
14.          ;;convert unsupported variant type 19 to vlax-vbLong
    
15.         oldColrLong (vlax-variant-change-type
    
16.         (vla-get-GraphicsWinModelBackgrndColor disp)
    
17.           vlax-vbLong)
    
18.       );setq
    
19. 
    
20.       (vla-put-GraphicsWinModelBackgrndColor disp newColr)
    
21.       (alert (strcat "Restore previous background color: "
    
22.          (itoa (vlax-variant-value oldColrLong))))
    
23.           ;;restore previous model background color
    
24.       (vla-put-GraphicsWinModelBackgrndColor disp oldColr)
    
25.    );progn
    
26. 
    
27.     ;;change the paperspace (layout) background color
    
28.    (progn
    
29.      (setq oldColr (vla-get-GraphicsWinLayoutBackgrndColor disp)
    
30.          ;;convert unsupported variant type 19 to vlax-vbLong
    
31.         oldColrLong (vlax-variant-change-type
    
32.         (vla-get-GraphicsWinLayoutBackgrndColor disp)
    
33.           vlax-vbLong)
    
34.      );setq
    
35.      (vla-put-GraphicsWinLayoutBackgrndColor disp newColr)
    
36.      (alert (strcat "Restore previous background color: "
    
37.          (itoa (vlax-variant-value oldColrLong))))
    
38.      
    
39.     ;;restore previous paper space background color
    
40.     (vla-put-GraphicsWinLayoutbackgrndColor disp oldColr)
    
41.    );progn
    
42. );if
    
43. )
    

<br /> (defun SetBkColor () <br />   (setq acad (vlax-get-acad-object) <br />     pref (vla-get-Preferences acad) <br />     disp (vla-get-Display pref) <br />     newColr (vlax-make-variant 255 19) <br />   );setq<br /> <br />   (if (= (getvar "tilemode") 1) <br />    ;;change the modelspace background color <br />     (progn <br />       (setq oldColr (vla-get-GraphicsWinModelBackgrndColor disp) <br />          ;;convert unsupported variant type 19 to vlax-vbLong <br />         oldColrLong (vlax-variant-change-type <br />         (vla-get-GraphicsWinModelBackgrndColor disp) <br />           vlax-vbLong) <br />       );setq<br /> <br />       (vla-put-GraphicsWinModelBackgrndColor disp newColr) <br />       (alert (strcat "Restore previous background color: " <br />          (itoa (vlax-variant-value oldColrLong)))) <br />           ;;restore previous model background color <br />       (vla-put-GraphicsWinModelBackgrndColor disp oldColr) <br />    );progn<br /> <br />     ;;change the paperspace (layout) background color <br />    (progn <br />      (setq oldColr (vla-get-GraphicsWinLayoutBackgrndColor disp) <br />          ;;convert unsupported variant type 19 to vlax-vbLong <br />         oldColrLong (vlax-variant-change-type <br />         (vla-get-GraphicsWinLayoutBackgrndColor disp) <br />           vlax-vbLong) <br />      );setq <br />      (vla-put-GraphicsWinLayoutBackgrndColor disp newColr) <br />      (alert (strcat "Restore previous background color: " <br />          (itoa (vlax-variant-value oldColrLong)))) <br />      <br />     ;;restore previous paper space background color <br />     (vla-put-GraphicsWinLayoutbackgrndColor disp oldColr) <br />    );progn <br /> );if <br /> )<br />

ysq101

背景还是黑色好点吧

Free-Lancer

这个是不是有环境变量？

/db_自贡黄明儒_

觉得不错。{:soso_e106:}