---

Hallo zusammen

ist es möglich alle Texte in einer Zeichnung aufeinmal zu löschen. Gefiltert werden soll nach Textinhalt. Der Textinhalt ist immer gleich und zwar '12 Leerzeichen'.
Manchmal hab ich glück und die Texte liegen nur auf einem bestimmten Layer worauf sonst nichts liegt. Dann benutz ich den Befehl: "laydel".
Dieser Text mit den 12 Leerzeichen ist leider auch in Blöcken vorhanden.

Vielen Dank
Liebe Grüsse

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

---

Wenn Bereinigen den nicht löscht(Nullobjekte und leere Texte)
Dann Suchen
Oder Filter
Oder Sauswahl
Oder ssget lernen zu benutzen.(F1)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

In Blöcken
Nur per Programmierung oder mit etwas Glück
Ungetestet
Bereinigen
Falls das nicht geht: Suchen und ersetzen mit einem Leerzeichen, dann bereinigen
Ob das bereinigen in Blöcken geht mußt du testen, nicht in Blöcken klappts auf jeden Fall.

Ich hatte das 'in Blöcken' überlesen.

EDIT: Geht nicht [Bereinigen der Objekte in Blöcken]
Wenn es immer wieder die selben Blöcke sind, neudefinieren.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

(defun C ELNULLTEXT(/ B O A)
  (vl-load-com)
  (setq A 0)
  (vlax-for B (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for O B
      (if(and(member(strcase(vla-get-objectname O))'("ACDBMTEXT" "ACDMTEXT"))
            (=(vl-string-trim " "(vla-get-textstring O))"")
    (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-delete (list O))))
)
(setq A (1+ A))
      )      
    ) 
  ) 
  (princ (strcat "\n"(itoa A) " Texte gelöscht ...\n"))
  (princ)
)

... individuell anpassbar ....

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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 zsm

danke an Beide

wo genau muss ich "            " (12 Leerzeichen) einfügen? bzw. würde mein Text foldendermassen heissen: "abc123", wo müsste ich dass einfügen?

vielen Dank
gruss

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

---

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-AutoLISP/files/GUID-FF1DA441-C9D8-4C99-BC6E-B2A72B562389-htm.html

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

hi

(defun C ELNULLTEXT(/ B O A)
  (vl-load-com)
  (setq A 0)
  (vlax-for B (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for O B
      (if(and(member(strcase(vla-get-objectname O))'("ACDBTEXT" "ACDTEXT"))
            (vl-string-trim " \t\n" " \t\n STR \n\t ")
    (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-delete (list O))))
)
(setq A (1+ A))
      )     
    ) 
  ) 
  (princ (strcat "\n"(itoa A) " Texte gelöscht ...\n"))
  (princ)
)

Wieso werden dabei alle Texte gelöscht. Ich komm nicht ganz dahinter. In dem Fall wollte ich nur "STR"-Texte löschen lassen.

Bei den Fett Markierten habe ich das "M"text weggenommen weil ich nur Texte habe und nicht Mtexte.

vielen Dank
Gruss

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

---

...mit Anderen worten: ich blicks nich 

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

---

Weil du den Code geändert hast und nicht bloß was den Textwert angeht.

Der originale Code funktioniert GROB so:
Lösche temporär alle Leerzeichen aus Text und MText Objekten,
wenn der Textwert danach 0 Zeichen lang ist, dann lösche das Objekt.

Du hast den Link zu einem Tutorial, dort gibt dann noch eins zwei weitere,
arbeite diese Schritt für Schritt durch, teste alles was dort geschrieben steht selbst, rückwärts und vorwärts bis verstanden ist.

Das dauert ein paar Wochen und Monate, aber die Basics sitzen dann soweit das du Code lesen und verstehen kannst, demnach einschätzen und verändern.

Erst dann würde ich dir raten mit eigenen oder auch fremden Codeschnipseln an Produktivdaten zu gehen.

Im besten Fall, wie aktuell, merkt man das was schief läuft, aber nicht immer.

Teste mit dem Einzeiler aus der Hilfe, mit eigenen Werten.
Direkt in der Befehlszeile kannst du die FunktionSweise von der Lispfunktion testen, völlig gefahrlos dazu.

Aber "aktuell" bringt dir das wohl noch nichts.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

(defun C:REMOVENULLTEXT(/ B O A TEXTINHALT)
  (vl-load-com)
  (setq TEXTINHALT "ABC");hier haargenau den Text eingeben!
  (setq A 0)
  (vlax-for B (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for O B
      (if(and(member(strcase(vla-get-objectname O))'("ACDBTEXT" "ACDBMTEXT"))
             (=(vla-get-textstring O)TEXTINHALT)
       (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-delete (list O))))
)
(setq A (1+ A))
      )     
    ) 
  ) 
  (princ (strcat "\n"(itoa A) " Texte gelöscht ...\n"))
  (princ)
)

ansonsten Siehe Cadffm : Lernen, Lernen nochmals lernen  

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

hi, ich schon wieder

(defun C  ELNULLTEXT(/ B O A TEXTINHALT)
  (vl-load-com)
  (setq TEXTINHALT "            ")
  (setq A 0)
  (vlax-for B (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for O B
      (if(and(member(strcase(vla-get-objectname O))'("ACDBTEXT" "ACDBMTEXT"))
            (=(vla-get-textstring O))TEXTINHALT)
      (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-delete (list O))))
)
(setq A (1+ A))
      )     
    ) 
  ) 
  (princ (strcat "\n"(itoa A) " Texte gelöscht ...\n"))
  (princ)
)

Appload:
Command: ; error: bad argument type: fixnump: nil

Kommando Ausführen:
Command: DELNULLTEXT nil
(alle Texte werden gelöscht)

Warum?

[Diese Nachricht wurde von fmfm am 25. Jan. 2017 editiert.]

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

---

Da kannst du nichts dafür, aber schon beim laden hast du Fehlermeldungen bekommen, dann den Code ausführen?
No Risk No Fun?

Der Code wurde nun angepasst von CADmium, kopiere den noch einmal JETZT neu.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Jawohl es funktioniert.

Danke
Eure Skills sind einfach Weltklasse. Will auch mal da sein wo ihr jetzt seid.

Herzlichen Dank
Gruss

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