36 lines
1.7 KiB
Common Lisp
36 lines
1.7 KiB
Common Lisp
;------------------------------------------------------------------
|
|
; 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))
|
|
)
|
|
)
|
|
|
|
|