I have written this small lips routine to replace some existing exploded circle mleaders with new proper mleaders. It works fine but what I would like to do is pick the text out of old exploded circle mleader and have inserted into the new one. If you run the attached lisp on the attached CAD file you will see what I mean. Instructions below. Can anybody help me with the?
INSTRUCTIONS:
So if you pick all the pieces of the old mleader including circle, text, line & solid for deletion. Then pick the new point for the arrowhead and then the center of the new circle from the points on the old one because they haven’t been deleted yet so I could keep the new ones in the same location, it will be replace… but your will be asked for the attribute value. I don’t want it to ask for the attribute as I want to pick it from the old one.
Code:
(defun c:c2 (/ lead)
(princ "Pick objects to delete.")
(setvar "clayer" "t25")
(setvar "cmleaderstyle" "AA IMP CIRC")
(setvar 'osmode 759)
(setq lead (ssget))
(setq pt1 (getpoint "\nSpecify leader arrowhead location: "))
(setq pt2 (getpoint "\nSpecify center of bubble location: "))
(command "erase" lead "")
(setvar 'osmode 0)
(command "mleader" pt1 pt2 "")
(setvar 'osmode 759)
(princ)
)