DEFINE Am_masslinienunterbrechung_macro
  LOCAL Aktuelle_teilenummer
  LOCAL P1
  LOCAL P2
  LOCAL P3
  LOCAL Ansichtsmassstab
  LOCAL Elementcheck
  LOCAL Notausstieg


  READ PNT 'Anfangspunkt der Unterbrechung ?' P1
  READ PNT 'Endpunkt der Unterbrechung ?'     P2

  INQ_PART '.'
  LET Aktuelle_teilenummer (INQ 302)
  LET Notausstieg (0)

  TRAP_ERROR
  EDIT_PART P1
  IF (CHECK_ERROR)
    EDIT_PART Aktuelle_teilenummer
  ELSE
    INQ_ENV 19
    LET Ansichtsmassstab (INQ 4)
    LET P1 (PNT_XY (X_OF P1 / Ansichtsmassstab) (Y_OF P1 / Ansichtsmassstab))
    LET P2 (PNT_XY (X_OF P2 / Ansichtsmassstab) (Y_OF P2 / Ansichtsmassstab))
    LET P3 (P1 + (P2 - P1) / 10))
    LOOP
      { *** Punkte-Kontrolle:
      TEXT_SIZE 0.2
      TEXT_RATIO 1
      TEXT_ADJUST 5
      TEXT 'P1' P1 END
      TEXT 'P2' P2 END
      TEXT 'P3' P3 END
      ***}
      DIM_CATCH_LINES ON
      MODIFY_DIM_LINES BREAK P3
      DIM_CATCH_LINES OFF P2 P1 END
      DIM_CATCH_LINES ON
      INQ_SELECTED_ELEM DIMENSIONS P3
      LET Elementcheck (SUBSTR (STR INQ 403) 1 3)
      LET Notausstieg (Notausstieg + 1)
    EXIT_IF (Notausstieg = 30)
    EXIT_IF (Elementcheck <>'DIM')
    END_LOOP
  END_IF

  EDIT_PART Aktuelle_teilenummer

END_DEFINE