[МишаИнженер]

Помогите найти код Lisp для установки активного стиля текста
Мой код не работает, системной переменной STYLE нет:

Код:

[Выделить все]

 (setvar "STYLE" NameStyle)

Нашел системную переменную:

Код:

[Выделить все]

 (setvar "TEXTSTYLE" NameStyle)

(В моем справочнике, на который я надеялся эту переменную я не нашел, поэтому и создал эту тему, извините)

[Ingpro]

Есть код автор 1958

Код:

[Выделить все]

 ;;;установить текущим стиль текста, кликнув по нужному тексту на чертеже
;;; http://geodesist.ru/members/1958.30261/
;;; 23 июня 2022г.
(defun c:ct (/)
 (setvar "TEXTSTYLE"
         (cdr (assoc 7 (entget (car (entsel "Укажите текст с нужным стилем")))))
 )
)
 ;|«Visual LISP© Format Options»
(100 1 2 2 nil " " 80 60 0 0 0 nil nil nil T)
;*** НЕ добавляйте текст под комментариями! ***|;

Есть ещё такой вариант

Код:

[Выделить все]

 (defun C:chachacha ( / )
(vl-load-com)
(vla-put-activedimstyle
  (vla-get-activedocument (vlax-get-acad-object))
  (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))
            (cdr (assoc 3 (entget (car (entsel)))))
  ) ;_ end of vla-item
) ;_ end of vla-put-ActiveDimStyle
);_ end of defun