---

menc_macros.txt

Wir haben ein makro das uns die zeichnung in punkte umwandelt und dann zu unserer nc maschine einliest.

Bekomme seit neuesten immer diesen fehler:

***Makro Ts_Me10_version ist nicht definiert

Ist dieses makro nich mit Me10.5 kompatible?
Was müsste ich ändern das es wieder funktioniert - leider hab ich keinen plan von makro-programmierung  

Hab das makro auch angehängt ald txt datei.

DEFINE Ts_menc_menu

IF (I_port)
  Check_i_port
END_IF

IF (NOT I_port)
  CURRENT_MENU 'Ts_menc_hauptmenu' 
  {Scr_men_layout}
  T_clear_menu

  IF (Ts_me10_version >= 5.10)
      Menu_control_icons
  END_IF

  MENU Ts_menu_color_1 Ts_kopf_zeile_mittig 'ME-NC 1.0' 'Ts_hauptauswahl'
                                                                  1 Ts_kopf_feld
  MENU Ts_menu_color_3 'KENNUNG'    'Ts_menc_label_on LINE SOLID END LABEL' 3 1
  MENU Ts_menu_color_4 'Setzen'    'Ts_menc_label_on LINE SOLID END LABEL' 3 2
  MENU Ts_menu_color_4 'Zeigen Ein' 'Ts_menc_label_on'                      4 1
  MENU Ts_menu_color_4 'LÎschen'    'DELETE_LABEL'                        4 2
  MENU Ts_menu_color_4 'Zeigen Aus' 'Ts_menc_label_off'                    5 1
  MENU Ts_menu_color_3 'SPRACHE'    'Ts_menc_aus "APT"'                    7 1
  MENU Ts_menu_color_4 'APT'        'Ts_menc_aus "APT"'                    7 2
  MENU Ts_menu_color_4 'APT'        'Ts_menc_aus "APT"'                    7 2
  MENU Ts_menu_color_4 'COMPACT II' 'Ts_menc_aus "COMPACT II"'              8 1
ELSE
  BEEP
END_IF

END_DEFINE

{-----------------------------------------------------------------------------}
DEFINE Ts_menc_label_on
  SHOW DIMENSIONS OFF
  SHOW GLOBAL HATCHING ALL OFF
  SHOW GLOBAL INFOS '^^LB_T' ON
END_DEFINE

{-----------------------------------------------------------------------------}
DEFINE Ts_menc_label_off
  SHOW GLOBAL INFOS '^^LB_T' OFF
  SHOW DIMENSIONS ON
  SHOW GLOBAL HATCHING ALL ON
END_DEFINE

{-----------------------------------------------------------------------------}
DEFINE Ts_menc_aus
PARAMETER Nc_format

  LOCAL F
  LOCAL Globale_auswertung

  LET Globale_auswertung 0
  IF (Nc_format = 'APT')
    READ STRING 'Dateinamen fÏr APT Ausgabe eingeben' F
  ELSE_IF (Nc_format = 'COMPACT II')
    READ STRING 'Dateinamen fÏr COMPACT II Ausgabe eingeben' F
  END_IF

  DISPLAY_NO_WAIT ('Datei ' + F + ' wird erzeugt')

  INQ_ENV 10
  LET Bs (INQ 4)

  IF (Bs = 2)
    CURRENT_DIRECTORY  "/home/cad/ncgeo"
  ELSE
    CURRENT_DIRECTORY  "X:/Departments/Artisanal/Engineering/Konstruktion/cad/ncgeo"
  END_IF

  TS_MENC_AUSGABE Nc_format F Globale_auswertung
  IF (Ts_menc_error <> '')
    DISPLAY Ts_menc_error
  END_IF

END_DEFINE

[Diese Nachricht wurde von Fuzo am 28. Aug. 2006 editiert.]

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

---

Zitat:

---

Original erstellt von Fuzo:

Bekomme seit neuesten immer diesen fehler:

***Makro Ts_Me10_version ist nicht definiert

{

---

hallo,
wenn ich mir Dein Makro ansehe, dann ist das Makro Ts_me10_version wirklich nirgends zu finden. Vielleicht wird dieses Makro nicht mehr geladen. Mache doch mal den Test an ME10:

EDIT_MACRO  Ts_me10_version

wird dann ein Makrotext angezeigt, dann wäre das Makro da. Wenn nicht, dann

LIST_MACRO_NAMES SCREEN

in dieser alphabetischen Liste könntest Du das Makro Ts_ME10_version auch finden, mit einem Stern dahinter, d.h. das Makro wäre verschlüsselt.

Denke aber, dass beide Wege ins Leere laufen. Dann müsstest Du das Makro neu erstellen. Welche Version von ME10 ist/war im Einsatz? Wurde eine neue Version installiert?

DEFINE Ts_me10_version
10.5    (* ME10-Version *)
END_DEFINE

Damit wäre ein schneller Test möglich. Die genaue Version kannst ja mit VERSION ermitteln. Die Befehle um die Version innerhalb eines Makros zu ermitteln

DEFINE Ts_me10_version_ermittle
  LOCAL V
  INQ_ENV 0
  LET V (INQ 301)    (* ergibt ME10-Version in Langform *)
  ...
  (* Angesichts der Uhrzeit spare ich mir das Filtern der Version als Zahlenwert *)
usw...
  LET Ts_Me10_version (...)
END_DEFINE

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

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