Leaderboard

Yes it does! Thanks for your help! Updated lisp: (defun c:wow ( / lst obj x str) (setq lst '()) (while (setq ent (nentsel "\nPick a attribute Enter to stop ")) (setq obj (vlax-ename->vla-object (car ent))) (setq lst (cons (vlax-invoke-method (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))) 'GetObjectIdString obj :vlax-false) lst )) ) (setq lst (reverse lst)) (setq x -1 ) (setq str (strcat "%<\\AcObjProp Object(%<\\_ObjId " (nth (setq x (1+ x)) lst) ">%).Textstring>%")) (if (> (length lst) 1) (repeat (- (length lst) 1) (setq str (strcat str "," "%<\\AcObjProp Object(%<\\_ObjId " (nth (setq x (1+ x)) lst) ">%).Textstring>%")) ) ) (setq obj (vlax-ename->vla-object (car (entsel "\nPick dimension ")))) (vlax-put obj 'textoverride str) (command "regen") (princ) ) (c:wow)

you could also search this forum for 'outline' , I think this subject has been posted before. Else you could also try outline from master Lee Sometimes routine is not perfect and you still have to manually delete some leftovers but you decide if near perfect is good enough.

https://lee-mac.com/ssboundingbox.html Will do a rectangular box, might be able to be modified to get the shape?

Both code above amended seems to work now.

Welcome to CadTutor! Maybe add fuzz factor to equal function or round off numbers. What you see is not always what you get. Autocad may show so many digits (for efficiency purposes / smaller files) , under the hood it probably uses more for calculations. Its like PI , you learn its 3.14 but you know the list goes on. So use something like (equal min1y -max2y 0.0001) or whatever fuzz makes you happy.

You're a lifesaver! Thank you so much for creating this. It's been a long time coming. Hit me up if you're ever in Thailand, I owe you a coffee. I'm sure this will be a big help to many.