---

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

---

hi Ickelheimer
am besten einmal ein trace mitlaufen lassen und ins forum stellen. so kann besser debugt werden.

gruss andré

------------------
awi
André Weidmann

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

---

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

---

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

---

Hallo Hannes,

habe es mit "plot_start" versuch. Leider kein Erfolg. Auch ist in ERROR_STR keine Fehlermeldung enthalten.

Gruss
Andreas

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

---

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

---

Genau das ist leider mein Problem: Auch ohne TRAP_ERROR wird kein Fehler ausgelöst.

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

---

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

---

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

---

was steht denn im plot_plot drin.
mit >> edit_macro plot_plot

------------------
awi
André Weidmann

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

---

plot_plot ist nicht definiert!

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

---

Zitat:

---

Original erstellt von A. Ickelheimer:
plot_plot ist nicht definiert!

---

Ja! Genau das ist das Problem! Sag ich doch

Hannes

(sorry - bin erst am Montag wieder hier)

------------------
ich bin stolz, zussara zu sein.

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

---

Ja - aber mit plot_start funktioniert es ja auch nicht!

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

---

und wenn du die macros plot_plot etc. von der 11.x version nimmst ? ev. klappt es dann.

gruss andré

------------------
awi
André Weidmann

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

---

Habe leider keine 10.5 mehr zur Verfügung,
aber schau doch mal, ob das Makro PLOT_DO
vorhanden ist, wenn ja, ersetze Plot_start durch plot_do

------------------
kjw

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

---

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