Leaderboard

@WimIs asking if his AutoCAD 2020 which is currently running on Windows 10 will work without problems on the new Windows 11. The answer is 'try it and see' AutoCAD 2020 was not designed to work with Windows 11 so there are no guarantees. No older software could possibly be developed with the built in ability to forsee changes within a newer OS. It is going to be down to the brave to take the chance and see if anything breaks or just behaves badly. So give it a go and let us know if you have problems

Rather than using paste why not use Paste as Block Ctrl+Shift+V? I'd use my Paste as Group macro: ^C^C_pasteblock;\(setq LstBlk(vla-get-Name (vlax-ename->vla-object (entlast))));_explode;_last;_-group;_create;*;;_previous;;(command "-purge" "B" LstBlk "N") (setq LstBlk nil)

For Bsmiths you need to add the attributes to the visibilty state for the horn, that way makes it way easier to get the Draw. You can using lisp to pop the visibilty states when inserting the block rather than having to click on the arrow to choose, it uses Lee-mac dynamic block lisp to read the states, then populate the Multi radio. If you edit the block can provide for you.

I just replace all Initget now with the multi radio just feel easier to pick off screen for user input. No need for code to exist in your code. As the buttons are only choice can not enter anything else. (if (not AH:Butts)(load "Multi Radio buttons.lsp")) (if (= but nil)(setq but 1)) (setq mywiresize (atof (ah:butts but "V" '("Enter Wire Gauge" " 12" " 14" " 16" " 18" " 22" )))) (setq but 1) ; needed if calling multi radio again later in program can set to next desired button number (setq Nextdevice (ah:butts but "h" '("Select another device" "YES" "NO"))) (setq but 1) Did find a mistake in code for horizontal as per yes no so change multi radio buttons for horizontal. Was missing check width of heading. (if (= (strcase verhor) "V") (progn (write-line " : boxed_radio_column {" fo) (write-line (strcat " width = " (rtos (+ (strlen (nth 0 butlst)) 10) 2 0) " ;") fo) ; increase 10 if label does not appear ) (progn (write-line " : boxed_radio_row {" fo) (write-line (strcat " width = " (rtos (+ (strlen (nth 0 butlst)) 10) 2 0) " ;") fo) ; increase 10 if label does not appear ) )