Взять текст с объекта. Текст в выноску

Добрый день.

Имеется Lisp, который преобразует текст в выноску. Однако сам текст не сохраняется. Прошу помочь

(defun C:TXT-MLD2 ( / echo obj1 строка1)
(vl-load-com)
(vl-cmdf "_UNDO" "_BE")
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq obj1 (car (entsel "\nВыберите текст 1: ")))
(if obj1
(progn
(setq строка1 (vlax-get-property (vlax-ename->vla-object obj1) 'Textstring))

; if
(cond
((and obj1 )
(princ "\n Построение мультивыноски: укажите 1-ю и 2-ю точки.")
(vl-cmdf "_mleader" pause pause строка1)
(vl-cmdf "_ERASE" obj1 "")
)
) ; cond
) ; progn
(princ "\nНе выбрана строка 1.")
) ; if
(setvar "CMDECHO" 0)
(vl-cmdf "_UNDO" "_E")
(princ)
)