DEFINE translate_dxf
  LOCAL INTERVALL
  CURRENT_MENU 'Zusatz'
  MENU_LAYOUT (1.5*Text_slot_height) '                                          '
              (1.5*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '
              (0.3*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '
              (0.3*Text_slot_height) '                                          '
              (2.5*Text_slot_height) '                 |                        '
              (1.0*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '
              (1.0*Text_slot_height) '                                          '

  (Graphic_area_up_right /1.3) {##### PELOOK 1 und 2 -  1280 x 1024 ##########}

  MENU Colo0 Bcol5 CENTER ' T R A N S L A T E R '                                  '' 1 1
  MENU Colo0 Bcol3 CENTER ' ME10  -->  AUTOCAD [ DXF ] '                           '' 2 1
  MENU Colo0 Bcol0 CENTER ' ****** V 1.20 - 13.01.2003 ******'                     '' 3 1
  MENU Colo0 Bcol4 CENTER ' Ûbersetzt alle ME10-Dateien im '                       '' 4 1
  MENU Colo0 Bcol4 CENTER ' aktuellen Verzeichnis !!! '                            '' 5 1
  MENU Colo0 Bcol0 CENTER ''                                                       '' 6 1
  MENU Colo0 Bcol7 CENTER '###  Teilestrukturen der Ebene_1  ###'                  '' 7 1
  MENU Colo0 Bcol7 CENTER '###  werden in Layer konvertiert  ###'                  '' 8 1
  MENU Colo0 Bcol0 CENTER ''                                                       '' 9 1
  MENU Colo0 Bcol2 CENTER ' S T A R T ' 'MENU_STATUS UNMAP STORE_ACAD'               10 1
  MENU Colo0 Bcol1 CENTER ' ABBRECHEN '  'MENU_STATUS UNMAP'                         10 2
  MENU BLACK RGB_COLOR 1 1 .72 CENTER 'Bevor Sie das Macro starten wechseln Sie'   ''11 1
  MENU BLACK RGB_COLOR 1 1 .72 CENTER 'im ME10-Browser das Verzeichnis, in dem'    ''12 1
  MENU BLACK RGB_COLOR 1 1 .72 CENTER 'die zu Ïbersetzenden ME10-Dateien liegen !' ''13 1
  Fbt_dtabs_all_on 0
END_DEFINE


DEFINE Parts_in_Layer
  LOCAL File1
  LOCAL First_char
  LOCAL Filestring1
  LOCAL Filestring2
  LOCAL M
  LET File1 'c:\temp\teilestruktur.in'
  EDIT_PART TOP
  RENAME_PART 'TOP'
  PARTS_LIST TREE DEL_OLD 'c:\temp\teilestruktur.in
  OPEN_INFILE 1 File1
  LET M 1
  LOOP
    READ_FILE 1 Filestring1
  EXIT_IF (Filestring1='END-OF-FILE')
    LET First_char (SUBSTR Filestring1 7 2)
    IF (First_char='P ')
      DISPLAY_NO_WAIT ("Teilestruktur Ebene 1 wird in Layer konvertiert !!!")
    ELSE_IF (First_char<>'  ')
      EDIT_PART Filestring1
      INQ_ENV 7
      LET Filestring2 (INQ 301)
      LET String_length2 (LEN Filestring2)
      IF (String_length2>22)
        LET Filestring2 (SUBSTR Filestring2 1 22)
      END_IF
      HL_GENERATE_HIDDEN NO_BACKUP CONFIRM
      DELETE_ELEM_INFO ALL
      ADD_ELEM_INFO ( 'LAYER: ' + (STR Filestring2) + '_' + (STR M))
      TRAP_ERROR
      SELECT ALL CONFIRM END
      IF (CHECK_ERROR)
        EDIT_PART PARENT
      END_IF
      EDIT_PART TOP
    END_IF
    LET M (M+1)
  END_LOOP
  CLOSE_FILE 1
{ HL_GENERATE_HIDDEN NO_BACKUP CONFIRM  }
END_DEFINE



DEFINE Store_acad
  LOCAL I
  LOCAL J
  LOCAL X
  LOCAL Y
  LOCAL Z
  LOCAL String_in
  LOCAL String_in_2
  LOCAL String_out
  LOCAL String_ext_other
  EDIT_PART TOP
  DISPLAY 'Akt. Bildschirm loeschen ? -  Wenn NEIN --> ABBRUCH mit ESC !!!'
  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 Z (X-2)
    IF (X<4)
      LET String_out (SUBSTR String_in 1 X + '.DXF')
    ELSE
      LET String_in_2 (SUBSTR String_in Z 1)
      IF (String_in_2 = '.')
        LET String_out (SUBSTR String_in 1 Y + '.DXF')
      ELSE
        LET String_out (SUBSTR String_in 1 X + '.DXF')
      END_IF
    END_IF
    LET String_ext_other (SUBSTR String_in (X-3) 4)
    IF ((String_ext_other = '.DWG') OR (String_ext_other = '.dwg'))
      DISPLAY_NO_WAIT (String_in+' UnzulÌssige MI-Datei !!!')
      WAIT 1
    ELSE_IF ((String_ext_other = '.DXF') OR (String_ext_other = '.dxf'))
      DISPLAY_NO_WAIT (String_in+' UnzulÌssige MI-Datei !!!')
      WAIT 1
    ELSE_IF ((String_ext_other = '.IGS') OR (String_ext_other = '.igs'))
      DISPLAY_NO_WAIT (String_in+' UnzulÌssige MI-Datei !!!')
      WAIT 1
    ELSE_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 DXF 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