[求助]：用lisp如何获的CAD窗口的背景颜色

taner

vla-get-graphicswinmodelbackgrndcolor

snoopychen

VLA-GET和VLA－PUT
这些函数是activex类的，必须查ACTIVEX和VBA
GraphicsWinModelBackgrndColor Property
Specifies the background color for the model space window.
See Also | Example
Signature
object.GraphicsWinModelBackgrndColor
object
PreferencesDisplay
The object or objects this property applies to.
GraphicsWinModelBackgrndColor
OLE_COLOR (Visual Basic constant); read-write
vbBlack
vbRed
vbYellow
vbGreen
vbCyan
vbBlue
vbMagenta
vbWhite
Remarks
The default color for this property is vbBlack.

以诺

感谢一楼的楼主,也感谢三楼的楼主,请问三楼的楼主能否再说的详细一点呢!
我想那样会更好!

eachy

http://www.xdcad.net/forum/showt ... d=385302#post385302
Command: (getenv "Background")
"0"

1. 
   
2. (variant-value
   
3.   (vlax-variant-change-type
   
4.     (vla-get-GraphicsWinModelBackgrndColor
   
5.       (vla-get-display
   
6.         (vla-get-preferences (vlax-get-acad-object))
   
7.       )
   
8.     )
   
9.     vlax-vbstring
   
10.   )
    
11. )

复制代码

taner

摘自明经通道

[PHP](defun c:ax (/ prefdisplay)
  (vl-load-com)
  (setq prefdisplay (vla-get-display (vla-get-preferences
                                                          (vlax-get-acad-object)
                                     )
                    )
        color (vlax-variant-value (vlax-variant-change-type
                                                            (vla-get-graphicswinmodelbackgrndcolor prefdisplay)
                                                            vlax-vblong
                                  )
              )
  )
  (vla-put-graphicswinmodelbackgrndcolor prefdisplay
                                         (vlax-make-variant (if (= color 0)
                                                              16777215
                                                              0
                                                            ) vlax-vblong
                                         )
  )
  (princ)
)[/PHP]

狂刀

修改背景：


(COMMAND "vbastmt" "ThisDrawing.Application.preferences.Display.GraphicsWinModelBackgrndColor = 56")

(VLA-EVAL (vlax-get-acad-object)"ThisDrawing.Application.preferences.Display.GraphicsWinModelBackgrndColor = 56")

lijianguang8188

我也有这个问题。我感觉通用函数很复杂，每次都不会用。哪里可以查到所有的通用函数呢？