[Yuzer]

Здравствуйте.
Пытаюсь отловить текстовый стиль, скопированный из другого чертежа, и не могу найти ни в блоках, тексте - нигде.
Можно ли с помощью лиспа получить список текстовыйх стилей и заменить скопированные на нужные мне?

[VVA]

Код:

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

;;;================================================================================
;;;Written By Michael Puckett. 
;;;Список элементов символьных таблиц АвтоКАДа 
;;; - s- имя таблицы
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER"))
;;;(setq all_layers (tablelist "LAYER"))
;;;
;;;AutoLisp should return something like this :
;;;Start Coding Here 

    (defun tablelist (s / d r)
      (while (setq d (tblnext s (null d)))
        (setq r (cons (cdr (assoc 2 d)) r))
      ) ;_while
    )  ;_defun
;;;End Coding Here	

(foreach style (tablelist "STYLE")
  (terpri)
  (princ style)
  )

И

Код:

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

(vl-load-com)
(vlax-for styleObj (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object)))
  (terpri)
  (princ (vla-get-Name styleObj))
  )

[Лиспер]

Ничего не понял из вопроса. Если имена копируемых стилей совпадают с уже имеющимися, то просто будет браться описание имеющихся.

[Yuzer]

Сообщение от Лиспер Ничего не понял из вопроса. Если имена копируемых стилей совпадают с уже имеющимися, то просто будет браться описание имеющихся.

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

Лисп подгрузил, список текстовых стилей получил, а как дальше?

[Yuzer]

VVA, не могли бы Вы популярно (как для юзера) пояснить по какому принципу (и как?) работает лисп.
Чет у меня не получается...

[VVA]

Yuzer, Какой лисп и чего не получается

[Yuzer]

VVA, я загружаю лисп, а что делать дальше - ума не приложу.
Лисп, который в посте 2 (первый).

[VVA]

Там просто пример, который печатает на экран перечень стилей. Это не подойдет? LISP. Замена текстового стиля

[Yuzer]

Да. Это оно! Спасибо!