;
; Test Stutzen
;
( defun teststutzen ( /
)

; Das Objekt und dessen Koordinaten für die Schnittkante (= gelbe Polylinie) wählen
  (setvar "cmdecho" 0)
  (terpri)
  (setq eschnittkante (car (entsel "Schnittkante wählen: ")))
  (setq lkoorschnittkante (koordinaten_element_ermitteln eschnittkante nil nil))
  
; Das Objekt und dessen Koordinaten für das zu stutzende Objekt (= schwarze Polylinie) wählen
  (terpri)
  (setq eobjektstutzen (car (entsel "Zu stutzendes Objekt wählen: ")))
  (setq lkoorobjektstutzen (koordinaten_element_ermitteln eobjektstutzen nil nil))

; Einen Punkt des zu stutzende Objektes AUSSERHALB der Schnittkante ermitteln
  (setq lpktobjektstutzenaft nil)
  (setq ianzahlkoor (length lkoorobjektstutzen))
  (setq izlerkoor 0)
  (while (and (< izlerkoor ianzahlkoor) (= lpktobjektstutzenaft nil))
    (setq lpktobjektstutzen (nth izlerkoor lkoorobjektstutzen))
    (setq ilagepunkte (lage_vergleichen lkoorschnittkante (list lpktobjektstutzen) 3))
    (if (/= ilagepunkte 50)
      (setq lpktobjektstutzenaft (acad_punkt_erstellen lpktobjektstutzen))
    ) ; if
    (setq izlerkoor (+ izlerkoor 1))
  ) ; while 

; Den Befehl Stutzen ausführen
  (terpri)
  (setvar "cmdecho" 1)
  (command "_.trim" eschnittkante "" lpktobjektstutzenaft "")
   
; Rückgabewert
  (princ)

) ; Modulende