;------------------------------------------------------------------
; Bügelplätze zeichnen - REINIGUNG - Abnahme von RECHTS - 
;                                    Bügelhaken geschlossen links
;                                    ca. 30% der Anwendungsfälle
; AW 22.3.93 
;------------------------------------------------------------------

(defun rein_l2()
  ;--------------------------------------------------------
  ;<<<<<  Konstruktionspunkte definieren >>>>>>>
  ;--------------------------------------------------------
  (setq P26 (list (+ (car p11) (/ L1 2)) (cadr p11)))
  (setq P27 (list (- (car p26) 700) (+ (cadr p26) 450)))
  (setq P28 (list (- (car p26) 1000) (- (cadr p26) 400)))
  (setq P29 (list (+ (car p26) 500) (+ (cadr p26) 200)))

  ;----------------- Pfeile setzen ---------------------------------------
  (command "_layer" "_m" "Z-1" "_c" "1" "" "")
  (command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p10 "" "" "270")
  (command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p13 "" "" "90")
  (command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p19 "" "" "135")
  (command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p16 "" "" "225")
  (command "_insert" (strcat lw "/acadsst/zier2d/maus") p26 "" "" "0")
  (command "_insert" (strcat lw "/acadsst/zier2d/vario14") p27 "" "" "270")
  (command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p22 "" "" "90")
  (command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p12 "" "" "0")
  (command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p11 "" "" "180")
  (command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p28 "" "" "45")
  (command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p29 "" "" "315")

  (IF (> KO 1)
	(command "_array" "k" p24 p25 "" "r" "1" KO (+ L1 800))
  )
)