DEFINE Gdm_inq_element
  LOCAL Pkt
  LOCAL Txt1
  LOCAL Txt2
  LOCAL Txt3
  LOCAL Txt4
  LOCAL Txt5
  LOCAL Txt6
  LOCAL Txt7
  LOOP
    READ PNT PROMPT (DGETTEXT 'me10mac' "Pick element") Pkt
    INQ_ELEM Pkt
    IF (INQ 403 = END)
       DISPLAY 'Kein Element gefunden'
    ELSE_IF (INQ 403 = TEXT)
       LET Txt1 (STR (INQ 302)+'    '+(DGETTEXT 'me10mac' 'Size')+'='+STR (INQ 6))
       LET Txt2 ('    '+(DGETTEXT 'me10mac' 'Adjust')+'='+STR (INQ 3)+'    '+(DGETTEXT 'me10mac' 'Angle')+'='+STR (INQ 8))
       LET Txt3 ('    '+(DGETTEXT 'me10mac' 'Ratio')+'='+STR (INQ 5)+'    '+(DGETTEXT 'me10mac' 'Linespace')+'='+STR (INQ 4))
       LET Txt4 ('    '+(DGETTEXT 'me10mac' 'Slant')+'='+STR (INQ 7))
       DISPLAY (Txt1 + Txt2 + Txt3 + Txt4)
    ELSE_IF (INQ 403 = HATCH)
       LET Txt1 ('ART = '+(STR (INQ 403)))
       LET Txt2 ('Schraffurfarbe = '+(STR (INQ 202)))
       DISPLAY (Txt1 + '  ' + Txt2)     
    ELSE_IF ( (INQ 403 = LINE) OR (INQ 403 = CIRCLE) OR (INQ 403 = ARC) OR (INQ 403 = FILLET) OR (INQ 403 = BSPLINE) OR (INQ 403 = C_LINE) )
       LET Txt1 ('ART = '+(STR (INQ 403)))
       LET Txt2 ('Linienart = '+(STR (INQ 308)))
       LET Txt3 ('Linienmuster = '+(STR (INQ 301)))
       LET Txt4 ('Linienbreite = '+(STR (INQ 15)))
       LET Txt5 ('Stiftbreite = '+(STR (INQ 10)))
       LET Txt6 ('Farbe = '+(STR (INQ 201)))
       DISPLAY (Txt1 + '  ' + Txt2 + '  ' + Txt3 + '  ' + Txt4 + '  ' + Txt5 + '  ' + Txt6)
    ELSE_IF ( (INQ 403 = DIM_LINE) OR (INQ 403 = DIM_RADIUS) OR (INQ 403 = DIM_DIAMETER) OR (INQ 403 = DIM_ARC) OR (INQ 403 = DIM_ANGLE) OR (INQ 403 = DIM_CHAIN)
               OR (INQ 403 = DIM_DATUM_SHORT) OR (INQ 403 = DIM_DATUM_LONG) OR (INQ 403 = DIM_COORD) OR (INQ 403 = DIM_CHAMFER)  )
       LET Txt1 ('ART = '+(STR (INQ 403)))
       LET Txt2 ('Format fÏr HauptbemaÞungswert = '+(STR (INQ 310)))     
       DISPLAY (Txt1 + '  ' + Txt2)
    ELSE
       DISPLAY ('ART = '+(STR (INQ 403)))
    END_IF
  END_LOOP
END_DEFINE