[Кулик Алексей aka kpblc]

Проблема такая: получено некоторое количество файлов с жутким количеством текстовых и размерных стилей. Надо их чистить - приводить все в божеский вид. В частности, надо для многострочных и однострочных текстов назначить один текстовый стиль, для размеров - соответственно размерный.
Теперь собственно вопрос: Надо на лиспе без функций vla* vlax* vlr* и т.п. провернуть такое.
Про _checkstandards в курсе, в LT (а надо проворачивать именно там, lisp поключен, но обрезаны activex-функции) не работает.
Кстати, если выбирать тексты, то надо использовать (ssget '((0 . "MTEXT"))) и / или (ssget '((0 . "TEXT"))), а вот как быть с размерами?
Править значения, назначенные фонты и т.п. не требуется - только заменить стиль.
Заранее thnx.

[ZZZ]

Код:

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

;;;(test "TEXT" 7 "Standard")
;;;(test "MTEXT" 7 "Standard")
;;;(test "DIMENSION" 3 "Standard")
(defun test (ent_type bit new_value / ss ent)
  (setq ss (ssget "x" (list (cons 0  ent_type))))
  (while (and ss (> (sslength ss) 0))
    (setq ent (ssname ss 0))
    (ssdel ent ss)
    (entmod (subst (cons bit new_value)
		   (assoc bit (entget ent))
		   (entget ent)
		   ) ;_ subst
	    ) ;_ entmod
    (entupd ent)
    ) ;_ while
  ) ;_ defun

[Кулик Алексей aka kpblc]

> ZZZ : Нда. Некисло. А можно по шагам объяснить алгоритм?