(defun note (point text)
(command "addnotelabel" point "")
(setq obj (vlax-ename->vla-object (entlast)))
(vlax-put-property obj 'LabelTextContent text)
)
(defun C:test ()
(note (getpoint "\nPick a point")(getstring "\nEnter text"))
)
(defun c:mt2ml ( / oobj nobj nstrg)
(vl-load-com)
(command ".cmleaderstyle" "L80 Leader Text Straight")
(setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
(if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
(setq nstrg (vlax-get-property oobj 'TextString))
(exit)
)
(command "_MLEADER")
(while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))
(setq nobj (vlax-ename->vla-object (entlast)))
(if (= (vlax-get-property nobj 'ObjectName) "AcDbMLeader")
(vlax-put-property nobj 'TextString nstrg)
(exit)
)
(entdel (vlax-vla-object->ename oobj))
(princ)
); defun
(setq ss (ssget (list (cons 0 "*text"))))
(if (/= ss nil)
(setq nstrg (vlax-get-property (vlax-ename->vla-object (ssname ss 0)) 'TextString))
(progn (alert "You did not pick a text element\npress ok program will exit") (exit) )
)
(setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
(if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
(setq nstrg (vlax-get-property oobj 'TextString))
(exit)
)
(setq ss (ssget (list (cons 0 "*text"))))
(if (/= ss nil)
(setq nstrg (vlax-get-property (vlax-ename->vla-object (ssname ss 0)) 'TextString))
(exit)
)