Cursor color

[CharlieDFW]

Cursorsize changes the size, cursortype will change to Windows style pointer. But there isn’t a cursorcolor. Is there a way to use lisp to change the cursor color?

[dexus]

Its set in OLE_COLOR, so some color conversion might be necessary.

Or you can hardcode the color by changing it in the settings and retrieving the color-code using the first code below.

 

Here is how to get the current color:

(if (setq dis (vla-get-display (vla-get-Preferences (vlax-get-acad-object))))
  (vlax-variant-value (vlax-variant-change-type (vla-get-ModelCrosshairColor dis) vlax-vbLong)) ; Current color
)

 

And this way you can change the cursor color:

(if (setq dis (vla-get-display (vla-get-Preferences (vlax-get-acad-object))))
  (vla-put-ModelCrosshairColor dis 255) ; Change to red
)

Edited 2 hours ago by dexus

[Lee Mac]

Some food for thought -

https://www.theswamp.org/index.php?topic=56816.msg605115#msg605115

 

To obtain the colour numbers, you can use my RGB<->OLE conversion functions:

https://lee-mac.com/colourconversion.html#rgbole