hab da auch noch was :
(defun c
ELALL-LEERTEXT( / BLOCK COUNT)
(vl-load-com)
(setq COUNT 0)
(vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
(vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT))
(if(and(member(strcase(vla-get-objectname ITEM))'("ACDBMTEXT" "ACDBTEXT"))
(=(vla-get-Textstring ITEM )"")
(not(vl-catch-all-error-p
(vl-catch-all-apply
'vla-delete
(list ITEM)
)
)
)
)
(setq COUNT(1+ COUNT))
)
)
)
(vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
(vlax-for ITEM BLOCK
(if(and(member(strcase(vla-get-objectname ITEM))'("ACDBMTEXT" "ACDBTEXT"))
(=(vl-string-trim " " (vla-get-Textstring ITEM))"")
(not(vl-catch-all-error-p
(vl-catch-all-apply
'vla-delete
(list ITEM)
)
)
)
)
(setq COUNT(1+ COUNT))
)
)
)
(vla-regen(vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
COUNT
)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP