| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
| |
| SF TECHNICAL (CREO), eine App
|
Autor
|
Thema: Makrofrage: Wie kann ich alle vorh. Texte auslesen (2134 mal gelesen)
|
Kocher Mitglied
Beiträge: 57 Registriert: 31.07.2001 ME10 10.50
|
erstellt am: 09. Apr. 2002 12:59 <-- editieren / zitieren --> Unities abgeben:
|
baumgartner Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 715 Registriert: 05.01.2001 Ing.-Büro Andreas Baumgartner bietet Lösungen rund um ME10. * ME10-Makros * ME10-Makroschulungen
|
erstellt am: 09. Apr. 2002 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
hallo, INQ_SELECTED_ELEM SELECT GLOBAL TEXTS ALL CONFIRM LOOP EXIT_IF (INQ 14 = 0) DISPLAY (INQ 902) LOOP LET zweite (INQ 903) EXIT_IF (INQ 903 = "END-OF-LIST") DISPLAY zweite END_LOOP INQ_NEXT ELEM END_LOOP Mit der zweiten LOOP erhälst Du sogar die nächsten Zeilen. Grüsse aus dem Schwarzwald : : Andreas Baumgartner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kocher Mitglied
Beiträge: 57 Registriert: 31.07.2001 ME10 10.50
|
erstellt am: 09. Apr. 2002 17:14 <-- editieren / zitieren --> Unities abgeben:
|
Kocher Mitglied
Beiträge: 57 Registriert: 31.07.2001 ME10 10.50
|
erstellt am: 10. Apr. 2002 20:22 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, aufgrund des Tipp von H.Baumgartner konnte ich die Makroprozedur erstellen. Seltsames gibt es jedoch zu beobachten: Schreibe ich alle enthaltenen Texte (nur jeweils die 1. Zeile) in eine Datei und vergleiche den Unterschied bei der ME10-Version 10.5 contra 11 dann fehlt da einiges an Text. Der fehlende Textblock ist in der Mitte der Datei. Lösche ich gar Bestandteile der Zeichnung wird anschl. mehr Text gefunden! Was macht ME10-V11 (mit akt. Patch) hier? Buggi-Version? Vielleicht weiss ja einer Rat von Euch. Gruss - Tilman Hier mein Makro (gekürzt): DEFINE KOT_WRITE_TEXT INQ_SELECTED_ELEM SELECT GLOBAL TEXTS ALL CONFIRM LET Kot_inforows (INQ 14) IF (Kot_inforows>0) DISPLAY_NO_WAIT 'Die Sache ist am kochen...' LET Kot_file_name 'C:\Temp\Z-Text.txt' OPEN_OUTFILE 1 DEL_OLD Kot_file_name WRITE_FILE 1 ('Hier der Textinhalt (jeweils 1. Zeile) der Zeichnung'+(CHR 13)) LOOP EXIT_IF (INQ 14 = 0) WRITE_FILE 1 ((INQ 902)+(CHR 13)) INQ_NEXT_ELEM END_LOOP CLOSE_FILE 1 LET Kot_Startcode (WINEXEC ('Notepad.exe "'+Kot_file_name+'"')) IF (Kot_Startcode<>NO_ERROR) BEEP EDIT_FILE Kot_file_name END_IF ELSE DISPLAY 'Kein Text auf Zeichnung vorhanden' END_IF END_DEFINE KOT_WRITE_TEXT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
baumgartner Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 715 Registriert: 05.01.2001 Ing.-Büro Andreas Baumgartner bietet Lösungen rund um ME10. * ME10-Makros * ME10-Makroschulungen
|
erstellt am: 10. Apr. 2002 23:08 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
hallo, wo soll da ein Problem sein. Ich habe Dein Makro so ähnlich an meinem ME10-PC programmiert und es läuft doch unter ME10-V10 wie auch unter V11. Ich stelle hier keine Unterschiede zwischen V10 und V11 fest. Sicherlich nicht Ursache Deines Prolbems, dennoch denke ich, Du solltest lokale Variablen definieren. Mir ist auch unklar, warum Du hinter jede Zeile ein (chr 13) gestellt hast. Ich veranstalte zwar ME10-Makrokurse und Workshops, bin aber gerne bereit auch zu lernen. define ab_txt local startcode local datei let datei ("ab_texte.txt") inq_selected_elem select global texts all confirm if (inq 14 >0) open_outfile 1 del_old datei write_file 1 ('Hier der Textinhalt (jeweils 1. Zeile) der Zeichnung') loop exit_if (inq 14 = 0 ) write_file 1 (inq 902) inq_next_elem end_loop close_file 1 let startcode (WINEXEC ('Notepad.exe "' + datei +'"')) if (startcode = ERROR) edit_file datei end_if else display "kein Text in Zeichnung vorhanden" end_if end_define Güsse aus dem Schwarzwald Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kocher Mitglied
Beiträge: 57 Registriert: 31.07.2001 ME10 10.50
|
erstellt am: 26. Apr. 2002 12:41 <-- editieren / zitieren --> Unities abgeben:
Hallo zu meinem beschriebenen Problem, daß eben nicht alle Texte gefunden werden: Wie mir von CoCreate bestätigt wurde ist es ein Fehler in der Software. Es wird zur Zeit daran gearbeitet und beim nächsten Patch behoben sein. Gruss - Tilman
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sas-m2n Mitglied Maschinenbautechniker
Beiträge: 39 Registriert: 02.03.2011
|
erstellt am: 24. Okt. 2013 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
|
friedhelm at work Mitglied Techniker Aluminium Profile
Beiträge: 912 Registriert: 01.04.2003 Creo Elements Direct /Drafting 17+20.x ui classic-Tablett + Windows, Modeling 17-20.x Lizenz auf USB-Netzwerkadapter PE-Express 8 Win 10 Enterprise 64 @work Win 10 Pro 64 @home Notepad++,IrfanView,eDrawings, ....
|
erstellt am: 24. Okt. 2013 18:35 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
Bitte sehr Code: DEFINE Ab_txt LOCAL Startcode LOCAL Datei LET Datei ('ab_texte.txt') INQ_SELECTED_ELEM SELECT GLOBAL TEXTS ALL CONFIRM IF (INQ 14>0) OPEN_OUTFILE 1 DEL_OLD Datei WRITE_FILE 1 ('Hier der Textinhalt der Zeichnung') LOOP EXIT_IF (INQ 14=0) WRITE_FILE 1 (INQ 902) LOOP EXIT_IF (INQ 903='END-OF-LIST') WRITE_FILE 1 (INQ 903) END_LOOP INQ_NEXT_ELEM END_LOOP CLOSE_FILE 1 LET Startcode (WINEXEC ('Notepad.exe "'+Datei+'"')) IF (Startcode=ERROR) EDIT_FILE Datei END_IF ELSE DISPLAY 'kein Text in Zeichnung vorhanden' END_IF END_DEFINE
------------------ Gruss Friedhelm Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sas-m2n Mitglied Maschinenbautechniker
Beiträge: 39 Registriert: 02.03.2011
|
erstellt am: 25. Okt. 2013 08:15 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
|
sas-m2n Mitglied Maschinenbautechniker
Beiträge: 39 Registriert: 02.03.2011 @Work: HP ZBook 17 G7 Creo Elements/Direct 20.1 Modelmanager 20 @home: DELL Precision M4500 PE8.0 auf Win10 pro X64
|
erstellt am: 25. Okt. 2013 09:55 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
Hallo Friedhelm, habe in meiner Zeichnung unter anderem diesen mehrzeiligen Text. - required ambient temperatures for chamber, and switch cabinet and air dryer : min.+10<Degree>C/max.+25<Degree>C - temperature conditioning of the installation/machine/control room by customer ausgeben wird aber nur dies. Hier der Textinhalt der Zeichnung - required ambient temperatures for chamber, - temperature conditioning of the END-OF-LIST Irgend eine Ahnung an was das liegt. Wir benutzen die V17 M40. Gruß Steffen 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 Creo Elements Direct /Drafting 17+20.x ui classic-Tablett + Windows, Modeling 17-20.x Lizenz auf USB-Netzwerkadapter PE-Express 8 Win 10 Enterprise 64 @work Win 10 Pro 64 @home Notepad++,IrfanView,eDrawings, ....
|
erstellt am: 25. Okt. 2013 13:06 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
Entschuldige den "Kunstfehler" Wenn man die INQ 903 für die EXIT_IF Abfrage benutzt ist die Zeile ja weg. Jetzt müsste es gehen. Code: DEFINE Ab_txt LOCAL Startcode LOCAL Datei LOCAL Str_2 LET Datei ('ab_texte.txt') INQ_SELECTED_ELEM SELECT GLOBAL TEXTS ALL CONFIRM IF (INQ 14>0) OPEN_OUTFILE 1 DEL_OLD Datei WRITE_FILE 1 ('Hier der Textinhalt der Zeichnung') LOOP EXIT_IF (INQ 14=0) WRITE_FILE 1 (INQ 902) LOOP LET Str_2 (INQ 903) EXIT_IF (Str_2 ='END-OF-LIST') WRITE_FILE 1 (Str_2) END_LOOP INQ_NEXT_ELEM END_LOOP CLOSE_FILE 1 LET Startcode (WINEXEC ('Notepad.exe "'+Datei+'"')) IF (Startcode=ERROR) EDIT_FILE Datei END_IF ELSE DISPLAY 'kein Text in Zeichnung vorhanden' END_IF END_DEFINE
------------------ Gruss Friedhelm Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sas-m2n Mitglied Maschinenbautechniker
Beiträge: 39 Registriert: 02.03.2011
|
erstellt am: 28. Okt. 2013 09:30 <-- editieren / zitieren --> Unities abgeben: Nur für Kocher
|