제 리습 좀 봐주세요…

지금 리습을 사용하는데…여직껏 문제없이 사용하다..
이번에 길이가 18200짜리 계각을 그리다 보니 리습이 값을 인식을 못하는건지…좀 작은 계각들은 그려지는데…길어서 그런지 에러가 계속 납니다.
손 좀 봐주세요..ㅠ.ㅠ 당장 계각을 그려야하는데…제가 리습을 몰라서 어떻게 해야할지 모르겠습니다. 그래서 고수님들께 올려봅니다.. 답부탁드릴게요…^^;;

(DEFUN C:BR2 ( / PNT1 H1 H2 H3 H5 A1 ANG1 ANG2 ANG3 ANG4 S1 S2 S3 S4 S5 S6 ANG6
ZZ05 )
(GRAPHSCR)
(SETVAR “CMDECHO” 0)
(SETVAR “BLIPMODE” 0)
(SETQ A1 (DTR 0))
(SETQ SLOOP (GETREAL “스로프 입력 (###.###) : “))
(SETQ SL7 (SQRT (+ 1000000.0 (* SLOOP SLOOP) ) ) )
;;;; (SETQ SL8 (SQRT (+(* SL7 SL7) (* SLOOP SLOOP))))
(SETQ SL2 (SQRT (+ (* SLOOP SLOOP)(* SL7 SL7))))
(SETQ S (/ SLOOP SL2))
(SETVAR “OSMODE” 64)
(SETQ H1 (GETPOINT “수평재 중심 볼트 선택 : “))
(SETQ H2 (GETPOINT “포스트쪽 수평재 볼트 선택 : “))
(SETQ H3 (GETPOINT “포스트쪽 빽 브레싱 볼트 선택 : “))
(SETQ SA (GETINT “PLATE 사각 피치 (예:100) : “))
(SETQ JOINT1 (GETINT “기초재 G.L 에서 조인트 까지 수직높이 입력 : “))
(SETQ KI (GETINT “메인 포스트 기선 입력 : “))
(SETQ PFL (GETINT “메인 포스트 FLANGE 입력 : “))
(SETQ PTH (GETINT “메인 포스트 THICKNESS 입력 : “))
(SETQ PG1 (GETINT “메인 포스트 GAGE 1 입력 : “))
(SETQ PG2 (GETINT “메인 포스트 GAGE 2 입력 : “))
(IF (= OFL NIL) (SETQ OFL 45))
(IF (= OTH NIL) (SETQ OTH 4))
(IF (= OG1 NIL) (SETQ OG1 23))
(IF (= OE1 NIL) (SETQ OE1 25))
(IF (= OE2 NIL) (SETQ OE2 25))

(SETQ FL2 (GETINT (STRCAT “수평재 앵글 FLANGE (“(ITOA OFL) “) : “)))
(SETQ TH2 (GETINT (STRCAT “수평재 앵글 THICKNESS (“(ITOA OTH) “) : “)))
(SETQ G12 (GETINT (STRCAT “수평재 앵글 GAGE (“(ITOA OG1) “) : “)))
(SETQ E12 (GETINT (STRCAT “수평재 앵글 EDGE (“(ITOA OG1) “) : “)))
(IF (= FL2 NIL) (SETQ FL2 OFL))
(IF (= TH2 NIL) (SETQ TH2 OTH))
(IF (= G12 NIL) (SETQ G12 OG1))
(IF (= E12 NIL) (SETQ E12 OE1))
(SETQ OFL FL2) (SETQ OTH TH2) (SETQ OG1 G12) (SETQ OE1 E12)
(SETQ FL3 (GETINT (STRCAT “수평 마스 앵글 FLANGE(“(ITOA OFL) “) : “)))
(SETQ TH3 (GETINT (STRCAT “수평 마스 앵글 THICKNESS(“(ITOA OTH) “) : “)))
(SETQ G13 (GETINT (STRCAT “수평 마스 앵글 GAGE (“(ITOA OG1) “) : “)))
(SETQ E13 (GETINT (STRCAT “수평 마스 앵글 EDGE (“(ITOA OE1) “) : “)))
(IF (= FL3 NIL) (SETQ FL3 OFL))
(IF (= TH3 NIL) (SETQ TH3 OTH))
(IF (= G13 NIL) (SETQ G13 OG1))
(IF (= E13 NIL) (SETQ E13 OE1))
(SETQ OFL FL3) (SETQ OTH TH3) (SETQ OG1 G13) (SETQ OE1 E13)

(SETQ BLN (GETSTRING “미리 정해놓은 수평재 위쪽 블럭 이름 : “))
(SETQ E 3)
(WHILE E
(SETQ FL1 (GETINT (STRCAT “빽 브레싱 FLANGE(“(ITOA OFL) “) : “)))
(SETQ TH1 (GETINT (STRCAT “빽 브레싱 THICKNESS(“(ITOA OTH) “) : “)))
(SETQ G11 (GETINT (STRCAT “빽 브레싱 GAGE (“(ITOA OG1) “) : “)))
(SETQ E11 (GETINT (STRCAT “빽 브레싱 EDGE (“(ITOA OE1) “) : “)))
(IF (= FL1 NIL) (SETQ FL1 OFL))
(IF (= TH1 NIL) (SETQ TH1 OTH))
(IF (= G11 NIL) (SETQ G11 OG1))
(IF (= E11 NIL) (SETQ E11 OE1))
(SETQ OFL FL1) (SETQ OTH TH1) (SETQ OG1 G11) (SETQ OE1 E11)
(SETQ ANG1 (ANGLE H3 H2))
(SETVAR “OSMODE” 512)
(SETQ PNT1 (GETPOINT “LEG 그려질 POINT : “))
(SETQ H4 (GETINT “LEG 높이 입력 HEIGHT(500을 뺀값) (mm) : “))
(SETQ KE1 (/(* H4 SL2)1000))
(SETVAR “OSMODE” 0)
(SETQ PO1 (POLAR PNT1 ( + ANG1 (DTR 0)) 300))
(SETQ PO2 (POLAR PNT1 ( + ANG1 (DTR 180)) KE1))
(SETQ PO3 (POLAR PO2 ( + ANG1 (DTR 180))(/(* 500 SL2)1000)))
(SETQ PO4 (POLAR PO3 ( + ANG1 (DTR 90)) PG1))
(SETQ PO5 (POLAR PO4 ( + ANG1 (DTR 270)) PG2))
(SETQ PO6 (POLAR PO4 ( + ANG1 (DTR 270)) PFL))
(SETQ PO7 (POLAR PO4 ( + ANG1 (DTR 270)) PTH))
(SETQ PO8 (POLAR PO1 ( + ANG1 (DTR 90)) PG1))
(SETQ PO9 (POLAR PO8 ( + ANG1 (DTR 270)) PG2))
(SETQ PO10 (POLAR PO8 ( + ANG1 (DTR 270)) PFL))
(SETQ PO11 (POLAR PO8 ( + ANG1 (DTR 270)) PTH))
(SETQ PO12 (POLAR PO3 ( + A1 (DTR 180)) ( /(* PG1 SL7)1000)))
(SETQ PO13 (POLAR PO12 ( + ANG1 (DTR 0))(/(* JOINT1 SL2)1000)))

(SETQ SB1 (DISTANCE H1 H2))
(SETQ SB2 (POLAR PNT1 ( + A1 (DTR 0)) SB1))
(SETQ SB3 (POLAR SB2 ( + A1 (DTR 90)) G12))
(SETQ SB4 (POLAR SB3 ( + A1 (DTR 270)) TH2))
(SETQ SB5 (POLAR SB3 ( + A1 (DTR 270)) FL2))
(SETQ SB6 (POLAR SB3 ( + A1 (DTR 180)) (+ SB1 E12)))
(SETQ SB7 (POLAR SB4 ( + A1 (DTR 180)) (+ SB1 E12)))
(SETQ SB8 (POLAR SB5 ( + A1 (DTR 180)) (+ SB1 E12)))

(SETQ BC1 (DISTANCE PO2 SB2))
(SETQ ANG2 (ANGLE PO2 SB2))
(SETQ BC2 (POLAR PO2 ( + ANG2 (DTR 180)) E11))
(SETQ BC3 (POLAR BC2 ( + ANG2 (DTR 270)) G11))
(SETQ BC4 (POLAR BC3 ( + ANG2 (DTR 90)) TH1))
(SETQ BC5 (POLAR BC3 ( + ANG2 (DTR 90)) FL1))
(SETQ BC6 (POLAR SB8 ( + A1 (DTR 270)) 10))
(SETQ BC7 (POLAR BC6 ( + A1 (DTR 0)) 100000))
(SETQ BC8 (POLAR BC5 ( + ANG2 (DTR 0)) 20000))
(SETQ BC9 (INTERS BC5 BC8 BC6 BC7))
(SETQ BC10 (POLAR BC9 ( + ANG2 (DTR 270)) (- FL1 G11)))
(SETQ BC11 (DISTANCE BC10 SB2))
(SETQ BC19 (+(*(FIX (/ BC11 10))10)30))
(IF (= E11 25) (SETQ BC20 (+ BC19 5)))
(IF (= E11 30) (SETQ BC20 (+ BC19 0)))
(IF (= E11 35) (SETQ BC20 (+ BC19 5)))
(IF (= E11 40) (SETQ BC20 (+ BC19 0)))
(SETQ BC21 (POLAR SB2 ( + ANG2 (DTR 180)) BC20))
(SETQ BC22 (POLAR BC21 ( + ANG2 (DTR 270)) G11))
(SETQ BC23 (POLAR BC22 ( + ANG2 (DTR 90)) TH1))
(SETQ BC24 (POLAR BC22 ( + ANG2 (DTR 90)) FL1))

(COMMAND “LAYER” “S” “POST” “”)
(COMMAND “LINE” PO6 PO4 PO8 PO10 PO6 “”)
(COMMAND “LINETYPE” “S” “DASHED” “”)
(COMMAND “LINE” PO7 PO11 “”)
(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “GAGE” “”)
(COMMAND “LINETYPE” “S” “CENTER” “”)
(COMMAND “LINE” PO3 PO1 “”)
(COMMAND “LINE” PO5 PO9 “”)
(COMMAND “LINE” PO2 SB2 PNT1 “”)
(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “IBRACE” “”)
(COMMAND “LINE” SB6 SB8 SB5 SB3 SB6 “”)
(COMMAND “LINE” BC5 BC3 BC22 BC24 BC5 “”)
(COMMAND “LINETYPE” “S” “DASHED” “”)
(COMMAND “LINE” BC4 BC23 “”)
(COMMAND “LINE” SB7 SB4 “”)
(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “KISUN” “”)
(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “DC” “”)
(SETQ MP (POLAR PO4 ANG1 (/ (DISTANCE PO4 PO11) 3)))
(SETQ MP (POLAR MP (+ ANG1 (DTR 90)) 10))
(COMMAND “TEXT” MP “50” (RTD ANG1) (STRCAT “HL ” (ITOA PFL) “x ” (ITOA PTH)))
(SETQ MP1 (POLAR PO4 ANG1 (/ (DISTANCE PO4 PO11) 5)))
(SETQ MP2 (POLAR MP1 (+ ANG1 (DTR 270)) PG2))
(SETQ MP3 (POLAR MP2 (+ ANG1 (DTR 90)) 500))
(SETQ MP4 (POLAR MP3 (+ ANG1 (DTR 270)) (/(- 500 PG2)2)))
(COMMAND “LINE” MP2 MP3 “”)
(SETQ MP5 (POLAR MP4 (+ ANG1 (DTR 0))10))
(SETQ MP6 (POLAR MP4 (+ ANG1 (DTR 180))60))
(SETQ ANG (ANGLE MP3 MP2))
(command “text” “c” MP5 “40” (RTD ANG) (STRCAT (ITOA PG1)”,”(ITOA PG2)))
(command “text” “c” MP6 “40” (RTD ANG) (STRCAT “(“(ITOA KI)”)”))
(SETQ MP (POLAR BC5 ANG2 (/ (DISTANCE PO4 PO11) 2)))
(SETQ MP (POLAR MP (+ ANG2 (DTR 90)) 10))
(command “text” “c” MP “50” (RTD ANG2) (STRCAT “L “(ITOA FL1)” x “(ITOA TH1) “( G “(ITOA G11)” )”))
(SETQ MP (POLAR SB6 A1 (/ (DISTANCE SB6 SB3) 2)))
(SETQ MP (POLAR MP (+ A1 (DTR 90)) 10))
(command “text” “c” MP “50” (RTD A1) (STRCAT “L “(ITOA FL2)” x “(ITOA TH2)))
(SETQ K1 (POLAR SB3 ( + A1 (DTR 180)) 20000))
(SETQ K2 (INTERS SB3 K1 PO7 PO11))
(SETQ K3 (POLAR SB3 ( + A1 (DTR 0)) 1000))
(SETQ K4 (POLAR BC3 ( + ANG2 (DTR 0)) 20000))
(SETQ K5 (POLAR BC3 ( + ANG2 (DTR 180)) 20000))
(SETQ K6 (INTERS SB3 K3 BC3 K4))
(SETQ K7 (INTERS PO7 PO11 K5 BC3))
(SETQ K71 (DISTANCE K2 K6))
(SETQ K9 (DISTANCE K6 K7))
(SETQ K8 (SQRT (+(* K71 K71)(* K71 K71))))
(SETQ K10 (/ K8 2))
(SETQ K11 (SQRT(-(* K9 K9)(* K10 K10))))
(SETQ BA1 (POLAR K6 ( + ANG2 (DTR 270)) K10))
(SETQ BA2 (POLAR BA1 ( + ANG2 (DTR 180)) K11))
(SETQ ANG101 (ANGLE BA2 BA1))
(SETQ ANG3 (ANGLE BA2 K6))
(SETQ BA3 (POLAR BA1 ( + ANG2 (DTR 270)) (/(* K10 2)3)))
(SETQ BA4 (POLAR BA3 ( + ANG2 (DTR 180)) TH3 ))
(SETQ BA5 (POLAR BA3 ( + ANG2 (DTR 180)) G13 ))
(SETQ BA6 (POLAR BA3 ( + ANG2 (DTR 180)) FL3 ))
(SETQ BA7 (POLAR BA1 ( + ANG2 (DTR 90)) (/(* K10 2)3)))
(SETQ BA8 (POLAR BA7 ( + ANG2 (DTR 180)) TH3 ))
(SETQ BA9 (POLAR BA7 ( + ANG2 (DTR 180)) G13 ))
(SETQ BA10 (POLAR BA7 ( + ANG2 (DTR 180)) FL3 ))

(SETQ BA11 (DISTANCE BA2 K6))
(SETQ BA12 (POLAR BA2 ( + ANG3 (DTR 0)) (/ BA11 2)))
(SETQ BA13 (POLAR BA12 ( + ANG3 (DTR 0)) (/ BA11 3)))
(SETQ BA14 (POLAR BA13 ( + ANG3 (DTR 270)) TH1))
(SETQ BA15 (POLAR BA13 ( + ANG3 (DTR 270)) G11))
(SETQ BA16 (POLAR BA13 ( + ANG3 (DTR 270)) FL1))
(SETQ BA130 (POLAR BA12 ( + ANG3 (DTR 180)) (/ BA11 3)))
(SETQ BA140 (POLAR BA130 ( + ANG3 (DTR 270)) TH1 ))
(SETQ BA150 (POLAR BA130 ( + ANG3 (DTR 270)) G11))
(SETQ BA160 (POLAR BA130 ( + ANG3 (DTR 270)) FL1))

(SETQ BA17 (POLAR BA1 ( + ANG2 (DTR 270)) K10))
(SETQ ANG4 (ANGLE BA2 BA17))
(SETQ BA18 (POLAR BA2 ( + ANG4 (DTR 0)) (/ BA11 2)))
(SETQ BA19 (POLAR BA18 ( + ANG4 (DTR 0)) (/ BA11 3)))
(SETQ BA20 (POLAR BA19 ( + ANG4 (DTR 90)) TH1 ))
(SETQ BA21 (POLAR BA19 ( + ANG4 (DTR 90)) G11))
(SETQ BA22 (POLAR BA19 ( + ANG4 (DTR 90)) FL1))
(SETQ BA23 (POLAR BA18 ( + ANG4 (DTR 180)) (/ BA11 3)))
(SETQ BA24 (POLAR BA23 ( + ANG4 (DTR 90)) TH1 ))
(SETQ BA25 (POLAR BA23 ( + ANG4 (DTR 90)) G11))
(SETQ BA26 (POLAR BA23 ( + ANG4 (DTR 90)) FL1))

(COMMAND “LAYER” “S” “IBRACE” “”)
(COMMAND “LINE” BA10 BA7 BA3 BA6 BA10 “”)
(COMMAND “LINE” BA130 BA160 BA16 BA13 BA130 “”)
(COMMAND “LINE” BA23 BA26 BA22 BA19 BA23 “”)
(COMMAND “LINETYPE” “S” “DASHED” “”)
(COMMAND “LINE” BA8 BA4 “”)
(COMMAND “LINE” BA24 BA20 “”)
(COMMAND “LINE” BA14 BA140 “”)
(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “GAGE” “”)
(COMMAND “LINETYPE” “S” “CENTER” “”)
(COMMAND “LINE” BA15 BA150 “”)
(COMMAND “LINE” BA25 BA21 “”)
(COMMAND “LINE” BA9 BA5 “”)
(COMMAND “LINE” BA2 BA1 “”)
(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “DIM” “”)
(SETQ ANG (ANGLE BA1 BA3))
(SETQ MP (POLAR BA1 (+ ANG (DTR 90)) 10))
(command “text” “c” MP “50” (RTD ANG) (STRCAT “L “(ITOA FL3)” x “(ITOA TH3)”( G “(ITOA G13)” )”))
(COMMAND “LAYER” “S” “KISUN” “”)
(SETQ ANG5 (ANGLE H3 H2))
(SETQ ANG6 (ANGLE BA2 BA1))
(SETQ ANG7 (ANGLE BA23 BA19))
(SETQ AA1 (ABS (- 360 ANG5)))
(SETQ AA2 (ABS (- 360 ANG2)))
(SETQ AA3 (ABS (- 360 ANG3)))
(SETQ AA4 (ABS (- 360 ANG6)))
(SETQ AA5 (- AA1 AA2))
(SETQ AA6 (- AA3 AA4))
(SETQ X0 (+ G11 (/ SA 2)))
(SETQ X1 (*(/ X0 (TAN AA5))(TAN AA6)))
(SETQ X2 (SQRT (-(* X0 X0)(* X1 X1))))
(SETQ X3 (ABS (- X2 X0)))
(SETQ X4 (- (+ G11 SA) X3))
(SETQ X5 (* X4 (TAN AA6)))

(SETQ BB1 (DISTANCE K7 BC3))
(SETQ BB2 (DISTANCE PO2 SB2))

(IF (= DIA1A NIL) (SETQ DIA1A “M16”))
(IF (= BBL NIL) (SETQ BBL “50”))
(SETQ DIA1 (GETSTRING (STRCAT “볼트 사이즈 입력 (” DIA1A “x” BBL “): “)))
(IF (= DIA1 “”) (SETQ DIA1 DIA1A))
(IF (= DIA1 “16”) (SETQ DIA1 “M16”))
(IF (= DIA1 “20”) (SETQ DIA1 “M20”))
(IF (= DIA1 “22”) (SETQ DIA1 “M22”))
(IF (= DIA1 “24”) (SETQ DIA1 “M24”))
(SETVAR “OSMODE” 0)
(COMMAND “LAYER” “S” “BOLT” “”)
(SETQ LE (LENGTH DIA1))
(SETQ DIA (STRCAT DIA1 BBL))
(SETQ DIA1A DIA1)
(SETQ BLNA (STRCAT BLN”.DWG”))
(COMMAND “INSERT” BLNA SB2 1 1 0)
(COMMAND “INSERT” “JOINT.DWG” PO13 1 1 0)

(SETQ SH1 (POLAR PO3 ( + A1 (DTR 180)) 400))
(SETQ SH2 (POLAR SH1 ( + A1 (DTR 180)) 400))
(SETQ SH3 (POLAR SH2 ( + A1 (DTR 90)) (/(* SL7 500)1000)))
(SETQ SH4 (POLAR SH3 ( + A1 (DTR 0)) 400))
(SETQ SH5 (POLAR SH3 ( + A1 (DTR 90)) (/(* SL7 H4)1000)))
(SETQ SH6 (POLAR SH5 ( + A1 (DTR 0)) 400))
(SETQ SH7 (POLAR SH2 ( + A1 (DTR 180)) 200))
(SETQ SH8 (POLAR SH5 ( + A1 (DTR 180)) 200))
(SETQ SH9 (POLAR SH1 ( + A1 (DTR 180)) 200))
(SETQ SH10 (POLAR SH5 ( + A1 (DTR 0)) 200))
(SETQ SH11 (POLAR SH10 ( + A1 (DTR 90)) 100))

;; (COMMAND “INSERT” “GLM.DWG” SH9 1 1 0)
;; (COMMAND “INSERT” “DA.DWG” SH11 1 1 0)

(COMMAND “LINETYPE” “S” “CONTINUOUS” “”)
(COMMAND “LAYER” “S” “DIM” “”)
(COMMAND “LINE” SH1 SH2 SH5 SH6 “”)
(COMMAND “LINE” SH3 SH4 “”)
(COMMAND “LINE” SH2 SH7 SH8 SH5 “”)
(SETQ A3 (DTR 90))
(SETQ MP (POLAR SH2 A3 (/ (DISTANCE SH2 SH3) 2)))
(SETQ MP (POLAR MP (+ A1 (DTR 180)) 30))
(command “text” “c” MP “80” (RTD A3) (STRCAT “500”))
(SETQ MP (POLAR SH3 A3 (/ (DISTANCE SH3 SH5) 2)))
(SETQ MP (POLAR MP (+ A1 (DTR 180)) 30))
(command “text” “c” MP “80” (RTD A3) (STRCAT (ITOA H4)))
(SETQ MP (POLAR SH7 A3 (/ (DISTANCE SH7 SH8) 2)))
(SETQ MP (POLAR MP (+ A1 (DTR 180)) 30))
(SETQ SH9 (+ H4 500))
(command “text” “c” MP “80” (RTD A3) (STRCAT (ITOA SH9)))
(COMMAND “LAYER” “S” “BOLT” “”)

(SETQ CB (GETSTRING “절간 수 : (2) : (3) : (4) : (5) : (6) : (7) : (8) “))
(IF (= (STRCASE CB) “2”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ BB3 (/ BB2 2))
(SETQ BB4 (POLAR PO2 ( + ANG2 (DTR 0)) BB3 ))
(command “INSERT” DIA BB4 “” “” “”)
(SETQ BB5 (POLAR BB4 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA BB5 “” “” “”)
(SETQ BB6 (POLAR BB4 ( + A1 (DTR 180)) 10000 ))
(SETQ BB7 (INTERS PO9 PO5 BB4 BB6))
(command “INSERT” DIA BB7 “” “” “”)
(SETQ BB8 (+ (+ BB1 E11) BB3))
(SETQ BB9 (POLAR BA2 ( + ANG7 (DTR 0)) BB8 ))
(SETQ BB10 (POLAR BB9 ( + ANG7 (DTR 0)) SA ))
(SETQ BB11 (POLAR BA2 ( + ANG3 (DTR 0)) BB8 ))
(SETQ BB12 (POLAR BB11 ( + ANG3 (DTR 0)) SA ))
(SETQ BB13 (POLAR BB9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA BB13 “” “” “”)
(SETQ BB14 (POLAR BB10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA BB14 “” “” “”)
(SETQ BB15 (POLAR BB11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA BB15 “” “” “”)
(SETQ BB16 (POLAR BB12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA BB16 “” “” “”)
(SETQ BB17 (POLAR BB9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA BB17 “” “” “”)
(SETQ BB18 (POLAR BB10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA BB18 “” “” “”)
(SETQ BB19 (POLAR BB11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA BB19 “” “” “”)
(SETQ BB20 (POLAR BB12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA BB20 “” “” “”)
(SETQ BB21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ BB22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ BB23 (POLAR BB21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA BB23 “” “” “”)
(SETQ BB24 (POLAR BB22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA BB24 “” “” “”)
(SETQ BB25 (POLAR BB21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA BB25 “” “” “”)
(SETQ BB26 (POLAR BB22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA BB26 “” “” “”)))

(IF (= (STRCASE CB) “3”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ DI1 (/ BB2 3))
(SETQ V1 (POLAR PO2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V1 “” “” “”)
(SETQ V2 (POLAR V1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V2 “” “” “”)
(SETQ V3 (POLAR V1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V3 “” “” “”)
(SETQ V4 (POLAR V2 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V4 “” “” “”)
(SETQ V5 (POLAR V1 ( + A1 (DTR 180)) 10000 ))
(SETQ V6 (INTERS PO9 PO5 V1 V5))
(command “INSERT” DIA V6 “” “” “”)
(SETQ V7 (POLAR V2 ( + A1 (DTR 180)) 10000 ))
(SETQ V8 (INTERS PO9 PO5 V2 V7))
(command “INSERT” DIA V8 “” “” “”)
(SETQ VV1 (POLAR V8 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV1 “” “” “”)
(SETQ DI2 (+ (+ BB1 E11) DI1))
(SETQ V9 (POLAR BA2 ( + ANG7 (DTR 0)) DI2 ))
(SETQ V10 (POLAR V9 ( + ANG7 (DTR 0)) SA ))
(SETQ V11 (POLAR BA2 ( + ANG3 (DTR 0)) DI2 ))
(SETQ V12 (POLAR V11 ( + ANG3 (DTR 0)) SA ))
(SETQ V13 (POLAR V9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V13 “” “” “”)
(SETQ V14 (POLAR V10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V14 “” “” “”)
(SETQ V15 (POLAR V11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V15 “” “” “”)

(SETQ V16 (POLAR V12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V16 “” “” “”)
(SETQ V17 (POLAR V9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V17 “” “” “”)
(SETQ V18 (POLAR V10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V18 “” “” “”)
(SETQ V19 (POLAR V11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V19 “” “” “”)
(SETQ V20 (POLAR V12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V20 “” “” “”)
(SETQ V21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ V22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ V23 (POLAR V21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V23 “” “” “”)
(SETQ V24 (POLAR V22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V24 “” “” “”)
(SETQ V25 (POLAR V21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V25 “” “” “”)
(SETQ V26 (POLAR V22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V26 “” “” “”)
(SETQ V27 (POLAR V17 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V27 “” “” “”)
(SETQ V28 (POLAR V18 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V28 “” “” “”)
(SETQ V29 (POLAR V13 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V29 “” “” “”)
(SETQ V30 (POLAR V14 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V30 “” “” “”)
(SETQ V31 (POLAR V19 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V31 “” “” “”)
(SETQ V32 (POLAR V20 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V32 “” “” “”)
(SETQ V33 (POLAR V15 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V33 “” “” “”)

(SETQ HP2 (INTERS BA1 BA2 V33 V29))
(SETQ HP21 (POLAR HP2 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP22 (POLAR HP2 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP21 “” “” “”)
(command “INSERT” DIA HP22 “” “” “”)

(SETQ V34 (POLAR V16 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V34 “” “” “”)))

(IF (= (STRCASE CB) “4”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ DI1 (/ BB2 4))
(SETQ V1 (POLAR PO2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V1 “” “” “”)
(SETQ V2 (POLAR V1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V2 “” “” “”)
(SETQ V3 (POLAR V1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V3 “” “” “”)
(SETQ V4 (POLAR V2 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V4 “” “” “”)
(SETQ W1 (POLAR V2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA W1 “” “” “”)
(SETQ W2 (POLAR W1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA W2 “” “” “”)
(SETQ V5 (POLAR V1 ( + A1 (DTR 180)) 10000 ))
(SETQ V6 (INTERS PO9 PO5 V1 V5))
(command “INSERT” DIA V6 “” “” “”)
(SETQ V7 (POLAR V2 ( + A1 (DTR 180)) 10000 ))
(SETQ V8 (INTERS PO9 PO5 V2 V7))
(command “INSERT” DIA V8 “” “” “”)
(SETQ VV1 (POLAR V8 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV1 “” “” “”)
(SETQ W3 (POLAR W1 ( + A1 (DTR 180)) 10000 ))
(SETQ W4 (INTERS PO9 PO5 W1 W3))
(command “INSERT” DIA W4 “” “” “”)
(SETQ VV2 (POLAR W4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV2 “” “” “”)
(SETQ DI2 (+ (+ BB1 E11) DI1))
(SETQ V9 (POLAR BA2 ( + ANG7 (DTR 0)) DI2 ))
(SETQ V10 (POLAR V9 ( + ANG7 (DTR 0)) SA ))
(SETQ V11 (POLAR BA2 ( + ANG3 (DTR 0)) DI2 ))
(SETQ V12 (POLAR V11 ( + ANG3 (DTR 0)) SA ))
(SETQ V13 (POLAR V9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V13 “” “” “”)
(SETQ V14 (POLAR V10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V14 “” “” “”)
(SETQ V15 (POLAR V11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V15 “” “” “”)
(SETQ V16 (POLAR V12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V16 “” “” “”)
(SETQ V17 (POLAR V9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V17 “” “” “”)
(SETQ V18 (POLAR V10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V18 “” “” “”)
(SETQ V19 (POLAR V11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V19 “” “” “”)
(SETQ V20 (POLAR V12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V20 “” “” “”)
(SETQ V21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ V22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ V23 (POLAR V21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V23 “” “” “”)
(SETQ V24 (POLAR V22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V24 “” “” “”)
(SETQ V25 (POLAR V21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V25 “” “” “”)
(SETQ V26 (POLAR V22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V26 “” “” “”)
(SETQ V27 (POLAR V17 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V27 “” “” “”)
(SETQ V28 (POLAR V18 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V28 “” “” “”)
(SETQ V29 (POLAR V13 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V29 “” “” “”)
(SETQ V30 (POLAR V14 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V30 “” “” “”)
(SETQ W5 (POLAR V27 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W5 “” “” “”)
(SETQ W6 (POLAR V29 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W6 “” “” “”)
(SETQ W7 (POLAR V30 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W7 “” “” “”)
(SETQ W8 (POLAR V28 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W8 “” “” “”)
(SETQ V31 (POLAR V19 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V31 “” “” “”)
(SETQ V32 (POLAR V20 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V32 “” “” “”)
(SETQ V33 (POLAR V15 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V33 “” “” “”)
(SETQ V34 (POLAR V16 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V34 “” “” “”)
(SETQ W9 (POLAR V31 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W9 “” “” “”)
(SETQ W10 (POLAR V33 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W10 “” “” “”)
(SETQ W11 (POLAR V32 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W11 “” “” “”)

(SETQ HP2 (INTERS BA1 BA2 V33 V29))
(SETQ HP21 (POLAR HP2 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP22 (POLAR HP2 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP21 “” “” “”)
(command “INSERT” DIA HP22 “” “” “”)
(SETQ HP3 (INTERS BA1 BA2 W10 W6))
(SETQ HP31 (POLAR HP3 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP32 (POLAR HP3 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP31 “” “” “”)
(command “INSERT” DIA HP32 “” “” “”)

(SETQ W12 (POLAR V34 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W12 “” “” “”)))

(IF (= (STRCASE CB) “5”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ DI1 (/ BB2 5))
(SETQ V1 (POLAR PO2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V1 “” “” “”)
(SETQ V2 (POLAR V1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V2 “” “” “”)
(SETQ V3 (POLAR V1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V3 “” “” “”)
(SETQ V4 (POLAR V2 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V4 “” “” “”)
(SETQ W1 (POLAR V2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA W1 “” “” “”)
(SETQ W2 (POLAR W1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA W2 “” “” “”)
(SETQ Y1 (POLAR W1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Y1 “” “” “”)
(SETQ Y2 (POLAR Y1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Y2 “” “” “”)
(SETQ V5 (POLAR V1 ( + A1 (DTR 180)) 10000 ))
(SETQ V6 (INTERS PO9 PO5 V1 V5))
(command “INSERT” DIA V6 “” “” “”)
(SETQ V7 (POLAR V2 ( + A1 (DTR 180)) 10000 ))
(SETQ V8 (INTERS PO9 PO5 V2 V7))
(command “INSERT” DIA V8 “” “” “”)
(SETQ VV1 (POLAR V8 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV1 “” “” “”)
(SETQ W3 (POLAR W1 ( + A1 (DTR 180)) 10000 ))
(SETQ W4 (INTERS PO9 PO5 W1 W3))
(command “INSERT” DIA W4 “” “” “”)
(SETQ VV2 (POLAR W4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV2 “” “” “”)
(SETQ Y3 (POLAR Y1 ( + A1 (DTR 180)) 10000 ))
(SETQ Y4 (INTERS PO9 PO5 Y1 Y3))
(command “INSERT” DIA Y4 “” “” “”)
(SETQ YY1 (POLAR Y4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA YY1 “” “” “”)
(SETQ DI2 (+ (+ BB1 E11) DI1))
(SETQ V9 (POLAR BA2 ( + ANG7 (DTR 0)) DI2 ))
(SETQ V10 (POLAR V9 ( + ANG7 (DTR 0)) SA ))
(SETQ V11 (POLAR BA2 ( + ANG3 (DTR 0)) DI2 ))
(SETQ V12 (POLAR V11 ( + ANG3 (DTR 0)) SA ))
(SETQ V13 (POLAR V9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V13 “” “” “”)
(SETQ V14 (POLAR V10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V14 “” “” “”)
(SETQ V15 (POLAR V11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V15 “” “” “”)
(SETQ V16 (POLAR V12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V16 “” “” “”)
(SETQ V17 (POLAR V9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V17 “” “” “”)
(SETQ V18 (POLAR V10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V18 “” “” “”)
(SETQ V19 (POLAR V11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V19 “” “” “”)
(SETQ V20 (POLAR V12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V20 “” “” “”)
(SETQ V21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ V22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ V23 (POLAR V21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V23 “” “” “”)
(SETQ V24 (POLAR V22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V24 “” “” “”)
(SETQ V25 (POLAR V21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V25 “” “” “”)
(SETQ V26 (POLAR V22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V26 “” “” “”)
(SETQ V27 (POLAR V17 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V27 “” “” “”)
(SETQ V28 (POLAR V18 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V28 “” “” “”)
(SETQ V29 (POLAR V13 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V29 “” “” “”)
(SETQ V30 (POLAR V14 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V30 “” “” “”)
(SETQ W5 (POLAR V27 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W5 “” “” “”)
(SETQ W6 (POLAR V29 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W6 “” “” “”)
(SETQ W7 (POLAR V30 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W7 “” “” “”)
(SETQ W8 (POLAR V28 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W8 “” “” “”)
(SETQ V31 (POLAR V19 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V31 “” “” “”)
(SETQ V32 (POLAR V20 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V32 “” “” “”)
(SETQ V33 (POLAR V15 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V33 “” “” “”)
(SETQ V34 (POLAR V16 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V34 “” “” “”)
(SETQ W9 (POLAR V31 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W9 “” “” “”)
(SETQ W10 (POLAR V33 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W10 “” “” “”)
(SETQ W11 (POLAR V32 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W11 “” “” “”)
(SETQ W12 (POLAR V34 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W12 “” “” “”)
(SETQ Y5 (POLAR W5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y5 “” “” “”)
(SETQ Y6 (POLAR W6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y6 “” “” “”)
(SETQ Y7 (POLAR W7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y7 “” “” “”)
(SETQ Y8 (POLAR W8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y8 “” “” “”)
(SETQ Y9 (POLAR W9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y9 “” “” “”)
(SETQ Y10 (POLAR W10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y10 “” “” “”)
(SETQ Y11 (POLAR W11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y11 “” “” “”)
(SETQ Y12 (POLAR W12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y12 “” “” “”)

(SETQ HP3 (INTERS BA1 BA2 W10 W6))
(SETQ HP31 (POLAR HP3 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP32 (POLAR HP3 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP31 “” “” “”)
(command “INSERT” DIA HP32 “” “” “”)
(SETQ HP4 (INTERS BA1 BA2 Y10 Y6))
(SETQ HP41 (POLAR HP4 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP42 (POLAR HP4 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP41 “” “” “”)
(command “INSERT” DIA HP42 “” “” “”)

))
(IF (= (STRCASE CB) “6”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ DI1 (/ BB2 6))
(SETQ V1 (POLAR PO2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V1 “” “” “”)
(SETQ V2 (POLAR V1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V2 “” “” “”)
(SETQ V3 (POLAR V1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V3 “” “” “”)
(SETQ V4 (POLAR V2 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V4 “” “” “”)
(SETQ W1 (POLAR V2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA W1 “” “” “”)
(SETQ W2 (POLAR W1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA W2 “” “” “”)
(SETQ Y1 (POLAR W1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Y1 “” “” “”)
(SETQ Y2 (POLAR Y1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Y2 “” “” “”)
(SETQ Z1 (POLAR Y1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Z1 “” “” “”)
(SETQ Z2 (POLAR Z1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Z2 “” “” “”)
(SETQ V5 (POLAR V1 ( + A1 (DTR 180)) 10000 ))
(SETQ V6 (INTERS PO9 PO5 V1 V5))
(command “INSERT” DIA V6 “” “” “”)
(SETQ V7 (POLAR V2 ( + A1 (DTR 180)) 10000 ))
(SETQ V8 (INTERS PO9 PO5 V2 V7))
(command “INSERT” DIA V8 “” “” “”)
(SETQ VV1 (POLAR V8 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV1 “” “” “”)
(SETQ W3 (POLAR W1 ( + A1 (DTR 180)) 10000 ))
(SETQ W4 (INTERS PO9 PO5 W1 W3))
(command “INSERT” DIA W4 “” “” “”)
(SETQ Z3 (POLAR Z1 ( + A1 (DTR 180)) 10000 ))
(SETQ Z4 (INTERS PO9 PO5 Z1 Z3))
(command “INSERT” DIA Z4 “” “” “”)
(SETQ VV2 (POLAR W4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV2 “” “” “”)
(SETQ Y3 (POLAR Y1 ( + A1 (DTR 180)) 10000 ))
(SETQ Y4 (INTERS PO9 PO5 Y1 Y3))
(command “INSERT” DIA Y4 “” “” “”)
(SETQ YY1 (POLAR Y4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA YY1 “” “” “”)
(SETQ ZZ1 (POLAR Z4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA ZZ1 “” “” “”)
(SETQ DI2 (+ (+ BB1 E11) DI1))
(SETQ V9 (POLAR BA2 ( + ANG7 (DTR 0)) DI2 ))
(SETQ V10 (POLAR V9 ( + ANG7 (DTR 0)) SA ))
(SETQ V11 (POLAR BA2 ( + ANG3 (DTR 0)) DI2 ))
(SETQ V12 (POLAR V11 ( + ANG3 (DTR 0)) SA ))
(SETQ V13 (POLAR V9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V13 “” “” “”)
(SETQ V14 (POLAR V10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V14 “” “” “”)
(SETQ V15 (POLAR V11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V15 “” “” “”)
(SETQ V16 (POLAR V12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V16 “” “” “”)
(SETQ V17 (POLAR V9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V17 “” “” “”)
(SETQ V18 (POLAR V10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V18 “” “” “”)
(SETQ V19 (POLAR V11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V19 “” “” “”)
(SETQ V20 (POLAR V12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V20 “” “” “”)
(SETQ V21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ V22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ V23 (POLAR V21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V23 “” “” “”)
(SETQ V24 (POLAR V22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V24 “” “” “”)
(SETQ V25 (POLAR V21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V25 “” “” “”)
(SETQ V26 (POLAR V22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V26 “” “” “”)
(SETQ V27 (POLAR V17 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V27 “” “” “”)
(SETQ V28 (POLAR V18 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V28 “” “” “”)
(SETQ V29 (POLAR V13 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V29 “” “” “”)
(SETQ V30 (POLAR V14 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V30 “” “” “”)
(SETQ W5 (POLAR V27 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W5 “” “” “”)
(SETQ W6 (POLAR V29 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W6 “” “” “”)
(SETQ W7 (POLAR V30 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W7 “” “” “”)
(SETQ W8 (POLAR V28 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W8 “” “” “”)
(SETQ V31 (POLAR V19 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V31 “” “” “”)
(SETQ V32 (POLAR V20 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V32 “” “” “”)
(SETQ V33 (POLAR V15 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V33 “” “” “”)
(SETQ V34 (POLAR V16 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V34 “” “” “”)
(SETQ W9 (POLAR V31 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W9 “” “” “”)
(SETQ W10 (POLAR V33 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W10 “” “” “”)
(SETQ W11 (POLAR V32 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W11 “” “” “”)
(SETQ W12 (POLAR V34 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W12 “” “” “”)
(SETQ Y5 (POLAR W5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y5 “” “” “”)
(SETQ Y6 (POLAR W6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y6 “” “” “”)
(SETQ Y7 (POLAR W7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y7 “” “” “”)
(SETQ Y8 (POLAR W8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y8 “” “” “”)
(SETQ Z5 (POLAR Y5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z5 “” “” “”)
(SETQ Z6 (POLAR Y6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z6 “” “” “”)
(SETQ Z7 (POLAR Y7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z7 “” “” “”)
(SETQ Z8 (POLAR Y8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z8 “” “” “”)
(SETQ Y9 (POLAR W9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y9 “” “” “”)
(SETQ Y10 (POLAR W10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y10 “” “” “”)
(SETQ Y11 (POLAR W11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y11 “” “” “”)
(SETQ Y12 (POLAR W12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y12 “” “” “”)
(SETQ Z9 (POLAR Y9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z9 “” “” “”)
(SETQ Z10 (POLAR Y10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z10 “” “” “”)
(SETQ Z11 (POLAR Y11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z11 “” “” “”)
(SETQ Z12 (POLAR Y12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z12 “” “” “”)

(SETQ HP3 (INTERS BA1 BA2 W10 W6))
(SETQ HP31 (POLAR HP3 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP32 (POLAR HP3 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP31 “” “” “”)
(command “INSERT” DIA HP32 “” “” “”)
(SETQ HP4 (INTERS BA1 BA2 Y10 Y6))
(SETQ HP41 (POLAR HP4 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP42 (POLAR HP4 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP41 “” “” “”)
(command “INSERT” DIA HP42 “” “” “”)
(SETQ HP5 (INTERS BA1 BA2 Z10 Z6))
(SETQ HP51 (POLAR HP5 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP52 (POLAR HP5 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP51 “” “” “”)
(command “INSERT” DIA HP52 “” “” “”)

))

(IF (= (STRCASE CB) “7”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ DI1 (/ BB2 7))
(SETQ V1 (POLAR PO2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V1 “” “” “”)
(SETQ V2 (POLAR V1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V2 “” “” “”)
(SETQ V3 (POLAR V1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V3 “” “” “”)
(SETQ V4 (POLAR V2 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V4 “” “” “”)
(SETQ W1 (POLAR V2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA W1 “” “” “”)
(SETQ W2 (POLAR W1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA W2 “” “” “”)
(SETQ Y1 (POLAR W1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Y1 “” “” “”)
(SETQ Y2 (POLAR Y1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Y2 “” “” “”)
(SETQ Z1 (POLAR Y1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Z1 “” “” “”)
(SETQ Z2 (POLAR Z1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Z2 “” “” “”)
(SETQ YZ1 (POLAR Z1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA YZ1 “” “” “”)
(SETQ YZ2 (POLAR YZ1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA YZ2 “” “” “”)
(SETQ V5 (POLAR V1 ( + A1 (DTR 180)) 10000 ))
(SETQ V6 (INTERS PO9 PO5 V1 V5))
(command “INSERT” DIA V6 “” “” “”)
(SETQ V7 (POLAR V2 ( + A1 (DTR 180)) 10000 ))
(SETQ V8 (INTERS PO9 PO5 V2 V7))
(command “INSERT” DIA V8 “” “” “”)
(SETQ VV1 (POLAR V8 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV1 “” “” “”)
(SETQ W3 (POLAR W1 ( + A1 (DTR 180)) 10000 ))
(SETQ W4 (INTERS PO9 PO5 W1 W3))
(command “INSERT” DIA W4 “” “” “”)
(SETQ Z3 (POLAR Z1 ( + A1 (DTR 180)) 10000 ))
(SETQ Z4 (INTERS PO9 PO5 Z1 Z3))
(command “INSERT” DIA Z4 “” “” “”)
(SETQ YZ3 (POLAR YZ1 ( + A1 (DTR 180)) 10000 ))
(SETQ YZ4 (INTERS PO9 PO5 YZ1 YZ3))
(command “INSERT” DIA YZ4 “” “” “”)
(SETQ VV2 (POLAR W4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV2 “” “” “”)
(SETQ Y3 (POLAR Y1 ( + A1 (DTR 180)) 10000 ))
(SETQ Y4 (INTERS PO9 PO5 Y1 Y3))
(command “INSERT” DIA Y4 “” “” “”)
(SETQ YY1 (POLAR Y4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA YY1 “” “” “”)
(SETQ ZZ1 (POLAR Z4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA ZZ1 “” “” “”)
(SETQ XYZ (POLAR YZ4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XYZ “” “” “”)
(SETQ DI2 (+ (+ BB1 E11) DI1))
(SETQ V9 (POLAR BA2 ( + ANG7 (DTR 0)) DI2 ))
(SETQ V10 (POLAR V9 ( + ANG7 (DTR 0)) SA ))
(SETQ V11 (POLAR BA2 ( + ANG3 (DTR 0)) DI2 ))
(SETQ V12 (POLAR V11 ( + ANG3 (DTR 0)) SA ))
(SETQ V13 (POLAR V9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V13 “” “” “”)
(SETQ V14 (POLAR V10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V14 “” “” “”)
(SETQ V15 (POLAR V11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V15 “” “” “”)
(SETQ V16 (POLAR V12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V16 “” “” “”)
(SETQ V17 (POLAR V9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V17 “” “” “”)
(SETQ V18 (POLAR V10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V18 “” “” “”)
(SETQ V19 (POLAR V11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V19 “” “” “”)
(SETQ V20 (POLAR V12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V20 “” “” “”)
(SETQ V21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ V22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ V23 (POLAR V21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V23 “” “” “”)
(SETQ V24 (POLAR V22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V24 “” “” “”)
(SETQ V25 (POLAR V21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V25 “” “” “”)
(SETQ V26 (POLAR V22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V26 “” “” “”)
(SETQ V27 (POLAR V17 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V27 “” “” “”)
(SETQ V28 (POLAR V18 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V28 “” “” “”)
(SETQ V29 (POLAR V13 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V29 “” “” “”)
(SETQ V30 (POLAR V14 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V30 “” “” “”)
(SETQ W5 (POLAR V27 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W5 “” “” “”)
(SETQ W6 (POLAR V29 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W6 “” “” “”)
(SETQ W7 (POLAR V30 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W7 “” “” “”)
(SETQ W8 (POLAR V28 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W8 “” “” “”)
(SETQ V31 (POLAR V19 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V31 “” “” “”)
(SETQ V32 (POLAR V20 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V32 “” “” “”)
(SETQ V33 (POLAR V15 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V33 “” “” “”)
(SETQ V34 (POLAR V16 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V34 “” “” “”)
(SETQ W9 (POLAR V31 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W9 “” “” “”)
(SETQ W10 (POLAR V33 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W10 “” “” “”)
(SETQ W11 (POLAR V32 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W11 “” “” “”)
(SETQ W12 (POLAR V34 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W12 “” “” “”)
(SETQ Y5 (POLAR W5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y5 “” “” “”)
(SETQ Y6 (POLAR W6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y6 “” “” “”)
(SETQ Y7 (POLAR W7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y7 “” “” “”)
(SETQ Y8 (POLAR W8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y8 “” “” “”)
(SETQ Z5 (POLAR Y5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z5 “” “” “”)
(SETQ Z6 (POLAR Y6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z6 “” “” “”)
(SETQ Z7 (POLAR Y7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z7 “” “” “”)
(SETQ Z8 (POLAR Y8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z8 “” “” “”)
(SETQ YZ5 (POLAR Z5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ5 “” “” “”)
(SETQ YZ6 (POLAR Z6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ6 “” “” “”)
(SETQ YZ7 (POLAR Z7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ7 “” “” “”)
(SETQ YZ8 (POLAR Z8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ8 “” “” “”)
(SETQ Y9 (POLAR W9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y9 “” “” “”)
(SETQ Y10 (POLAR W10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y10 “” “” “”)
(SETQ Y11 (POLAR W11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y11 “” “” “”)
(SETQ Y12 (POLAR W12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y12 “” “” “”)
(SETQ Z9 (POLAR Y9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z9 “” “” “”)
(SETQ Z10 (POLAR Y10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z10 “” “” “”)
(SETQ Z11 (POLAR Y11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z11 “” “” “”)
(SETQ Z12 (POLAR Y12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z12 “” “” “”)
(SETQ YZ9 (POLAR Z9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ9 “” “” “”)
(SETQ YZ10 (POLAR Z10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ10 “” “” “”)
(SETQ YZ11 (POLAR Z11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ11 “” “” “”)
(SETQ YZ12 (POLAR Z12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ12 “” “” “”)
(SETQ HP3 (INTERS BA1 BA2 W10 W6))
(SETQ HP31 (POLAR HP3 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP32 (POLAR HP3 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP31 “” “” “”)
(command “INSERT” DIA HP32 “” “” “”)
(SETQ HP4 (INTERS BA1 BA2 Y10 Y6))
(SETQ HP41 (POLAR HP4 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP42 (POLAR HP4 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP41 “” “” “”)
(command “INSERT” DIA HP42 “” “” “”)
(SETQ HP5 (INTERS BA1 BA2 Z10 Z6))
(SETQ HP51 (POLAR HP5 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP52 (POLAR HP5 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP51 “” “” “”)
(command “INSERT” DIA HP52 “” “” “”)
(SETQ HP6 (INTERS BA1 BA2 YZ10 YZ6))
(SETQ HP61 (POLAR HP6 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP62 (POLAR HP6 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP61 “” “” “”)
(command “INSERT” DIA HP62 “” “” “”)

))
(IF (= (STRCASE CB) “8”) (PROGN
(SETQ XY1 (INTERS PNT1 SB2 PO9 PO5))
(SETQ XY2 (POLAR XY1 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XY2 “” “” “”)
(SETQ DI1 (/ BB2 8))
(SETQ V1 (POLAR PO2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V1 “” “” “”)
(SETQ V2 (POLAR V1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA V2 “” “” “”)
(SETQ V3 (POLAR V1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V3 “” “” “”)
(SETQ V4 (POLAR V2 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA V4 “” “” “”)
(SETQ W1 (POLAR V2 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA W1 “” “” “”)
(SETQ W2 (POLAR W1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA W2 “” “” “”)
(SETQ Y1 (POLAR W1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Y1 “” “” “”)
(SETQ Y2 (POLAR Y1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Y2 “” “” “”)
(SETQ Z1 (POLAR Y1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA Z1 “” “” “”)
(SETQ Z2 (POLAR Z1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA Z2 “” “” “”)
(SETQ YZ1 (POLAR Z1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA YZ1 “” “” “”)
(SETQ YZ2 (POLAR YZ1 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA YZ2 “” “” “”)
(SETQ HSP01 (POLAR YZ1 ( + ANG2 (DTR 0)) DI1 ))
(command “INSERT” DIA HSP01 “” “” “”)
(SETQ HSP02 (POLAR HSP01 ( + ANG2 (DTR 0)) SA ))
(command “INSERT” DIA HSP02 “” “” “”)
(SETQ V5 (POLAR V1 ( + A1 (DTR 180)) 10000 ))
(SETQ V6 (INTERS PO9 PO5 V1 V5))
(command “INSERT” DIA V6 “” “” “”)
(SETQ V7 (POLAR V2 ( + A1 (DTR 180)) 10000 ))
(SETQ V8 (INTERS PO9 PO5 V2 V7))
(command “INSERT” DIA V8 “” “” “”)
(SETQ VV1 (POLAR V8 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV1 “” “” “”)
(SETQ W3 (POLAR W1 ( + A1 (DTR 180)) 10000 ))
(SETQ W4 (INTERS PO9 PO5 W1 W3))
(command “INSERT” DIA W4 “” “” “”)
(SETQ Z3 (POLAR Z1 ( + A1 (DTR 180)) 10000 ))
(SETQ Z4 (INTERS PO9 PO5 Z1 Z3))
(command “INSERT” DIA Z4 “” “” “”)
(SETQ YZ3 (POLAR YZ1 ( + A1 (DTR 180)) 10000 ))
(SETQ YZ4 (INTERS PO9 PO5 YZ1 YZ3))
(command “INSERT” DIA YZ4 “” “” “”)
(SETQ HSP03 (POLAR HSP01 ( + A1 (DTR 180)) 10000 ))
(SETQ HSP04 (INTERS PO9 PO5 HSP01 HSP03))
(command “INSERT” DIA HSP04 “” “” “”)
(SETQ VV2 (POLAR W4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA VV2 “” “” “”)
(SETQ Y3 (POLAR Y1 ( + A1 (DTR 180)) 10000 ))
(SETQ Y4 (INTERS PO9 PO5 Y1 Y3))
(command “INSERT” DIA Y4 “” “” “”)
(SETQ YY1 (POLAR Y4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA YY1 “” “” “”)
(SETQ ZZ1 (POLAR Z4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA ZZ1 “” “” “”)
(SETQ XYZ (POLAR YZ4 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA XYZ “” “” “”)
(SETQ HSP05 (POLAR HSP04 ( + ANG1 (DTR 180)) SA ))
(command “INSERT” DIA HSP05 “” “” “”)
(SETQ DI2 (+ (+ BB1 E11) DI1))
(SETQ V9 (POLAR BA2 ( + ANG7 (DTR 0)) DI2 ))
(SETQ V10 (POLAR V9 ( + ANG7 (DTR 0)) SA ))
(SETQ V11 (POLAR BA2 ( + ANG3 (DTR 0)) DI2 ))
(SETQ V12 (POLAR V11 ( + ANG3 (DTR 0)) SA ))
(SETQ V13 (POLAR V9 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V13 “” “” “”)
(SETQ V14 (POLAR V10 ( + ANG7 (DTR 90)) X4 ))
(command “INSERT” DIA V14 “” “” “”)
(SETQ V15 (POLAR V11 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V15 “” “” “”)
(SETQ V16 (POLAR V12 ( + ANG3 (DTR 270)) X4 ))
(command “INSERT” DIA V16 “” “” “”)
(SETQ V17 (POLAR V9 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V17 “” “” “”)
(SETQ V18 (POLAR V10 ( + ANG7 (DTR 90)) G11 ))
(command “INSERT” DIA V18 “” “” “”)
(SETQ V19 (POLAR V11 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V19 “” “” “”)
(SETQ V20 (POLAR V12 ( + ANG3 (DTR 270)) G11 ))
(command “INSERT” DIA V20 “” “” “”)
(SETQ V21 (POLAR BA1 ( + ANG2 (DTR 270)) (/ SA 2 )))
(SETQ V22 (POLAR BA1 ( + ANG2 (DTR 90)) (/ SA 2 )))
(SETQ V23 (POLAR V21 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V23 “” “” “”)
(SETQ V24 (POLAR V22 ( + ANG2 (DTR 180)) (+ SA G13)))
(command “INSERT” DIA V24 “” “” “”)
(SETQ V25 (POLAR V21 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V25 “” “” “”)
(SETQ V26 (POLAR V22 ( + ANG2 (DTR 180)) G13))
(command “INSERT” DIA V26 “” “” “”)
(SETQ V27 (POLAR V17 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V27 “” “” “”)
(SETQ V28 (POLAR V18 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V28 “” “” “”)
(SETQ V29 (POLAR V13 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V29 “” “” “”)
(SETQ V30 (POLAR V14 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA V30 “” “” “”)
(SETQ W5 (POLAR V27 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W5 “” “” “”)
(SETQ W6 (POLAR V29 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W6 “” “” “”)
(SETQ W7 (POLAR V30 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W7 “” “” “”)
(SETQ W8 (POLAR V28 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA W8 “” “” “”)
(SETQ V31 (POLAR V19 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V31 “” “” “”)
(SETQ V32 (POLAR V20 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V32 “” “” “”)
(SETQ V33 (POLAR V15 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V33 “” “” “”)
(SETQ V34 (POLAR V16 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA V34 “” “” “”)
(SETQ W9 (POLAR V31 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W9 “” “” “”)
(SETQ W10 (POLAR V33 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W10 “” “” “”)
(SETQ W11 (POLAR V32 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W11 “” “” “”)
(SETQ W12 (POLAR V34 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA W12 “” “” “”)
(SETQ Y5 (POLAR W5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y5 “” “” “”)
(SETQ Y6 (POLAR W6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y6 “” “” “”)
(SETQ Y7 (POLAR W7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y7 “” “” “”)
(SETQ Y8 (POLAR W8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Y8 “” “” “”)
(SETQ Z5 (POLAR Y5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z5 “” “” “”)
(SETQ Z6 (POLAR Y6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z6 “” “” “”)
(SETQ Z7 (POLAR Y7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z7 “” “” “”)
(SETQ Z8 (POLAR Y8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA Z8 “” “” “”)
(SETQ YZ5 (POLAR Z5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ5 “” “” “”)
(SETQ YZ6 (POLAR Z6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ6 “” “” “”)
(SETQ YZ7 (POLAR Z7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ7 “” “” “”)
(SETQ YZ8 (POLAR Z8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA YZ8 “” “” “”)
(SETQ HSP005 (POLAR YZ5 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA HSP005 “” “” “”)
(SETQ HSP006 (POLAR YZ6 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA HSP006 “” “” “”)
(SETQ HSP007 (POLAR YZ7 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA HSP007 “” “” “”)
(SETQ HSP008 (POLAR YZ8 ( + ANG7 (DTR 0)) DI1))
(command “INSERT” DIA HSP008 “” “” “”)
(SETQ Y9 (POLAR W9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y9 “” “” “”)
(SETQ Y10 (POLAR W10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y10 “” “” “”)
(SETQ Y11 (POLAR W11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y11 “” “” “”)
(SETQ Y12 (POLAR W12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Y12 “” “” “”)
(SETQ Z9 (POLAR Y9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z9 “” “” “”)
(SETQ Z10 (POLAR Y10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z10 “” “” “”)
(SETQ Z11 (POLAR Y11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z11 “” “” “”)
(SETQ Z12 (POLAR Y12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA Z12 “” “” “”)
(SETQ YZ9 (POLAR Z9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ9 “” “” “”)
(SETQ YZ10 (POLAR Z10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ10 “” “” “”)
(SETQ YZ11 (POLAR Z11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ11 “” “” “”)
(SETQ YZ12 (POLAR Z12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA YZ12 “” “” “”)
(SETQ HSP001 (POLAR YZ9 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA HSP001 “” “” “”)
(SETQ HSP002 (POLAR YZ10 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA HSP002 “” “” “”)
(SETQ HSP003 (POLAR YZ11 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA HSP003 “” “” “”)
(SETQ HSP004 (POLAR YZ12 ( + ANG3 (DTR 0)) DI1))
(command “INSERT” DIA HSP004 “” “” “”)

(SETQ HP3 (INTERS BA1 BA2 W10 W6))
(SETQ HP31 (POLAR HP3 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP32 (POLAR HP3 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP31 “” “” “”)
(command “INSERT” DIA HP32 “” “” “”)
(SETQ HP4 (INTERS BA1 BA2 Y10 Y6))
(SETQ HP41 (POLAR HP4 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP42 (POLAR HP4 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP41 “” “” “”)
(command “INSERT” DIA HP42 “” “” “”)
(SETQ HP5 (INTERS BA1 BA2 Z10 Z6))
(SETQ HP51 (POLAR HP5 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP52 (POLAR HP5 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP51 “” “” “”)
(command “INSERT” DIA HP52 “” “” “”)
(SETQ HP6 (INTERS BA1 BA2 YZ10 YZ6))
(SETQ HP61 (POLAR HP6 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP62 (POLAR HP6 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP61 “” “” “”)
(command “INSERT” DIA HP62 “” “” “”)
(SETQ HP7 (INTERS BA1 BA2 HSP002 HSP006))
(SETQ HP71 (POLAR HP7 ( + ANG101 (DTR 90)) (/ SA 2)))
(SETQ HP72 (POLAR HP7 ( + ANG101 (DTR 270)) (/ SA 2)))
(command “INSERT” DIA HP71 “” “” “”)
(command “INSERT” DIA HP72 “” “” “”)

))
))