номер цвета экрана

[altver]

добрый день!

Необходимо опредилить номер цвета экрана.
Есть какая-то переменная?

[Александр Ривилис]

altver,
А читать документацию не пробовал? https://help.autodesk.com/view/ACD/2025/ENU/?guid=GUID-5ECA99D3-3864-4CEB-A7FA-73755F952825

Код - Auto/Visual Lisp [Выбрать]

1. (vl-load-com)
2. (defun c:Example_GraphicsWinModelBackgrndColor()
3.     ;; This example returns the current setting of
4.     ;; GraphicsWinModelBackgrndColor. It then changes the value, and finally
5.     ;; it resets the value back to the original setting.
6.     (setq acadObj (vlax-get-acad-object))
7.     (setq doc (vla-get-ActiveDocument acadObj))
8.     (setq preferences (vla-get-Preferences acadObj))
9.        
10.     ;; Retrieve the current GraphicsWinModelBackgrndColor value
11.     (setq currGraphicsWinModelBackgrndColor (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor (vla-get-Display preferences)) vlax-vbLong))
12.     (alert (strcat "The current value for GraphicsWinModelBackgrndColor is " (itoa (vlax-variant-value currGraphicsWinModelBackgrndColor))))
13.    
14.     ;; Change the value for GraphicsWinModelBackgrndColor
15.     (vla-put-GraphicsWinModelBackgrndColor (vla-get-Display preferences) (vlax-make-variant 127 19))
16.     (setq newValue (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor (vla-get-Display preferences)) vlax-vbLong))
17.     (alert (strcat "The new value for GraphicsWinModelBackgrndColor is " (itoa (vlax-variant-value newValue))))
18.    
19.     ;; Reset GraphicsWinModelBackgrndColor to its original value
20.     (vla-put-GraphicsWinModelBackgrndColor (vla-get-Display preferences) currGraphicsWinModelBackgrndColor)
21.     (alert (strcat "The GraphicsWinModelBackgrndColor value is reset to " (itoa (vlax-variant-value currGraphicsWinModelBackgrndColor))))
22. )

[altver]

Спасибо, Александр!
замечание принимается!