| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo |
Autor
|
Thema: HPGL-Plot-Macro unter ME10 10.50 (1809 mal gelesen)
|
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 12:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich verwende das folgende Macro unter ME10 11.6, 12 und 13 (Windows) um HPGL2-Dateien zu erzeugen. Leider funktioniert es nicht unter 10.5. Es wird keine Fehlermeldung ausgegeben - alles sieht soweit ok aus - nur die Datei fehlt. Weiss jemand eine Lösung? Makro: ------ DEFINE plot11
LOCAL I LOCAL DwgPoint_ll LOCAL DwgPoint_ur LOCAL DwgScale LOCAL DwgWidth LOCAL DwgHeight INQ_ENV 7 LET DwgPoint_ll (INQ 101) LET DwgPoint_ur (INQ 102) INQ_ENV 6 LET DwgScale (INQ 4) LET DwgWidth ((X_OF (DwgPoint_ur-DwgPoint_ll))*DwgScale) LET DwgHeight ((Y_OF (DwgPoint_ur-DwgPoint_ll))*DwgScale) PLOTTER_TYPE ADD HPGL2 'PLM_PLOTTER' PLOTTER_TYPE 'PLM_PLOTTER' Set_sys_plot_rot 0 Set_sys_plot_center ON Set_sys_plot_plotscale 1 Set_sys_plot_source ALL Set_sys_plot_as_displayed 0 Plot_norm_video LET DwgWidth (DwgWidth + 12) LET DwgHeight (DwgHeight + 12) IF ((DwgWidth > 1189) OR (DwgHeight > 1189)) IF (DwgWidth > DwgHeight) LET DwgWidth 1189 LET DwgHeight 841 ELSE LET DwgWidth 841 LET DwgHeight 1189 END_IF Set_sys_plot_plotscale 0 END_IF PLOT_FORMAT DwgWidth DwgHeight LET Sys_plot_filename_prefix 'c:\xxx.plt' TRAP_ERROR Plot_plot IF (CHECK_ERROR) DISPLAY_NO_WAIT(ERROR_STR) END_IF END_DEFINE plotdefs: --------- 'A0' 'PLM_PLOTTER' 0 0 1194 846 'mono,rgb3,rgb24' '150,300' '150,300' 'me10' 'mode2' 'A1' 'PLM_PLOTTER' 0 0 846 599 'mono,rgb3,rgb24' '150,300' '150,300' 'me10' 'mode2' 'A2' 'PLM_PLOTTER' 0 0 599 425 'mono,rgb3,rgb24' '150,300' '150,300' 'me10' 'mode2' 'A3' 'PLM_PLOTTER' 0 0 425 302 'mono,rgb3,rgb24' '150,300' '150,300' 'me10' 'mode2' 'A4' 'PLM_PLOTTER' 0 0 302 215 'mono,rgb3,rgb24' '150,300' '150,300' 'me10' 'mode2'
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
awi Mitglied Programmierer
Beiträge: 275 Registriert: 11.11.2001 awinformatik - individuallösungen rund um me10. - pc-steuerungen.
|
erstellt am: 20. Okt. 2005 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
|
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 13:42 <-- editieren / zitieren --> Unities abgeben:
hier die Trace-Ausgabe: Plot11a INQ_ENV 7 LET Dwgpoint_ll ( INQ 101 ) -99.6673245614039,-133.439912280702 LET Dwgpoint_ur ( INQ 102 ) 320.332675438596,163.560087719298 INQ_ENV 6 LET Dwgscale ( INQ 4 ) 1 LET Dwgwidth ( ( X_OF ( Dwgpoint_ur 320.332675438596,163.560087719298 - Dwgpoint_ll -99.6673245614039,-133.439912280702 ) ) * Dwgscale 1 ) 420 LET Dwgheight ( ( Y_OF ( Dwgpoint_ur 320.332675438596,163.560087719298 - Dwgpoint_ll -99.6673245614039,-133.439912280702 ) ) * Dwgscale 1 ) 297 PLOTTER_TYPE ADD HPGL2 'PLM_PLOTTER' PLOTTER_TYPE 'PLM_PLOTTER' Set_sys_plot_rot 0 LET Sys_plot_rot Angle_radian 0 Set_sys_plot_center ON LET Sys_plot_center On_off ON PLOT_CENTER Sys_plot_center ON Set_sys_plot_plotscale 1 LET Sys_plot_plotscale Scale 1 IF ( Sys_plot_plotscale 1 ) 1 PLOT_SCALE Sys_plot_plotscale 1 ELSE Set_sys_plot_source ALL LET Sys_plot_source Source ALL Set_sys_plot_as_displayed 0 LET Sys_plot_as_displayed True_false 0 Plot_norm_video LET Plot_pix_video_option Plot_pix_norm_video_option 0 LET Plot_pix_reverse_video_option 0 LET Dwgwidth ( Dwgwidth 420 + 12 ) 432 LET Dwgheight ( Dwgheight 297 + 12 ) 309 IF ( ( Dwgwidth 432 > 1189 ) OR ( Dwgheight 309 > 1189 ) ) 0 PLOT_FORMAT Dwgwidth 432 Dwgheight 309 LET Sys_plot_filename_prefix 'c:\xxx.plt' TRAP_ERROR Plot_plot TRACE Gruss Andreas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 20. Okt. 2005 14:16 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
Zitat: Original erstellt von A. Ickelheimer: hier die Trace-Ausgabe: ... LET Sys_plot_filename_prefix 'c:\xxx.plt' TRAP_ERROR Plot_plot TRACE Gruss Andreas
In ME10 10.50 gibts das Makro "Plot_plot" noch nicht - versuchs mal mit "Plot_start" Der Fehler wird zwar mit TRAP_ERROR abgefangen, das Makro "Plot11" bricht aber trotzdem ab. Gib mal ein: DISPLAY (ERROR_STR) dann sieht man die Fehlermeldung. Gruß aus Österreich, Hannes ------------------ ich bin stolz, zussara zu sein. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 14:40 <-- editieren / zitieren --> Unities abgeben:
|
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 20. Okt. 2005 14:51 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
Zitat: Original erstellt von A. Ickelheimer: Hallo Hannes,habe es mit "plot_start" versuch. Leider kein Erfolg. Auch ist in ERROR_STR keine Fehlermeldung enthalten. Gruss Andreas
schmeiß mal das TRAP_ERROR raus - dann wird die Fehlermeldung angezeigt ------------------ ich bin stolz, zussara zu sein. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 14:54 <-- editieren / zitieren --> Unities abgeben:
|
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 20. Okt. 2005 14:56 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
Zitat: Original erstellt von A. Ickelheimer: Genau das ist leider mein Problem: Auch ohne TRAP_ERROR wird kein Fehler ausgelöst.
Dann ist das TRAP_ERROR vom letzzten Durchlauf noch aktiv Gib in der Kommandozeile DISPALY (CHECK_ERROR) ein & versuchs nochmal - ohne TRAP_ERROR
------------------ ich bin stolz, zussara zu sein. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 15:02 <-- editieren / zitieren --> Unities abgeben:
DISPLAY (CHECK_ERROR) liefert 0! Inzwischen habe ich ME10 10.50 neu installiert. Dieses Plot-Makro ist das einzigste, das zusätzlich geladen wird. Auch nach einem ME10-Neustart wird kein Fehler ausgegeben (ohne TRAP_ERROR) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
awi Mitglied Programmierer
Beiträge: 275 Registriert: 11.11.2001 awinformatik - individuallösungen rund um me10. - pc-steuerungen.
|
erstellt am: 20. Okt. 2005 17:04 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
|
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 17:07 <-- editieren / zitieren --> Unities abgeben:
|
H.annes Mitglied CAD-Pfriemler
Beiträge: 482 Registriert: 02.07.2001 ME10 8.7 - PTC DirectDrafting 19.00; OSM 15.xx - PTC DM 19.xx
|
erstellt am: 20. Okt. 2005 17:16 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
|
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 20. Okt. 2005 17:20 <-- editieren / zitieren --> Unities abgeben:
|
awi Mitglied Programmierer
Beiträge: 275 Registriert: 11.11.2001 awinformatik - individuallösungen rund um me10. - pc-steuerungen.
|
erstellt am: 20. Okt. 2005 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
|
karl-josef_wernet Mitglied SysAdmin CAD-ME
Beiträge: 979 Registriert: 27.11.2000 PTC-Direct-Modeling/Drafting 19.0 Classic/Tablett DELL T5820, Precision 7760 Workmanager/Model-/Drawing-Manager WIN10
|
erstellt am: 20. Okt. 2005 20:29 <-- editieren / zitieren --> Unities abgeben: Nur für A. Ickelheimer
|
| Konstrukteur Maschinenbau und Anlagenbau (m/w/d) | Technologischer Fortschritt gelingt nur, wenn Visionen zur Realität werden. Dazu bringen wir bei FERCHAU als eine der führenden europäischen Plattformen für Technologie-Dienstleistungen die smartesten und innovativsten Köpfe mit Unternehmen verschiedenster Branchen zusammen. Wir suchen dich: als ambitionierte:n Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren ... | Anzeige ansehen | Konstruktion, Visualisierung |
|
A. Ickelheimer Mitglied
Beiträge: 8 Registriert: 20.10.2005
|
erstellt am: 24. Okt. 2005 10:36 <-- editieren / zitieren --> Unities abgeben:
Leider auch mit plot_do kein Erfolg. Wenn ich ME10 10.5 installiere sind nur zwei Plotter eingerichtet: die Zwischenablage und der Windows-Druckmanager. Müssen evtl. noch HPGL-fähige Drucker in ME10 irgendwie eingerichtet werden um HPGLs erstellen zu können? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |