;
; Test Stutzen
;
( defun teststutzen ( /
)

  (setvar "cmdecho" 1)
  (terpri)
  (setq eschnittkante1 (car (entsel "Schnittkante 1 wählen: ")))
  (terpri)
  (setq eschnittkante2 (car (entsel "Schnittkante 2 wählen: ")))
  (terpri)
  (setq eschnittkante3 (car (entsel "Schnittkante 3 wählen: ")))
  (terpri)
  (setq eschnittkante4 (car (entsel "Schnittkante 4 wählen: ")))
  (terpri)
  (setq eobjektstutzen (car (entsel "Zu stutzendes Objekt wählen: ")))
  (terpri)
  (setq lpunkt1 (getpoint "Punkt 1 wählen: "))
  (terpri)
  (setq lpunkt2 (getpoint "Punkt 2 wählen: "))
  (terpri)
  (setq lpunkt3 (getpoint "Punkt 3 wählen: "))
  (terpri)
  (setq lpunkt4 (getpoint "Punkt 4 wählen: "))
  (terpri)
; (command "_.trim" eschnittkante "" eobjektstutzen "Zaun" lpunkt1 lpunkt2 "" "")
; anrh (command "_.trim" e1 e2 "" "_F" lpktz1 lpktz2 lpktz3 lpktz4 "" "")  
  (command "_.trim" eschnittkante1 eschnittkante2 eschnittkante3 eschnittkante4 "" eobjektstutzen "_F" lpunkt1 lpunkt2 lpunkt3 lpunkt4 "" "")
  
; Rückgabewert
  (princ)

) ; Modulende