[求助]要设计一个背景颜色切换

20cr

在做报告中，经常要把CAD的背景颜色进行切换，一般都是在工具选项菜单这样设置，如果经常切换比较繁琐。
现在好像还没有 这样方面的程序，不知道 如何开发一个这样简单实用 一键切换背景颜色（黑色和白色最经常切换）的 程序

edata

1. ;; This lisp can change background color for 2D model space
   
2. 
   
3. (defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)
   
4.   (setq clno (getint "\n=>Input colour No!"))
   
5.   (prompt "\n,1=red,2=yellow,3=gree,4=cyan,5=blue,6=magenta,7=white"
   
6.   )
   
7.   (cond        ((= clno 1)
   
8.          (progn (setq rde 255) (setq green 0) (setq blue 0))
   
9.         )
   
10.         ((= clno 2)
    
11.          (progn (setq rde 255) (setq green 255) (setq blue 0))
    
12.         )
    
13.         ((= clno 3)
    
14.          (progn (setq rde 0) (setq green 255) (setq blue 0))
    
15.         )
    
16.         ((= clno 4)
    
17.          (progn (setq rde 0) (setq green 255) (setq blue 255))
    
18.         )
    
19.         ((= clno 5)
    
20.          (progn (setq rde 0) (setq green 0) (setq blue 255))
    
21.         )
    
22.         ((= clno 6)
    
23.          (progn (setq rde 255) (setq green 0) (setq blue 255))
    
24.         )
    
25.         ((= clno 7)
    
26.          (progn (setq rde 255) (setq green 255) (setq blue 255))
    
27.         )
    
28.         ((= clno 8)
    
29.          (progn (setq rde 128) (setq green 128) (setq blue 128))
    
30.         )
    
31.         ((= clno 9)
    
32.          (progn (setq rde 192) (setq green 192) (setq blue 192))
    
33.         )
    
34.         (t (progn (setq rde 0) (setq green 0) (setq blue 0)))
    
35.   )
    
36.   (setq
    
37.     VAR-COLOUR (vlax-make-variant
    
38.                  (+ rde (* green 256)(* blue 65536))
    
39.                  vlax-vblong
    
40.                )
    
41.     DISPLAY    (vla-get-display
    
42.                  (vla-get-preferences
    
43.                    (vla-get-application (vlax-get-acad-object))
    
44.                  )
    
45.                )
    
46.   )
    
47.   ;(vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)
    
48.   (vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
    
49. )

;; This lisp can change background color for 2D model space<br /> <br /> (defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)<br />   (setq clno (getint "\n=>Input colour No!"))<br />   (prompt "\n,1=red,2=yellow,3=gree,4=cyan,5=blue,6=magenta,7=white"<br />   )<br />   (cond        ((= clno 1)<br />          (progn (setq rde 255) (setq green 0) (setq blue 0))<br />         )<br />         ((= clno 2)<br />          (progn (setq rde 255) (setq green 255) (setq blue 0))<br />         )<br />         ((= clno 3)<br />          (progn (setq rde 0) (setq green 255) (setq blue 0))<br />         )<br />         ((= clno 4)<br />          (progn (setq rde 0) (setq green 255) (setq blue 255))<br />         )<br />         ((= clno 5)<br />          (progn (setq rde 0) (setq green 0) (setq blue 255))<br />         )<br />         ((= clno 6)<br />          (progn (setq rde 255) (setq green 0) (setq blue 255))<br />         )<br />         ((= clno 7)<br />          (progn (setq rde 255) (setq green 255) (setq blue 255))<br />         )<br />         ((= clno 8)<br />          (progn (setq rde 128) (setq green 128) (setq blue 128))<br />         )<br />         ((= clno 9)<br />          (progn (setq rde 192) (setq green 192) (setq blue 192))<br />         )<br />         (t (progn (setq rde 0) (setq green 0) (setq blue 0)))<br />   )<br />   (setq<br />     VAR-COLOUR (vlax-make-variant<br />                  (+ rde (* green 256)(* blue 65536))<br />                  vlax-vblong<br />                )<br />     DISPLAY    (vla-get-display<br />                  (vla-get-preferences<br />                    (vla-get-application (vlax-get-acad-object))<br />                  )<br />                )<br />   )<br />   ;(vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)<br />   (vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)<br /> )

zzyong00

1. Sub Example_GraphicsWinModelBackgrndColor()
   
2.     ' This example returns the current setting of
   
3.     ' GraphicsWinModelBackgrndColor. It then changes the value, and finally
   
4.     ' it resets the value back to the original setting.
   
5.    
   
6.     Dim preferences As AcadPreferences
   
7.     Dim currGraphicsWinModelBackgrndColor As OLE_COLOR
   
8.    
   
9.     Set preferences = ThisDrawing.Application.preferences
   
10.    
    
11.     ' Retrieve the current GraphicsWinModelBackgrndColor value
    
12.     currGraphicsWinModelBackgrndColor = preferences.Display.GraphicsWinModelBackgrndColor
    
13.     MsgBox "The current value for GraphicsWinModelBackgrndColor is " _
    
14.             & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor 示例"
    
15.    
    
16.     ' Change the value for GraphicsWinModelBackgrndColor
    
17.     preferences.Display.GraphicsWinModelBackgrndColor = vbBlue
    
18.     MsgBox "The new value for GraphicsWinModelBackgrndColor is " _
    
19.             & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor 示例"
    
20.    
    
21.     ' Reset GraphicsWinModelBackgrndColor to its original value
    
22.     preferences.Display.GraphicsWinModelBackgrndColor = currGraphicsWinModelBackgrndColor
    
23.     MsgBox "The GraphicsWinModelBackgrndColor value is reset to " _
    
24.             & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor 示例"
    
25. End Sub

Sub Example_GraphicsWinModelBackgrndColor()<br />     ' This example returns the current setting of<br />     ' GraphicsWinModelBackgrndColor. It then changes the value, and finally<br />     ' it resets the value back to the original setting.<br />     <br />     Dim preferences As AcadPreferences<br />     Dim currGraphicsWinModelBackgrndColor As OLE_COLOR<br />     <br />     Set preferences = ThisDrawing.Application.preferences<br />     <br />     ' Retrieve the current GraphicsWinModelBackgrndColor value<br />     currGraphicsWinModelBackgrndColor = preferences.Display.GraphicsWinModelBackgrndColor<br />     MsgBox "The current value for GraphicsWinModelBackgrndColor is " _<br />             & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor 示例"<br />     <br />     ' Change the value for GraphicsWinModelBackgrndColor<br />     preferences.Display.GraphicsWinModelBackgrndColor = vbBlue<br />     MsgBox "The new value for GraphicsWinModelBackgrndColor is " _<br />             & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor 示例"<br />     <br />     ' Reset GraphicsWinModelBackgrndColor to its original value<br />     preferences.Display.GraphicsWinModelBackgrndColor = currGraphicsWinModelBackgrndColor<br />     MsgBox "The GraphicsWinModelBackgrndColor value is reset to " _<br />             & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor 示例"<br /> End Sub

autocad自带的例子

20cr

xinxirong 发表于 2017-9-4 09:24
3年解决不了这个问题，只能说你不适合编程。要学会动用一切手段去研究，比如监视注册表，od调试。

谢谢你的建议，我是编程爱好者，不是研究者，我会一直学习的。

tianyi1230

论坛里面真有这个插件，你搜索一下背景颜色

20cr

多谢你啊 就是没有搜到哦

20cr

经过3年 这个问题终于可以 变通解决了。

思路 就是 先画一个矩形，然后矩形填充成白色，这样就是白色背景了。

谢谢论坛陪我的3年。

wangph

找一找，一个系统变量就解决了

xinxirong

3年解决不了这个问题，只能说你不适合编程。要学会动用一切手段去研究，比如监视注册表，od调试。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

20cr

edata 发表于 2017-9-4 18:22

谢谢你的代码，虽然我看不懂。能力有限。