DEFINE Inq_command
  INQ_ENV 1
  INQ_ELEM
  PICK_VP_PNT (INQ 2) (INQ 104)
  IF (INQ 403=POINT)
{    POINT Assistance} Show_popup_menu_geo
  END_IF
  IF (INQ 403=LINE)
{    LINE Assistance} Show_popup_menu_geo
  END_IF
  IF (INQ 403=CIRCLE) {Circle_end} Show_popup_menu_geo
  END_IF
  IF (INQ 403=ARC)
{    ARC Assistance} Show_popup_menu_geo
  END_IF
  IF (INQ 403=FILLET) Show_popup_menu_geo
  END_IF
  IF (INQ 403=C_LINE)
{    C_LINE Assistance} Show_popup_menu_c_line
  END_IF
  IF (INQ 403=C_CIRCLE)
{    C_CIRCLE Assistance} Show_popup_menu_c_line
  END_IF
  IF (INQ 403=TEXT)
{    TEXT Assistance} Show_popup_menu_text      {B.Danhieux 14.03.2003}
  END_IF
  IF (INQ 403=BSPLINE)
    BSPLINE
  END_IF
  IF (INQ 403=DIM_LINE)
   { DIM_LINE} Show_popup_menu_dim {_line}      {B.Danhieux 21.02.2003}
  END_IF
  IF (INQ 403=DIM_RADIUS)
{    DIM_RADIUS}    Show_popup_menu_dim {_radius}       {B.Danhieux 14.03.2003}
  END_IF
  IF (INQ 403=DIM_DIAMETER)
    DIM_DIAMETER
  END_IF
  IF (INQ 403=DIM_ARC)
    DIM_ARC
  END_IF
  IF (INQ 403=DIM_ANGLE)
    DIM_ANGLE
  END_IF
  IF (INQ 403=DIM_CHAIN)
{    DIM_CHAIN} Show_popup_menu_dim_chain
  END_IF
  IF (INQ 403=DIM_DATUM_SHORT)
    DIM_DATUM_SHORT
  END_IF
  IF (INQ 403=DIM_DATUM_LONG)
    DIM_DATUM_LONG
  END_IF
  IF (INQ 403=DIM_COORD)
    DIM_COORD
  END_IF
  IF (INQ 403=DIM_CHAMFER)
    DIM_CHAMFER
  END_IF
  IF (INQ 403=CENTERLINE)
    CENTERLINE Assistance
  END_IF
  IF (INQ 403=REFLINE)
    REFLINE Assistance
  END_IF
  IF (INQ 403=LEADER_LINE)
    LEADER_LINE
  END_IF
  IF (INQ 403=SYMLINE)
    SYMLINE Assistance
  END_IF
  IF (INQ 403=END)
    INQ_ENV 10
    IF ((INQ 19)=1)
      Show_popup_menu
    END_IF
  END_IF
END_DEFINE

DEFINE Show_popup_menu_dim_line
  TOOLBAR DEL_OLD 'tlb_PopupMenu_dim_line'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_line_h' CAPTION 'Mass waagrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Mass waagrecht' ON_ACTION  'DA_DIM_LINE HORIZONTAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_line_v' CAPTION 'Mass senkrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Mass senkrecht' ON_ACTION  'DA_DIM_LINE VERTICAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_move' CAPTION 'Mass bewegen' CATEGORY 'CBA-Menue' TOOLTIP 'Mass bewegen' ON_ACTION 'move_dimension'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_prefix' CAPTION 'PrÌfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'PrÌfix neu' ON_ACTION 'ADD_DIM_PREFIX Dim_fixes 1 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_postfix' CAPTION 'Postfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'Postfix neu' ON_ACTION  'ADD_DIM_POSTFIX Dim_fixes 2 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 5 END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_tol' CAPTION 'Toleranz neu' CATEGORY 'CBA-Menue' TOOLTIP 'Toleranz neu' ON_ACTION 'ADD_DIM_TOLERANCE Dim_fixes 3 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 6 END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE Show_popup_menu_dim_radius
  TOOLBAR DEL_OLD 'tlb_PopupMenu_dim_radius'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_rad' CAPTION 'Radius'
  CATEGORY 'CBA-Menue' TOOLTIP 'Radius' ON_ACTION  'DA_DIM_RADIUS NO_CENTER_LINE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_move' CAPTION 'Mass bewegen' CATEGORY 'CBA-Menue' TOOLTIP 'Mass bewegen' ON_ACTION 'move_dimension'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_prefix' CAPTION 'PrÌfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'PrÌfix neu' ON_ACTION 'ADD_DIM_PREFIX Dim_fixes 1 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_postfix' CAPTION 'Postfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'Postfix neu' ON_ACTION  'ADD_DIM_POSTFIX Dim_fixes 2 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4 END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_tol' CAPTION 'Toleranz neu' CATEGORY 'CBA-Menue' TOOLTIP 'Toleranz neu' ON_ACTION 'ADD_DIM_TOLERANCE Dim_fixes 3 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 5 END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE


DEFINE Show_popup_menu_text     {B.Danhieux 21.02.2003}
  TOOLBAR DEL_OLD 'tlb_PopupMenu_text'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_text_new' CAPTION 'Text eingeben'
  CATEGORY 'CBA-Menue' TOOLTIP 'Text eingeben' ON_ACTION  'TEXT INPLACE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_text_edit' CAPTION 'Edit Text'
  CATEGORY 'CBA-Menue' TOOLTIP 'Edit Text' ON_ACTION  'EDIT_TEXT INPLACE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_text_del_old' CAPTION 'Text bewegen'
  CATEGORY 'CBA-Menue' TOOLTIP 'Text bewegen' ON_ACTION  'MODIFY Assistance DEL_OLD' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_change_text_size' CAPTION 'TextgrÎ Ìndern'
  CATEGORY 'CBA-Menue' TOOLTIP 'TextgrÎ Ìndern' ON_ACTION  'CHANGE_TEXT_SIZE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4  END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE Show_popup_menu_c_line
  TOOLBAR DEL_OLD 'tlb_PopupMenu_c_line'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_c_line_h' CAPTION 'Hilfsgeo horizontal'
  CATEGORY 'CBA-Menue' TOOLTIP 'Hilfsgeo horizontal' ON_ACTION  'C_LINE Assistance HORIZONTAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_c_line_v' CAPTION 'Hilfsgeo vertikal' CATEGORY 'CBA-Menue' TOOLTIP 'Hilfsgeo vertikal' ON_ACTION 'C_LINE Assistance VERTICAL'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_c_line' CAPTION 'Hilfsgeo 2Pkt' CATEGORY 'CBA-Menue' TOOLTIP 'Hilfsgeo 2Pkt' ON_ACTION 'C_LINE Assistance'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_c_line_par' CAPTION 'Hilfsgeo parallel' CATEGORY 'CBA-Menue' TOOLTIP 'Hilfsgeo parallel' ON_ACTION 'C_LINE Assistance PARALLEL'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_c_circle' CAPTION 'Hilfskreis Zentrum' CATEGORY 'CBA-Menue' TOOLTIP 'Hilfskreis Zentrum' ON_ACTION  'C_CIRCLE_END'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 5 END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE Show_popup_menu_dim
  TOOLBAR DEL_OLD 'tlb_PopupMenu_dim'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_line_h' CAPTION 'Mass waagrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Mass waagrecht' ON_ACTION  'DA_DIM_LINE HORIZONTAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_line_v' CAPTION 'Mass senkrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Mass senkrecht' ON_ACTION  'DA_DIM_LINE VERTICAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
 TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_rad' CAPTION 'Radius'
  CATEGORY 'CBA-Menue' TOOLTIP 'Radius' ON_ACTION  'DA_DIM_RADIUS NO_CENTER_LINE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_move' CAPTION 'Mass bewegen' CATEGORY 'CBA-Menue' TOOLTIP 'Mass bewegen' ON_ACTION 'da_move_dimension'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_prefix' CAPTION 'PrÌfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'PrÌfix neu' ON_ACTION 'ADD_DIM_PREFIX Dim_fixes 1 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 5  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_postfix' CAPTION 'Postfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'Postfix neu' ON_ACTION  'ADD_DIM_POSTFIX Dim_fixes 2 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 6 END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_tol' CAPTION 'Toleranz neu' CATEGORY 'CBA-Menue' TOOLTIP 'Toleranz neu' ON_ACTION 'ADD_DIM_TOLERANCE Dim_fixes 3 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 7 END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE Show_popup_menu_geo
  TOOLBAR DEL_OLD 'tlb_PopupMenu_geo'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_geo_h' CAPTION 'Geo waagrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Geo waagrecht' ON_ACTION  'LINE Assistance HORIZONTAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_geo_v' CAPTION 'Geo senkrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Geo senkrecht' ON_ACTION  'LINE assistance VERTICAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_geo_circle' CAPTION 'Kreis Zentrum'
  CATEGORY 'CBA-Menue' TOOLTIP 'Kreis Zentrum' ON_ACTION  'CIRCLE_END' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_circle_concentr' CAPTION 'Kreis konzentrisch' CATEGORY 'CBA-Menue' TOOLTIP 'Kreis konzentrisch' ON_ACTION 'CIRCLE ASSIST PARALLEL'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4 END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_fillet' CAPTION 'Rundung' CATEGORY 'CBA-Menue' TOOLTIP 'Rundung' ON_ACTION 'FILLET'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 5  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_change_fillet' CAPTION 'Rundung Ìndern' CATEGORY 'CBA-Menue' TOOLTIP 'Rundung Ìndern' ON_ACTION 'CHANGE_FILLET'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 6  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_chamfer' CAPTION 'Fase' CATEGORY 'CBA-Menue' TOOLTIP 'Fase' ON_ACTION  'CHAMFER DIST_DIST'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 7 END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_overdraw' CAPTION 'Nachzeichnen' CATEGORY 'CBA-Menue' TOOLTIP 'Nachzeichnen' ON_ACTION  'OVERDRAW ASSIST'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 8 END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE Show_popup_menu_dim_chain
  TOOLBAR DEL_OLD 'tlb_PopupMenu_dim_chain'  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_line_h_chain' CAPTION 'Kettenmass waagrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Kettenmass waagrecht' ON_ACTION  'DA_DIM_CHAIN HORIZONTAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 1  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_line_v_chain' CAPTION 'Kettenmass senkrecht'
  CATEGORY 'CBA-Menue' TOOLTIP 'Kettenmass senkrecht' ON_ACTION  'DA_DIM_CHAIN VERTICAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 2  END
 TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_rad' CAPTION 'Radius'
  CATEGORY 'CBA-Menue' TOOLTIP 'Radius' ON_ACTION  'DA_DIM_RADIUS NO_CENTER_LINE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 3  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_move' CAPTION 'Mass bewegen' CATEGORY 'CBA-Menue' TOOLTIP 'Mass bewegen' ON_ACTION 'da_move_dimension'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 4  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_prefix' CAPTION 'PrÌfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'PrÌfix neu' ON_ACTION 'ADD_DIM_PREFIX Dim_fixes 1 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 5  END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_postfix' CAPTION 'Postfix neu' CATEGORY 'CBA-Menue' TOOLTIP 'Postfix neu' ON_ACTION  'ADD_DIM_POSTFIX Dim_fixes 2 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 6 END
  TOOLBAR_ITEM OVER_WRITE 'btn_PopupMenu_dim_tol' CAPTION 'Toleranz neu' CATEGORY 'CBA-Menue' TOOLTIP 'Toleranz neu' ON_ACTION 'ADD_DIM_TOLERANCE Dim_fixes 3 0'
  ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR 7 END
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE Show_popup_menu_geo_pic
  TOOLBAR DEL_OLD 'tlb_PopupMenu_geo_pic'  END

  TOOLBAR_ITEM OVER_WRITE 'btn_cba_geo_overdraw' CATEGORY 'CBA-Menue' TOOLTIP 'NACHZEICHNEN' ON_ACTION 'OVERDRAW Assistance'
    IMAGE
      'eJzNk2EKgCAMhdcdvP9lAjvWC7PRZNJyk8rxfgz0Y3s8l5TylskSAOJ6cv811iSOnOtr1vEWUCw3'
      'j+vkzva+KbSK+HXHj3hvzR3K2NrhQ+/l95uqBry19okye/sw8y88nS3NG8qrYNa8XbzS80FAcq4o'
      'r/dHSla9GZLaAeAyZTw='
  ADD_TO_TOOLBAR 1 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_line_2pt' CATEGORY 'CBA-Menue' TOOLTIP 'LINIE 2Pkte' ON_ACTION 'LINE Assistance TWO_PTS'
    IMAGE
      'eJxjFBGprqxmoDY+dvwYVfCoeaTh////M8AAJeaBzAGZhDCNfPOQzaLEPHRz/kPNIDX8iDGHWPNI'
      'MQufeaSag8s8cs3BZh4l5qCbh54uycXI7iPGPGqXV4TUDhXzqIkBKqAcww='
  ADD_TO_TOOLBAR 2 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_geo_vertical' CATEGORY 'CBA-Menue' TOOLTIP 'LINIE senkrecht' ON_ACTION 'LINE Assistance VERTICAL'
    IMAGE
      'eJxjFBGprqxmoDY+dvwYXvz//38wJqSOkHkwc2Dg2GHKzUMHlJgHdyPQnP8EzBo1b9S8UfNoYx65'
      '5RWu8gCXHmLdh162UGIeLn34zKMmBgCa/Scp'
  ADD_TO_TOOLBAR 3 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_line_horizontal' CATEGORY 'CBA-Menue' TOOLTIP 'LINIE waagrecht' ON_ACTION 'LINE Assistance HORIZONTAL'
    IMAGE
      'eJxjFBGprqxmoDY+dvwYVfCoeYPYvMPHGP7//0+yGch6kM0DiYMAiCYFw/QgmwcTh4H/RGJkQEvz'
      'YOEHEycFI+sZUullAMyjdnlFSO1QMY+aGACsLCC3'
  ADD_TO_TOOLBAR 4 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_line_parallel' CATEGORY 'CBA-Menue' TOOLTIP 'LINIE Parallel' ON_ACTION 'LINE ASSIST PARALLEL'
    IMAGE
      'eJxjFBE5dvwYw4Diw8cY/v//T1WzQADEpoZ5yIBS80Bu+4/HLFLCAWbWfzxmEetmos0iFKaHSXQX'
      'AfMGpR8HqVkwddQIL5g6fOmelLAHux2al7D5g6w8exh7+kExi8IygCZmUWAGTc0i038A7dtjnA='
  ADD_TO_TOOLBAR 5 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_geo_polygon' CATEGORY 'CBA-Menue' TOOLTIP 'Polygon' ON_ACTION 'LINE Assistance POLYGON'
    IMAGE
      'eJy9k1EKACEIRO0O3f847bFsWzAqNDYdEubTx6hjyrk8hf6KmanVSY/JormiLFGENXIQ80VYbdef'
      'AJ7kbkiWVGeK31cIfwxia/ew2G7/GzY6295/0fJ0+i/TnpR5bzF283jybeUP8R+R269MBAutCsDA'
      'NHU='
  ADD_TO_TOOLBAR 6 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_pt_ang_dist' CATEGORY 'CBA-Menue' TOOLTIP 'LINIE Win&& LÌnge' ON_ACTION 'LINE Assistance PT_ANG_DIST'
    IMAGE
      'eJyt1AEKgCAMBdB1hy5VN4qOJ9ixFlqTNaZbqvChDF9zRsu67tsOsxOv2B1EBATIGfW4le5HPGmN'
      'eJrV69Wsbq9i/fV4XedxQgz9ntxj8jTT49X6pZmW1+r9x/R6DSsnRNXLdci8lvqMhWpM1+TRXAoN'
      'fpbelP2Gp3Y5aN4b2T+U1iXWGN8V90rvjbWe/595jsKz3uW1vN7M3JmA4jg='
  ADD_TO_TOOLBAR 7 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_LineRect' CATEGORY 'CBA-Menue' TOOLTIP 'Rechteck' ON_ACTION 'LINE Assistance RECTANGLE'
    IMAGE
      'eJxjFBHx8vRioDY+dvwYVTCyef///wdjapgHMgcGYOaSinGZBzaTDExL80BsGCAlvMB+xWEesvio'
      'ecPXPJLzBiHzSMDIgNbmkYuR8xQtyz9qmkdNDADSPLfB'
  ADD_TO_TOOLBAR 8 END
  TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 9 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_symline' CATEGORY 'CBA-Menue' TOOLTIP 'Symmetrielinie' ON_ACTION 'SYMLINE Assistance'
    IMAGE
      'eJytlMENgCAMRXEHJzbEbfSmC5DgWFWa1GCDLVAO/0LTl993YJrneEVXEwBw4ByGz7Z9ewaAsbKO'
      '83hZGi/ncFbi5L386vFN5Cks4lWxfm4kVgzxZfayuHu/eOSOcJ9uRFb47o5wX+pgcc93Le75rsW9'
      'dGeNe80Z8Xrdl3pY3WusFvdSetxL3Xrcq70M7inS/9XKynkW93lu+qc95w='
  ADD_TO_TOOLBAR 10 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_centerline' CATEGORY 'CBA-Menue' TOOLTIP 'Mittellinie' ON_ACTION 'CENTERLINE Assistance'
    IMAGE
      'eJytlNENgCAMRHEHRzZuo386go6FlOTMiUUq8HEBwvFSSsswjsd5uC9t++aWdblV8pckDOd91DRP'
      'TSwfGL14wgqUKPDiWsagWtaLBxmZzNLyx8y/cYEnHCj6DMw0Lq4XsGRu8aO2sI+z2MN9uQ7ZD1/q'
      'ZyGm3J62lrE3j/Oj3ZfPch7ZjzXnN5djrT9yb2Gpl/R9NY+ZqfTvH9aDW+i3qj9B4bX8V1/90cLr'
      '9Z/WxHcBBwArjw='
  ADD_TO_TOOLBAR 11 END
  TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 12 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_circle3pts' CATEGORY 'CBA-Menue' TOOLTIP 'KREIS 3Pkte' ON_ACTION 'CIRCLE Assistance THREE_PTS'
    IMAGE
      'eJxjFBE5dvwYA73w////wRgGQGyyzQHph2K4eciYSLORzcIqT4KZhMzCZi41zCLGTFLNQnYDseLk'
      'upEct+HTP+jNo3L4URq/1DYPlxwMEGMWcp6mRA16mUNKGMP0omCk8oCceMOGyU1X6OZSYg65GAC2'
      '3T+/'
  ADD_TO_TOOLBAR 13 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_circle_tan_center' CATEGORY 'CBA-Menue' TOOLTIP 'KREIS Tan2 && Pkt/R' ON_ACTION 'CIRCLE Assistance TAN2_PT'
    IMAGE
      'eJzFlGEOgCAIhe0OHtl1NDuWZRsb0esh5Rbb+yP4KaAsOdetpojEovu6WmtQUea574inGuRqFvQD'
      '5lsW5D4wIyzLRHlHWZc7mFrKutdnxvTWtE8MMRmvrOUma3/yvHxH6ze7v1958P3pP0veB4r3akH/'
      'r8wZh4VqCeeVOo/1iXJTfE6NaibLm3ddO+IAFTA='
  ADD_TO_TOOLBAR 14 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_CircleCenter' CATEGORY 'CBA-Menue' TOOLTIP 'KREIS Mittelpkt&&Umf/R' ON_ACTION 'CIRCLE_END Assistance CENTER'
    IMAGE
      'eJy91GEKgCAMBWC7g5fKG0X3s2MZBsKcb0+FkfD+ZH6NdB4xpjMF7+Qnw5RShljv1ljetzYEHmAj'
      'T1qwZmJqb2Yh1/J2LMvsvE1L1qA9/dza51mNK16dawOZbX7Fk1Yb93V3keNvT5ts3nN/9X54n5eh'
      'Zxd6H51/1m/sf1q9ZN4vqs4u5HvT+w/cU3LtrsfCPM+8loXJRA='
  ADD_TO_TOOLBAR 15 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_circle_concentr' CATEGORY 'CBA-Menue' TOOLTIP 'KREIS Konzentrisch' ON_ACTION 'CIRCLE ASSIST PARALLEL'
    IMAGE
      'eJzNlFEOwBAQRPUOLts4nkSPpU2jshgMkoZkfpg8uzH20NpdTv0l732haY5SbZFsyYIe62hmlyW9'
      'Hd8Ii2HCs6e3fKEaarUhVu5lmGgPsdA9y7xwZk4TtQ3Pcv1+7/v6c6ZNeQyrlaWZvBR5Dn01s0zk'
      'P5kDlb8ZZ83AX5LMQmLGMCzIXWDsphvJOzmR'
  ADD_TO_TOOLBAR 16 END
  TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 17 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_arc_3pt' CATEGORY 'CBA-Menue' TOOLTIP 'Bogen 3 Pkte' ON_ACTION 'ARC Assistance THREE_PTS'
    IMAGE
      'eJzl1FkKwCAMBFB7By9VD26PlSKYEkYTJaRQqDA/Lg/3I+dylhSdetXtEFHCwm0eD01Z7/XYbIny'
      'HjNgvX/02PqsB5bX43tneXgvLWv2ztBrZWXyvHY9zcT1aZbmDenObL8sT56ZFjkm6v+z+r/lReYG'
      'xJvlYA='
  ADD_TO_TOOLBAR 18 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_arc_cen_rad_ang' CATEGORY 'CBA-Menue' TOOLTIP 'Bogen Mitt R Win' ON_ACTION 'ARC Assistance CEN_RAD_ANG'
    IMAGE
      'eJzd1EsOgCAMBNB6By4l1yYpx8K4gLTl05awUZLZmPCEAb1CiHeE08GMR/J1r5TSZcdr8wH6LEzq'
      'sXWQ+ZiwhT1XPDqG709k/RPT5clOBqbs790r1D1qHulldR5W0+oxs/Y2satpuX+juycjO9c8z7B+'
      'H6szZ70YPG92vD/8/07mAS3V5No='
  ADD_TO_TOOLBAR 19 END
  TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 20 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_chamfer' CATEGORY 'CBA-Menue' TOOLTIP 'Fase AbstAbst' ON_ACTION 'CHAMFER DIST_DIST'
    IMAGE
      'eJxjFBE5dvwYA8P//2AMYlOKYWbhwiA1QBZRmJB5xw4TbxbMPHz+hasFyhGD8ZmHzV4wPgzFRIQh'
      'NrP+o7ubSPNgavCaRQpGD3sKzMKIKwrTIjXNQk8X1Mgjo+aNIPMI5M2BMA+OqWAWANg4Wic='
  ADD_TO_TOOLBAR 21 END
  TOOLBAR_ITEM OVER_WRITE 'btn_cba_fillet' CATEGORY 'CBA-Menue' TOOLTIP 'Rundung' ON_ACTION 'FILLET'
    IMAGE
      'eJxjFBE5dvwYA8P//2AMYlMDU9M8mFnEYpg+IA8DHztM2Dxku7GZgW4eMf7Fqh+oHh0TCj9c+sHy'
      'h0mLD3SzMPSRYB5ec4iMY2qZhcs8StMgtdyGLfypkU+o6bZRvw5v88B5G4YpNAsAJZ9f2A='
  ADD_TO_TOOLBAR 22 END
{  TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 23 END}
  TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''  PERSISTENT OFF SHOW_AS_POPUP  END
END_DEFINE

DEFINE C_circle_end
  LOCAL Cir_cen
  LOCAL Cir_pnt
  LOOP
    READ PNT PROMPT (DGETTEXT 'me10mac' 'Indicate center of circle') Cir_cen
    C_CIRCLE Assistance CENTER Cir_cen
    READ PNT NUMBER LAST_PROMPT LAST_FEEDBACK Cir_pnt Cir_pnt
    END
  END_LOOP
END_DEFINE

DEFINE bda_elem
  INQ_ELEM
{  READ PNT bda_pt}
{PICK_VP_PNT }
  DISPLAY ( INQ 403 )
END_DEFINE