;-------------------------------------------------------------------------------------------------------------;
;	Beschreibung:	Aktion Bogen B1=B2 zeichnen.								;
;-------------------------------------------------------------------------------------------------------------;
(DEFUN C:L005B1()
	(SETQ	b1 	(GETREAL "\nKANALBREITE angeben : ")
		l005p00	(GETPOINT "\nEINFÜGE-Punkt angeben: ")
	)
	(SETQ	w2 	90
		kaisold 50
		r11	115
		l21	35
		l000w1	0
		AAA	"0"
		AAAA 	"VONLAYER"
		BBB	"0"
		BBBB	"VONLAYER"
		CCC	"0"
		CCCC	"VONLAYER"
		l005w4	(/ w2 2)
		l005x0	(/ b1 2)
		l005x1	(+ l005x0 r11)
		l005x2	35
		l005x3	r11
		l005x5	(+ b1 l005x3)
		l005x6	(+ kaisold l005x3 b1)
		l005x7	(- l005x3 kaisold)
		l005x8	22
		l005x9	10
		l005wp	(/ w2 5)
	)
	(SETQ	l005x11 (/ l005x1 (cos (* (/ PI 180) l005w4)))
		l005x22	(* l005x11 (sin (* (/ PI 180) l005w4)))
		l005p01	(POLAR l005p00 (+ (* (/ PI 180) 270) l000w1) l005x22)
		l005p02	(POLAR l005p01 (+ (* (/ PI 180) 270) l000w1) l005x2)
		l005p1	(POLAR l005p02 (+ (* (/ PI 180)   0) l000w1) l005x0)
		l005p2	(POLAR l005p02 (+ (* (/ PI 180) 180) l000w1) l005x0)
		l005p3	(POLAR l005p1  (+ (* (/ PI 180)  90) l000w1) l005x2)
		l005p05	(POLAR l005p01  (+ (* (/ PI 180)   0) l000w1) (+ l005x3 (/ B1 2)))
		l005p4	(POLAR l005p2  (+ (* (/ PI 180)  90) l000w1) l005x2)
		l005p5	(POLAR l005p05 (* (/ PI 180) (- 180 w2)) l005x5)
		l005p6	(POLAR l005p05 (* (/ PI 180) (- 180 w2)) l005x3)
		l005p7	(POLAR l005p5  (* (/ PI 180) (-  90 w2)) l21)
		l005p8	(POLAR l005p6  (* (/ PI 180) (-  90 w2)) l21)
		l005p9	(POLAR l005p1  (+ (* (/ PI 180)   0) l000w1) kaisold)
		l005p10	(POLAR l005p2  (+ (* (/ PI 180) 180) l000w1) kaisold)
		l005p11	(POLAR l005p9  (+ (* (/ PI 180)  90) l000w1) l005x2)
		l005p12	(POLAR l005p10 (+ (* (/ PI 180)  90) l000w1) l005x2)
		l005p13	(POLAR l005p05 (* (/ PI 180) (- 180 w2)) l005x6)
		l005p14	(POLAR l005p05 (* (/ PI 180) (- 180 w2)) l005x7)
		l005p15	(POLAR l005p13 (* (/ PI 180) (-  90 w2)) l21)
		l005p16	(POLAR l005p14 (* (/ PI 180) (-  90 w2)) l21)
;-------------------------------------------------------------------------------------------------------------;
;	Beschreibung:	Bogen-Flansch B1=B2 zeichnen.							      ;
;-------------------------------------------------------------------------------------------------------------;
		l005p17	(POLAR l005p2  (+ (* (/ PI 180) 180) l000w1) l005x8)
		l005p18	(POLAR l005p1  (+ (* (/ PI 180)   0) l000w1) l005x8)
		l005p19	(POLAR l005p17 (+ (* (/ PI 180)  90) l000w1) l005x9)
		l005p20	(POLAR l005p18 (+ (* (/ PI 180)  90) l000w1) l005x9)
		l005p21	(POLAR l005p7  (* (/ PI 180) (- 180 w2)) l005x8)
		l005p22	(POLAR l005p8  (* (/ PI 180) (- 360 w2)) l005x8)
		l005p23	(POLAR l005p21 (* (/ PI 180) (- 270 w2)) l005x9)
		l005p24	(POLAR l005p22 (* (/ PI 180) (- 270 w2)) l005x9)
;-------------------------------------------------------------------------------------------------------------;
;	Beschreibung:	Wipeout-Punkte Aussenradius zeichnen.						      ;
;-------------------------------------------------------------------------------------------------------------;
		l005pl1	 (POLAR l005p05  (* (/ PI 180) (- 180  5)) l005x5)
		l005pl2	 (POLAR l005p05  (* (/ PI 180) (- 180 10)) l005x5)
		l005pl3	 (POLAR l005p05  (* (/ PI 180) (- 180 15)) l005x5)
		l005pl4	 (POLAR l005p05  (* (/ PI 180) (- 180 20)) l005x5)
		l005pl5	 (POLAR l005p05  (* (/ PI 180) (- 180 25)) l005x5)
		l005pl6	 (POLAR l005p05  (* (/ PI 180) (- 180 30)) l005x5)
		l005pl7	 (POLAR l005p05  (* (/ PI 180) (- 180 35)) l005x5)
		l005pl8	 (POLAR l005p05  (* (/ PI 180) (- 180 40)) l005x5)
		l005pl9	 (POLAR l005p05  (* (/ PI 180) (- 180 45)) l005x5)
		l005pl10 (POLAR l005p05  (* (/ PI 180) (- 180 50)) l005x5)
		l005pl11 (POLAR l005p05  (* (/ PI 180) (- 180 55)) l005x5)
		l005pl12 (POLAR l005p05  (* (/ PI 180) (- 180 60)) l005x5)
		l005pl13 (POLAR l005p05  (* (/ PI 180) (- 180 65)) l005x5)
		l005pl14 (POLAR l005p05  (* (/ PI 180) (- 180 70)) l005x5)
		l005pl15 (POLAR l005p05  (* (/ PI 180) (- 180 75)) l005x5)
		l005pl16 (POLAR l005p05  (* (/ PI 180) (- 180 80)) l005x5)
		l005pl17 (POLAR l005p05  (* (/ PI 180) (- 180 85)) l005x5)
;-------------------------------------------------------------------------------------------------------------;
;	Beschreibung:	Wipeout-Punkte Innenradius zeichnen.						      ;
;-------------------------------------------------------------------------------------------------------------;
		l005pl21 (POLAR l005p05  (* (/ PI 180) (- 180  5)) l005x3)
		l005pl22 (POLAR l005p05  (* (/ PI 180) (- 180 10)) l005x3)
		l005pl23 (POLAR l005p05  (* (/ PI 180) (- 180 15)) l005x3)
		l005pl24 (POLAR l005p05  (* (/ PI 180) (- 180 20)) l005x3)
		l005pl25 (POLAR l005p05  (* (/ PI 180) (- 180 25)) l005x3)
		l005pl26 (POLAR l005p05  (* (/ PI 180) (- 180 30)) l005x3)
		l005pl27 (POLAR l005p05  (* (/ PI 180) (- 180 35)) l005x3)
		l005pl28 (POLAR l005p05  (* (/ PI 180) (- 180 40)) l005x3)
		l005pl29 (POLAR l005p05  (* (/ PI 180) (- 180 45)) l005x3)
		l005pl30 (POLAR l005p05  (* (/ PI 180) (- 180 50)) l005x3)
		l005pl31 (POLAR l005p05  (* (/ PI 180) (- 180 55)) l005x3)
		l005pl32 (POLAR l005p05  (* (/ PI 180) (- 180 60)) l005x3)
		l005pl33 (POLAR l005p05  (* (/ PI 180) (- 180 65)) l005x3)
		l005pl34 (POLAR l005p05  (* (/ PI 180) (- 180 70)) l005x3)
		l005pl35 (POLAR l005p05  (* (/ PI 180) (- 180 75)) l005x3)
		l005pl36 (POLAR l005p05  (* (/ PI 180) (- 180 80)) l005x3)
		l005pl37 (POLAR l005p05  (* (/ PI 180) (- 180 85)) l005x3)
	)
;-------------------------------------------------------------------------------------------------------------;
;	Beschreibung:	Wipeout zeichnen.							      	      ;
;-------------------------------------------------------------------------------------------------------------;
	(SETQ splinedicke (GETVAR "PLINEWID"))
	(SETVAR "PLINEWID" 0)
	(COMMAND "_clayer" AAA \r "_celtype" AAAA \r)
	(COMMAND "_pline" 	"_non" l005p3 "_non" l005p1 "_non" l005p2 "_non" l005p4 "_non" l005pl1
				"_non" l005pl2 "_non" l005pl3 "_non" l005pl4 "_non" l005pl5 "_non" l005pl6
				"_non" l005pl7 "_non" l005pl8 "_non" l005pl9 "_non" l005pl10 "_non" l005pl11
				"_non" l005pl12 "_non" l005pl13 "_non" l005pl14 "_non" l005pl15 "_non" l005pl16
				"_non" l005pl17 "_non" l005p5 "_non" l005p7 "_non" l005p8 "_non" l005p6				
				"_non" l005pl37 "_non" l005pl36 "_non" l005pl35 "_non" l005pl34 "_non" l005pl33
				"_non" l005pl32 "_non" l005pl31 "_non" l005pl30 "_non" l005pl29 "_non" l005pl28
				"_non" l005pl27 "_non" l005pl26 "_non" l005pl25 "_non" l005pl24 "_non" l005pl23
				"_non" l005pl22 "_non" l005pl21 "S"
	)	
	(SETQ W-elem (ENTLAST))
	(COMMAND "WIPEOUT" "" W-elem "J")
	(SETQ L-elem (SSADD (ENTLAST)))
;-------------------------------------------------------------------------------------------------------------;
;	Beschreibung:	Bogen zeichnen.							      		      ;
;-------------------------------------------------------------------------------------------------------------;
	(COMMAND "_arc" "Z" "_non" l005p05 "_non" l005p6 "_non" l005p3)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST)))
	(COMMAND "_arc" "Z" "_non" l005p05 "_non" l005p5 "_non" l005p4)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST) L-solid))
	(COMMAND "_line" "_non" l005p4 "_non" l005p2 \r)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST) L-solid))
	(COMMAND "_line" "_non" l005p1 "_non" l005p3 \r)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST) L-solid))
	(COMMAND "_line" "_non" l005p6 "_non" l005p8 \r)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST) L-solid))
	(COMMAND "_line" "_non" l005p7 "_non" l005p5 \r)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST) L-solid))
;-------------------------------------------------------------------------------------------------------------;
	(COMMAND "_line" "_non" l005p7 "_non" l005p8 \r)
	(SETQ L-elem (SSADD (ENTLAST) L-elem))
	(SETQ L-solid (SSADD (ENTLAST) L-solid))
;-------------------------------------------------------------------------------------------------------------;	
	(COMMAND "_line" "_non" l005p1 "_non" l005p2 \r)
;-------------------------------------------------------------------------------------------------------------;
	(IF (AND (< kaisold r11)(> kaisold 0))
		(PROGN	(COMMAND "_clayer" DDD \r "_celtype" DDDD \r)
			(COMMAND "_arc" "Z" "_non" l005p05 "_non" l005p13 "_non" l005p12)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_arc" "Z" "_non" l005p05 "_non" l005p14 "_non" l005p11)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND  "_line" "_non" l005p9 "_non" l005p11 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND  "_line" "_non" l005p12 "_non" l005p10 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND  "_line" "_non" l005p13 "_non" l005p15 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND  "_line" "_non" l005p14 "_non" l005p16 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
		)
	)
	(IF (= kaisold r11)
		(PROGN	(COMMAND "_clayer" DDD \r "_celtype" DDDD \r)
			(COMMAND "_arc" "Z" "_non" l005p05 "_non" l005p13 "_non" l005p12)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_line" "_non" l005p14 "_non" l005p16 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_line" "_non" l005p9 "_non" l005p11 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_line" "_non" l005p13 "_non" l005p15 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_line" "_non" l005p12 "_non" l005p10 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
		)
	)
	(IF (> kaisold r11)
		(PROGN	(COMMAND "_clayer" DDD \r "_celtype" DDDD \r)
			(COMMAND "_arc" "Z" "_non" l005p05 "_non" l005p13 "_non" l005p12)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_line" "_non" l005p13 "_non" l005p15 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
			(COMMAND "_line" "_non" l005p12 "_non" l005p10 \r)
			(SETQ L-elem (SSADD (ENTLAST) L-elem))
		)
	)
	(COMMAND "_rotate" L-elem "" "_non" l005p00 "\\")
)