Well, you could just use drGetColor("display" "blue") to retrieve the data, So something like: (defun abDisplayColorToHex (colorName @optional (display "display")) (let (color) (setq color (drGetColor display colorName)) (if color (sprintf nil "0x%02x%02x%02x" (nth 2 color) (nth 3 color) (nth 4 color)) (abColorNameToHex colorName) ) ) ) Regards, Andrew.![]()
↧