---

Wir haben sehr viele (M)Texte, die durch "Spezialisten" gelöscht wurden: nicht das Element wurde gelöscht, sondern nur der Inhalt - und jetzt stehen massenweise diese Zombies in der Datenbank, haben aber keinen Inhalt, sind nicht sichtbar und nicht greifbar.

Jetzt möchte ich das mit SSGET rausschiessen, bin mir aber nicht schlüssig, was alles unter "leer" zu verstehen ist:

wirklich leer: ""
Leer mit Leerstellen: " " oder "  " oder "  " oder "    " oder ....
MText-leer mit Enter: "EnterEnterEnter    Enter Enter" ..

Es gibt also manche Möglichkeiten, einen (M)Text mit nichts oder pseudo-nichts zu füllen.

Wie kann ich alle diese Unsinns-Kombinationen eindeutig erwischen?

Schönen Tag

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

0-PL.zip

teste mal dies :

Aber Achtung ! - Bereinigt nicht nur Texte ! (auch Poly-Stützpunkte..)

@CADwiesel - bitte tausche dein aktuelles gegen dieses 0-pl.lsp
bzw verändere lieber deines weil ich deinen IST-Stand nicht kenne

------------------
.Signatur hat derzeit leider Urlaub.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Hallo,

bei MTexten muss ein leerer Text nicht unbedingt wirklich leer sein. Da im Textstring auch Formatierungsinformationen gespeichert werden, kann es passieren, dass MTexte augenscheinlich leer sind. Diese Konstellation lässt sich allerdings nur mit einem Programm erzeugen.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP