LISP to change crosshair Tint for X,Y,Z

[D_Love]

Does anyone know how to use LISP to toggle this checkbox? (I'm using Civil3D if it matters)

Options->Display->Colors->[Context]->Crosshairs->Tint for X,Y,Z

The two specific contexts I care about are 2D model space and Sheet/Layout.

I've checked system variables, environment variables, object model, forums, etc and can't find it. Any help would be greatly appreciated.

[pendean]

---

@D_Love wrote:

..The two specific contexts I care about are 2D model space and Sheet/Layout.

---

May I confirm, you only want the ability to toggle x,y,z tint on and off in each tab/space, correct? AKA sometimes on sometimes off, with a manual trigger controlled by you

[D_Love]

Yes, that is the box I am wanting to change using LISP.

I may have used the word toggle wrong. Our company standard is to have it on all the time. I'm making a lisp routine that sets all company visual display standards that will be ideally only be run once when a new version of Civil3D is installed.

[ВeekeeCZ]

Try Registry, under profiles.

Computer\HKEY_USERS\***\SOFTWARE\Autodesk\AutoCAD\R24.1\ACAD-5100:409\Profiles\***\Drawing Window\Model Xhair use tint

[paullimapa · Accepted solution]

from @ВeekeeCZ hint, this code should work:

(setenv "Model Xhair use tint" "1")

[D_Love]

Thanks. That is exactly what I was looking for. I also added the following line to apply the tint to layout tabs as well.

(setenv "Model Xhair use tint" "1") ;Tint croshairs on model tab
(setenv "Layout Xhair use tint" "1") ;Tint crosshairs on layout tabs