![]() ((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. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |