DEFINE Translate_dxf_to_mi_batch
  LOCAL INTERVALL
  CURRENT_MENU 'Zusatz'
  MENU_LAYOUT (1.5*Text_slot_height) '                                      '
              (1.5*Text_slot_height) '                                      '
              (0.3*Text_slot_height) '                                      '
              (  1*Text_slot_height) '                                      '
              (  1*Text_slot_height) '                                      '
              (0.3*Text_slot_height) '                                      '
              (2.5*Text_slot_height) '               |                      '
 (Graphic_area_low_left+((Graphic_area_up_right - Graphic_area_low_left)/
  1.6))
  MENU Colo0 Bcol5 CENTER ' BATCH - TRANSLATE '                          '' 1 1
  MENU Colo0 Bcol3 CENTER ' DXF   -->  [ MI ] '                          '' 2 1
  MENU Colo0 Bcol0 CENTER ''                                             '' 3 1
  MENU Colo0 Bcol4 CENTER ' Ûbersetzt alle DXF-Dateien im '              '' 4 1
  MENU Colo0 Bcol4 CENTER ' aktuellen Verzeichnis !!! '                  '' 5 1
  MENU Colo0 Bcol0 CENTER ''                                             '' 6 1
  MENU Colo0 Bcol2 CENTER ' S T A R T ' 'AUS STORE_DXF_TO_MI'               7 1
  MENU Colo0 Bcol1 CENTER ' ABBRECHEN '  'AUS'                              7 2
END_DEFINE




DEFINE STORE_DXF_TO_MI
  LOCAL I
  LOCAL J
  LOCAL X
  LOCAL Y
  LOCAL String_in
  LOCAL String_out
  EDIT_PART TOP
  DISPLAY 'Akt. Bildschirm loeschen ?'
  STORE ALL DEL_OLD 'C:\TEMP\LAST_DRAWING.MI'
  DELETE ALL CONFIRM
  SPOTLIGHT ON
  LET I 1
  LET J (LTAB_ROWS 'FBT_FTAB')
  LOOP
  EXIT_IF (I>J)
    LET String_in (READ_LTAB 'FBT_FTAB' I 1)
    LET X (LEN String_in)
    LET Y (X-3)
    LET String_out (SUBSTR String_in 1 Y + 'MI')
    IF (((String_in<>'hp_catfile') AND (String_in<>'hp_catlock')) OR
        ((String_in<>'HP_CAT.FIL') AND (String_in<>'HP_CAT.LCK')))
      TRAP_ERROR
      LOAD String_in
      IF (CHECK_ERROR)
        DISPLAY_NO_WAIT (String_in+' UnzulÌssige MI-Datei.')
        WAIT 1
      ELSE
        Parts_in_Layer
        STORE MI ALL DEL_OLD String_out
      END_IF
    END_IF
    LET I (I+1)
    DELETE ALL CONFIRM
  END_LOOP
 PURGE_FILE '*.log' CONFIRM END
END_DEFINE



DEFINE AUS
  MENU_STATUS UNMAP
END_DEFINE