Изменение всех текстовых стилей всех объектов к определенному текстовому стилю

elena ctenich · 14.05.2022, 09:33

Лисп не работает в AutoCad 2015. В других версиях не проверялось. В чём может быть проблема?

Код:

 ;;; (ax:ChangeTextStyleName "ISOCPEUR")
(defun ax:ChangeTextStyleName (style / sset ename i)
  (vl-load-com)
  (setq i 0)
  (setq sset (ssget "X" '((-4 . ""))))
  (if sset
    (repeat (sslength sset)
      (setq ename (ssname sset i))
      (setq i (1+ i))
      (vla-put-stylename (vlax-ename->vla-object ename) style)
    )
  )
)

Кулик Алексей aka kpblc · 14.05.2022, 09:43

1. В каком месте ошибка?
2. Что за странный режим и фильтр выбора?
3. Забыто про заблокированные слои
4. И кто мешает использовать _.checkstandards?

elena ctenich · 14.05.2022, 18:12

Может кто подскажет что-нибудь конкретное...

Сергей812 · 14.05.2022, 19:26

куда уж конкретнее.. откуда вообще этот кривой лисп то выкопали, на форуме Аутодеска аж 2009 года пост.

Хотя там тоже

Код:

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

 (setq sset (ssget "X" '((-4 . "<OR") (0 . "MTEXT") (0 . "TEXT") (-4 . "OR>"))))

можно же просто (0 . "*TEXT") в фильтре задать

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите с чертежом виснет при выделении всех объектов	sergant2la	AutoCAD	12	28.02.2016 13:28
Как получить список слоев и список текстовых стилей?	DANZZ	Программирование	12	08.02.2016 18:57
Изменить цвет всех объектов чертежа в т.ч. внутри блоков	E_note	AutoCAD	3	24.11.2015 16:22
Вопрос новичка: Изменение размеров модели во всех её копиях	miklce	AutoCAD	2	17.11.2015 09:04
как взять сразу много текстовых объектов в скобки?	master-lomaster	AutoCAD	2	08.09.2011 13:33