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 51 minutes ago by dexus