0 Members and 1 Guest are viewing this topic.
I had a play, I used a Lee-mac program to work out the color code numbers. http://lee-mac.com/colourconversion.html I will have to go through again but got 40 = 49151
;; RGB -> OLE - Lee Mac - Args: r,g,b - [int] Red, Green, Blue values;; http://www.lee-mac.com/colourconversion.html#rgbole;; ex. (LM:RGB->OLE 33 40 48) returns 3156001(defun LM:RGB->OLE ( r g b )(logior (fix r) (lsh (fix g) 8) (lsh (fix b) 16)));; OLE -> RGB - Lee Mac - Args: c - [int] OLE Colour(defun LM:OLE->RGB ( c )(mapcar '(lambda ( x ) (lsh (lsh (fix c) x) -24)) '(24 16 8)));; ex. (LM:OLE->RGB 3156001) returns (33 40 48)
(vla-put-GraphicsWinModelBackgrndColor disp (LM:RGB->OLE 33 40 48)) ; Default dark gray=(LM:RGB->OLE 33 40 48)=3156001