[Composter]

Иногда в процессе работы образуется пустой текст,в большинстве случаев это происходит когда взрываю блоки с пустыми аттрибутами.автокадовский purge это не отлавливает.вот мой выход из ситуации

Код:

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

(defun c:zod31 (/ ss1)
(princ "\nУдаление текста без содержания ")
(sssetfirst nil(setq ss1 (ssget "_X" '((0 . "TEXT,MTEXT")(1 . ", , \\~, \\~ ,\\~ ")))))
(if	ss1
	(prompt (strcat "\n*********---- Выделено "(rtos (sslength ss1)  2 0)"    текстов без содержания----*********"))
)
)


(defun c:zod31 (/ ss1)
(princ "\nУдаление текста без содержания ")
(if	(setq ss1 (ssget "_X" '((0 . "TEXT,MTEXT")(1 . ", , \\~, \\~ ,\\~ "))))
	(progn  (setq ss1(mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))))
		(mapcar '(lambda(x)(vla-erase x))ss1)
	)
)
(princ)
)

соответсвенно в 1 случае это выделение текста без содержания ,а во втором просто удаление его.

[Do$]

Сообщение от Composter автокадовский purge это не отлавливает

В AutoCAD 2010 "отлавливает"

[Composter]

ясно, я юзаю 2009 . но вроде как то на 2010 запускал,кое что и после 2010 отлавливал.

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

Форматирование многострочников не отлавливается...

[Composter]

Кулик Алексей aka kpblc,если есть идеи как отловить это,то буду признателен за помощь

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

Навскидку: CSTU - замена текстовых стилей у всех объектов на выбранный с очисткой форматирования многострочных текстов; http://forum.dwg.ru/showpost.php?p=299903&postcount=11