((eq str '1')(vla-put-ModelCrosshairColor disp 255)) 255 = Red (setq disp (vla-get-Display (vla-get-Preferences (vlax-get-acad-object)))) (getkword '\nSelect New Cursor Color : ') I work with a cursor color of 31 and a black background, and every now and then I need to change the color of the cursor for some added clarity, hence this program to try to do it quickly. But I can't make it do something I really wish to implement.
I can enter a color number or select it at the command line. This little program to change the cursor color works perfectly and without error*, so long as I select from the list. Been looking at this too long, and it's time to request assistance.
