Добрый день.
Имеется 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 "
Выберите текст 1: ")))
(if obj1
(progn
(setq строка1 (vlax-get-property (vlax-ename->vla-object obj1) 'Textstring))
; if
(cond
((and obj1 )
(princ "
Построение мультивыноски: укажите 1-ю и 2-ю точки.“)
(vl-cmdf “_mleader” pause pause строка1)
(vl-cmdf “_ERASE” obj1 “”)
)
) ; cond
) ; progn
(princ "
Не выбрана строка 1.”)
) ; if
(setvar “CMDECHO” 0)
(vl-cmdf “_UNDO” “_E”)
(princ)
)
