t7 (polar t6 pi a1gpt)
t8 (polar t7(* pi 1.5)(-(/ de 2)(/ dvt 2)))
t9 (polar t8 0 a1gpt)
t10(polar t9 0 a2)
t11(list(car t10)(+ y0(/ dval 2)c))
t12 (list (-(car t11)c)(+ y0 (/ dval 2)))
t13 (list (+ x0 c)(+ y0 (/ dval 2)))
)
(osi_line t0 t00)
(command
"layer" "n" "ov" "l" "continuous" "ov" "s" "ov" ""
"pline" t0 "w" 1 1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t00 t11 t12 t13 t1 ""
"pline" t6 "w" 1 1 t9 ""
"pline" t12 (polar t12(pi15)dval) ""
"pline" t13 (polar t13(pi15)dval) ""
"bhatch" "p" "ansi31" 2 0 (polar t3 0 2) ""
"mirror" "all" "" t0(polar t0 0 50 ) ""
"dim1" "hor" t1 t10 (polar t1 (* pi 0.5)150) ""
"dim1" "hor" t4 t10 (polar t4 (* pi 0.5)25)""
"dim1" "hor" t7 t6 (polar t7 (* pi 0.5)65)""
"dim1" "hor" t6 t10 (polar t6 (* pi 0.5)65)""
"dim1" "hor" t11 t12 (polar t12(pi15)10)
(strcat(rtos c 2 2)"x45%%d")
"dim1" "hor" t13 t1 (polar t1(pi15)20)
(strcat(rtos c 2 2)"x45%%d")
"dim1" "ver" t5 (polar t5 (* pi 1.5)dd)(polar t00 0 45)
(strcat"%%c"(rtos dd 2 2))
"dim1" "ver" t6 (polar t6 (* pi 1.5)de)(polar t00 0 25)
(strcat"%%c"(rtos de 2 2))
"dim1" "ver" t10 (polar t10 (* pi 1.5)dvt)(polar t00 0 15)
(strcat"%%c"(rtos dvt 2 2))
"dim1" "ver" t2 (polar t2 (pi15) dvt)(polar t0 pi 30)
(strcat"%%c"(rtos dvt 2 2))
"dim1" "ver" t13 (polar t13 (* pi 1.5)dval)(polar t0 0 25)
(strcat"%%c"(rtos dval 2 2)posdval)
)
(obrabo (list (- xformat 40 ) (- yformat 25)) shero)
(obrab (polar(polar t13(pi15)dval) 0 14) sherdval 0)
(obrab (polar(polar t10(pi05)108) 0 0) shert -90)
(obrab (polar(polar t2(pi05)108) 0 0) shert 90)
(Toler_k (polar t10 (pi05)122) "" (polar(polar t10 (pi05)122)0 15)
(polar(polar(polar t10 (pi05)122)0 15)0 5)
"b" bienie "A")