Leaderboard

It could be as simple as changing "all" to "ss", where ss is a selection set. I am no expert on setting the exclude objects in a selection set. try this not really tested. (setq ss (ssget "_X" '((-4 . "<NOT") (0 . "3DSOLID") (-4 . "NOT>")))) or _move;(setq ss (ssget "_X" '((-4 . "<NOT") (0 . "3DSOLID") (-4 . "NOT>"))));;0,0,0;0,0,1e99;_move;ss;;0,0,0;0,0,-1e99

Need a little more info than "gather coordinates from multiple places" how do you want to do that? and from what places? are these entity's in the drawing or txt/cvs files? like Jonathann3891 suggestion here is one lee made for polylines https://www.lee-mac.com/polyinfo.html Attach some sample drawings or files.

After updating to 2021 my trim command completely deletes a line, how do I set it to be between cutting lines as default?

The problem I had with lambda's is getting them into a new workbook when I needed them. This VBA code will load them with a click/call. just need to convert quotes to double quotes. Sub LoadLambda() ActiveWorkbook.Names.add Name:="todec", RefersToR1C1:="=LAMBDA(imperial,[to_cFactor],LET(cf,IF(ISOMITTED(to_cFactor),1,to_cFactor),si,IF(LEFT(imperial,1)=""-"",-1,1),IF(ISBLANK(imperial),""n/a"",IF(ISNUMBER(imperial),imperial*cf,LET(ft,IFERROR(ABS(VALUE(LEFT(imperial,(FIND(""'"",imperial)-1)))),0),in,TRIM(SUBSTITUTE(SUBSTITUTE(IFERROR(RIGHT(imperial,LEN(imperial)-FIND(""'"",imperial)),imperial),""-"",""""),"""""""","""")),IFERROR(si*(ft*12+VALUE(IF(ISERR(AND(FIND("" "",in),FIND(""/"",in))),IFERROR(VALUE(""0 ""&in),in),in)))*cf,""n/a""))))))" ActiveWorkbook.Names("todec").Comment = "Convert various imperial format feet-inches to decimal with optional argument convert to-factor [cFactor]" End Sub

Have a look at (setq lays (layoutlist)) there is no Model in the list created saves a few if and buts. Can use also (setvar 'ctab "Model") so no Doc required.