---

ScreenShot022.jpg

Hallo,

ich aus einer im Annotation erzeugten Abwicklung entsprechende Texte löschen. in dem Fall alle Texte die "13008" lauten.
Leider bin ich in der Makro-Sprache vom Drafting nicht so firm, aber denke das muss irgendwie
inq_selected_elem und dann irgendwelchen ing abfragen möglich sein.

Vielleicht kann mir jemand einen Tipp geben wie ich sowas angehen kann.

Vielen Dank im Voraus

------------------
Gruß Peter

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

---

Hallo Peter,
probiere das mal aus.
Funktioniert allerdings nur für einzeiligen Text.

Code:

---

DEFINE Txt_weg
  LOCAL Killtxt
  LOCAL Lesetxt
  LOCAL Zaeler
 
  LET Zaeler 0
  READ STRING 'Text eingeben der geloescht werden soll' Killtxt
  INQ_SELECTED_ELEM SELECT GLOBAL TEXTS ALL CONFIRM
  IF (INQ 14>0)
    LOOP
    EXIT_IF (INQ 14=0)
      LET Lesetxt (INQ 902)
    IF (LeseTxt = Killtxt)
    LET Zaeler (Zaeler +1)
    DELETE GLOBAL POINTER (INQ 332) END
  END_IF
  INQ_NEXT_ELEM
    END_LOOP
DISPLAY ('Text: "'+Killtxt+'" in Zeichnung '+(STR Zaeler)+' mal geloescht')
  ELSE
    DISPLAY 'Kein Text in der Zeichnung vorhanden'
  END_IF
END_DEFINE

---

------------------
Gruss Friedhelm

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

---

Guten Morgen Peter,

ich hab die Schriftgröße so klein gemacht, dass der Text fast nicht mehr zu sehen ist. Kann aber leider nicht mehr nachschauen, wo, da ich an meinem jetzigen Arbeitsplatz kein SheetMetal mehr habe.

Gruß, Jörg

------------------
Alle sagten, das geht nicht!
Dann kam einer, der wusste das nicht und machte es.

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

---

Hallo Friedhlem,

vielen Dank für dein tool, kam leider eben erst zum Ausprobieren, aber funktioniert tadellos.
Damit kann ich arbeiten.. 
Unities sind selbstverständlich abgegeben.

Danke dir.

------------------
Gruß Peter

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