Topic: update ACAD registry in current session

[snownut2]

I know this is an old thread, I am looking to change model & paperspace background colors witht he same type of function, no luck...

Bruce

[Lee Mac]

I know this is an old thread, I am looking to change model & paperspace background colors witht he same type of function, no luck...

Use the ActiveX graphicswinmodelbackgrndcolor & graphicswinlayoutbackgrndcolor properties derived from the Application.Preferences.Display object, e.g.:

Code - Auto/Visual Lisp: [Select]

1. (defun c:bcolor ( / disp )
2.     (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
3.     (vla-put-graphicswinmodelbackgrndcolor  disp (LM:rgb->ole 100 0 0))
4.     (vla-put-graphicswinlayoutbackgrndcolor disp (LM:rgb->ole 0 100 0))
5.     (princ)
6. )
7.  
8. ;; RGB -> OLE  -  Lee Mac
9. ;; Args: r,g,b - [int] Red, Green, Blue values
10.  
11. (defun LM:RGB->OLE ( r g b )
12.     (+  (fix r)
13.         (lsh (fix g) 08)
14.         (lsh (fix b) 16)
15.     )
16. )
17.  
18. (vl-load-com) (princ)

RGB->OLE function from here.