| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo |
| |
| Wir sind umgezogen! INNEO ist Teil des größten IT-Campus in Ostwürttemberg, eine Pressemitteilung
|
Autor
|
Thema: bestimmten Text löschen (897 mal gelesen)
|
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003 MS: Windows 10 64bit OSD: 20.1 M020 ModelManager: 20.1 M020 NX 1899 TC 12.3
|
erstellt am: 14. Apr. 2014 16:28 <-- editieren / zitieren --> Unities abgeben:
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 |
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 912 Registriert: 01.04.2003
|
erstellt am: 14. Apr. 2014 18:50 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
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 |
Jörg Reutter Mitglied Konstrukteur
Beiträge: 126 Registriert: 27.09.2001 Win7 64bit 8GB Ram OSM, OSD, MM 18.1
|
erstellt am: 15. Apr. 2014 07:20 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
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 |
Greskamp Mitglied Ingenieur
Beiträge: 523 Registriert: 12.03.2003
|
erstellt am: 22. Apr. 2014 08:56 <-- editieren / zitieren --> Unities abgeben:
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 |