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

Vueg
Vueg
отредактировано 20 Feb Раздел: API

Добрый день.

Имеется 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)
)

Тэги темы:

Ответы

  • MCAD
    MCAD

    Возможно, что показать пользователю примитивные базовые возможности платформы некому, но может всё же проще и быстрее будет "Взять с чертежа"?

    image.png

    https://rutube.ru/video/53532b5998406a9cc886f9b539b71375/

  • Vueg
    Vueg

    Спасибо за ответ. Но мне необходимо, чтобы исходный текст также был удален. И у меня нет выбора сВободно при addcopy в версии нанокад 23

  • MCAD
    MCAD

    чтобы исходный текст также был удален

    Я видел по коду. Но я же не настаиваю, возможно кому-то поможет именно такое решений.

    И у меня нет выбора сВободно при addcopy в версии нанокад 23

    Значит у вас уже "Выбор" и Вам просто нужно указать текст

Разделы

In this Discussion