(setq ti1 (getdist cen “n H-BEAM thikness1 :”))요부분에서 (오류 잘몾된 인수유형 numberp:nil)
라고 뜨네요 아찍까진 리습에 잘몰라서 어떠케해야하는지 부탁합니다 (CAD2008)
(defun c:HS ()
(graphscr)
(PROMPT “n PLATE DETAIL PROGRAM n”)
(setvar “cmdecho” 0)
(setvar “dimasz” 1.0)
(setvar “dimgap” 1)
(setvar “dimtad” 1)
(setvar “dimdli” 0)
(setvar “dimclrd” 7)
(setvar “dimclre” 7)
(setvar “dimclrt” 2)
(setvar “dimldrblk” “.”)
(command “dim1” “dimblk” “dot” )
(setq lay (getvar “clayer”))
(setq cen (getpoint “n H-BEAM Center point ? “))
(setq dep (getdist cen “n H-BEAM Depth :”))
(setq wid (getdist cen “n H-BEAM Width :”))
(if (= wid nil)(setq wid dep))
(setq ti1 (getdist cen “n H-BEAM thikness1 :”))
(setq tiw ti1)
(setq ti11 (* 1 symscl))
; (if (< ti1 ti11)(setq ti1 ti11))
(setq ti2 (getdist cen “n H-BEAM thikness2 :”))
(setq tif ti1)
(setq ti22 (* 1 symscl))
; (if (< ti2 ti22)(setq ti2 ti22))
(setq po (getvar “osmode”))
(setvar “orthomode” 1)
; (setq rot (getpoint cen “n ROTATE ANGLE : “))
(setq rot (polar cen (dtr -90) 100))
(setvar “osmode” po)
(setq ang (angle cen rot)
di1 (polar cen ang (/ dep 2))
dis (distance cen di1)
bc (polar cen ang dis)
r1 (polar bc (+ ang (dtr 90)) (/ wid 2))
r2 (polar r1 (+ ang (dtr 180)) ti2)
r3 (polar r2 (- ang (dtr 90)) (- (/ wid 2) (+ ti2 (/ ti1 2))))
kr1 (polar r3 (- ang (dtr 90)) ti2 )
kr2 (polar kr1 (- ang (dtr 180)) ti2 )
r4 (polar kr2 (+ ang (dtr 180)) (- dep (* ti2 4)))
kr3 (polar r4 (+ ang (dtr 180)) ti2 )
kr4 (polar kr3 (+ ang (dtr 90)) ti2 )
r5 (polar kr4 (+ ang (dtr 90)) (- (/ wid 2) (+ ti2 (/ ti1 2))))
r6 (polar r5 (+ ang (dtr 180)) ti2)
; right point
l1 (polar bc (- ang (dtr 90)) (/ wid 2))
l2 (polar l1 (+ ang (dtr 180)) ti2)
l3 (polar l2 (+ ang (dtr 90)) (- (/ wid 2) (+ ti2 (/ ti1 2))))
kl1 (polar l3 (+ ang (dtr 90)) ti2)
kl2 (polar kl1 (- ang (dtr 180)) ti2)
l4 (polar kl2 (- ang (dtr 180)) (- dep (* ti2 4)))
kl3 (polar l4 (- ang (dtr 180)) ti2)
kl4 (polar kl3 (- ang (dtr 90)) ti2)
l5 (polar kl4 (- ang (dtr 90)) (- (/ wid 2) (+ ti2 (/ ti1 2))))
l6 (polar l5 (- ang (dtr 180)) ti2)
cel (polar cen ang (/ dep 1.5))
ceu (polar cen (- ang (dtr 180))(/ dep 1.5)))
; left point
(command “layer” “m” “lin” “c” “3” “” “” )
(setvar “osmode” 0)
(command “pline” l1 “w” 0 0 r1 r2 r3 “a” kr2 “l” r4 “a” kr4 “l” r5 r6
l6 l5 kl4 “a” l4 “l” kl2 “a” l3 “l” l2 “c”)
(command “arc” kr4 “e” r4 “d” r3 )
(command “arc” r3 “e” kr2 “d” kr4 )
(command “arc” kl4 “e” l4 “d” l3 )
(command “arc” l3 “e” kl2 “d” kl4 )
(command “layer” “m” “cen” “c” “7” “” “” )
(command “line” cel ceu “”)
(setq gage 45 )
(setq pla (strcase (getstring (strcat “n PLATE Nea side/Far side/Both <B>:”))))
(if (= pla “”)(setq pla “B”))
(setq fhol (getreal “n Plate first hole :”))
(setq holq (getint “n Hole Q’ty :”))
(setq holp (getint “n Hole pitch :”))
(cond
((= pla “B”)
(setq eqp (strcase (getstring (strcat “n PLATE Side Equal Yes/No ? <Y>:”))))
(if (= eqp “”)(setq eqp “Y”))
(setq pl1 (polar l5 ang (- fhol ti2 40 ) ))
(if (>= holq 2)
(progn
(setq pl2 (polar pl1 (- ang (dtr 90)) 85 ))
(setq pl3 (polar pl2 ang (+ (* holp (- holq 1)) 80 )))
(setq pl4 (polar pl3 (+ ang (dtr 90)) 85 ))
)
(progn
(setq pl2 (polar pl1 (- ang (dtr 90)) (+ holp 85) ))
(setq pl3 (polar pl2 ang (+ (* holp (- holq 1)) 80 )))
(setq pl4 (polar pl3 (+ ang (dtr 90)) (+ holp 85) ))
)
)
(setq ppl1 ( polar pl1 (+ ang (dtr 180)) 15 ))
(setq ppl2 ( polar pl1 (- ang (dtr 90)) 15 ))
(setq ph1 (polar l6 (- ang (dtr 90)) gage ))
(setq ph2 (polar ph1 ang fhol))
(setq ppl3 ( polar pl4 ang 15 ))
(setq ppl4 ( polar pl4 (- ang (dtr 90)) 15 ))
(command “layer” “m” “lin” “”)
; (command “line” l5 pl1 pl2 pl3 pl4 l2 “”)
(command “pline” l5 ppl1 “a” “d” pl1 ppl2 “l” pl2 pl3 ppl4 “a” “d” pl4 ppl3 “l” l2 “”)
(setq ve1 (polar pl2 (- ang (dtr 90)) (* 20 symscl) ))
(setq ve2 (polar pl2 (- ang (dtr 90)) (+ (* 20 symscl) (* symscl 10)) ))
(command “layer” “m” “dim” “c” “7” “” “”)
; (command “dim1” “ver” l6 l5 ve1 tif ))
; (pause)
(setq i 0 )
(setq i1 (- holq 1))
(while (<= i i1)
(setq ph3 (polar ph2 ang (* holp i) ))
(if (= holq 1)
(setq ph31(polar ph3 (- ang (dtr 90)) holp )))
(if (= i 0)
(progn (setq f-l (- fhol tif))
(command “dim1” “ver” l5 ph3 ve1 “”)
(command “dim1” “ver” l6 ph3 ve2 “”)
)
(progn
(if (>= i1 3)
(setvar “dimdli” 0)
(command “dim1” “con” ph3 “”)
)
)
)
(setq i (1+ i))
(command “insert” “*c:/lisp/hole” ph3 “” “”))
(if (= holq 1)
(command “insert” “*c:/lisp/hole” ph31 “” “”))
(if (>= holq 4)
(progn
(setvar “dimdli” 0)
(setq me11 (strcat (itoa i1)”@”(itoa holp)))
(command “dim1” “con” ph3 me11)
(setq toth (/ (distance pl2 pl3) 2 ))
(setq tot1 (polar pl2 ang toth))
(setq tot2 (polar tot1 (- ang (dtr 90))
(- (+ (* 20 symscl) (* symscl 10)) (+ (* 1.25 symscl) (* 2.5 symscl)))))
(setq hap (* i1 holp))
(setq tot (strcat “=”(itoa hap)))
(setq ccc (getvar “CECOLOR”))
(command “color” 2)
(command “text” “j” “c” tot2 “” 90 tot)
(setvar “CECOLOR” ccc)
)
)
(if (>= holq 4)
(progn
(setq las (- dep (+ fhol hap tif)))
(command “dim1” “ver” ph3 l2 ve1 “”)
)
(command “dim1” “ver” ph3 l2 ve1 “”)
)
(if (= eqp “Y”)
(progn
(setq pr1 (polar r5 ang (- fhol ti2 40 ) ))
(if (>= holq 2)
(progn
(setq pr2 (polar pr1 (+ ang (dtr 90)) 85 ))
(setq pr3 (polar pr2 ang (+ (* holp (- holq 1)) 80 )))
(setq pr4 (polar pr3 (- ang (dtr 90)) 85 ))
)
(progn
(setq pr2 (polar pr1 (+ ang (dtr 90)) (+ holp 85) ))
(setq pr3 (polar pr2 ang (+ (* holp (- holq 1)) 80 )))
(setq pr4 (polar pr3 (- ang (dtr 90)) (+ holp 85) ))
)
)
(setq ppr1 ( polar pr1 (+ ang (dtr 180)) 15 ))
(setq ppr2 ( polar pr1 (+ ang (dtr 90)) 15 ))
(setq phr1 (polar r6 (+ ang (dtr 90)) gage ))
(setq phr2 (polar phr1 ang fhol))
(setq ppr3 ( polar pr4 ang 15 ))
(setq ppr4 ( polar pr4 (+ ang (dtr 90)) 15 ))
(command “layer” “m” “lin” “” )
; (command “line” r5 pr1 pr2 pr3 pr4 r2 “”)
(command “pline” r5 ppr1 “a” “d” pr1 ppr2 “l” pr2 pr3 ppr4 “a” “d” pr4 ppr3 “l” r2 “”)
(setq ve3 (polar pr2 (+ ang (dtr 90)) (* 20 symscl) ))
(command “layer” “m” “dim” “” )
(setq e 0 )
(setq e1 (- holq 1))
(while (<= e e1)
(setq phr3 (polar phr2 ang (* holp e) ))
(if (= holq 1)
(setq phr31 (polar phr3 (+ ang (dtr 90)) holp )))
(if (= e 0)
(progn (command “dim1” “ver” r6 phr3 ve3 “”)
)
(progn
(if (>= e1 3)
(setvar “dimdli” 0)
(command “dim1” “con” phr3 “”)
)
)
)
(setq e (1+ e))
(command “insert” “*c:/lisp/hole” phr3 “” “”))
(if (= holq 1)
(command “insert” “*c:/lisp/hole” phr31 “” “”))
(if (>= holq 4)
(progn
(setq me12 (strcat (itoa e1)”@”(itoa holp)))
(command “dim1” “con” phr3 me12)
(setq toth (/ (distance pr2 pr3) 2 ))
(setq tot1 (polar pr2 ang toth))
(setq tot2 (polar tot1 (+ ang (dtr 90))
(+ (* 20 symscl) (+ (* 1.25 symscl) (* 2.5 symscl)))))
(setq hap (* i1 holp))
(setq tot (strcat “=”(itoa hap)))
(setq ccc (getvar “CECOLOR”))
(command “color” 2)
(command “text” “j” “c” tot2 “” 90 tot)
(setvar “CECOLOR” ccc)
)
)
)
(progn
(setq fhol (getreal “n Plate first hole :”))
(setq holq (getint “n Hole Q’ty :”))
(setq holp (getint “n Hole pitch :”))
(setq pr1 (polar r5 ang (- fhol ti2 40 ) ))
(if (>= holq 2)
(progn
(setq pr2 (polar pr1 (+ ang (dtr 90)) 85 ))
(setq pr3 (polar pr2 ang (+ (* holp (- holq 1)) 80 )))
(setq pr4 (polar pr3 (- ang (dtr 90)) 85 ))
)
(progn
(setq pr2 (polar pr1 (+ ang (dtr 90)) (+ holp 85) ))
(setq pr3 (polar pr2 ang (+ (* holp (- holq 1)) 80 )))
(setq pr4 (polar pr3 (- ang (dtr 90)) (+ holp 85) ))
)
)
(setq ppr1 ( polar pr1 (+ ang (dtr 180)) 15 ))
(setq ppr2 ( polar pr1 (+ ang (dtr 90)) 15 ))
(setq phr1 (polar r6 (+ ang (dtr 90)) gage ))
(setq phr2 (polar phr1 ang fhol))
(setq ppr3 ( polar pr4 ang 15 ))
(setq ppr4 ( polar pr4 (+ ang (dtr 90)) 15 ))
(command “layer” “m” “lin” “” )
; (command “line” r5 pr1 pr2 pr3 pr4 r2 “”)
(command “pline” r5 ppr1 “a” “d” pr1 ppr2 “l” pr2 pr3 ppr4 “a” “d” pr4 ppr3 “l” r2 “”)
; (command “pline” r5 pr1 ppr1 “a” ppr2 “l” pr3 pr4 r2 “”)
(setq ve1 (polar pr2 (+ ang (dtr 90)) (* 20 symscl) ))
(setq ve2 (polar pr2 (+ ang (dtr 90)) (+ (* 20 symscl) (* symscl 10)) ))
(command “layer” “m” “dim” “” )
; (command “dim1” “ver” r6 r5 ve1 “”)
(setq e 0 )
(setq e1 (- holq 1))
(while (<= e e1)
(setq phr3 (polar phr2 ang (* holp e) ))
(if (= holq 1)
(setq phr31 (polar phr3 (+ ang (dtr 90)) holp )))
(if (= e 0)
(progn (setq f-l (- fhol tif))
(command “dim1” “ver” r5 phr3 ve1 “”)
(command “dim1” “ver” r6 phr3 ve2 “”)
)
(progn
(if (>= e1 3)
(setvar “dimdli” 0)
(command “dim1” “con” phr3 “”)
)
)
)
(setq e (1+ e))
(command “insert” “*c:/lisp/hole” phr3 “” “”))
(if (= holq 1)
(command “insert” “*c:/lisp/hole” phr31 “” “”))
(if (>= holq 4)
(progn
(setq me1 (strcat (itoa e1)”@”(itoa holp)))
(command “dim1” “con” phr3 me1)
(setq toth (/ (distance pr2 pr3) 2 ))
(setq tot1 (polar pr2 ang toth))
(setq tot2 (polar tot1 (+ ang (dtr 90))
(+ (+ (* 20 symscl) (* symscl 10)) (+ (* 1.25 symscl) (* 2.5 symscl)))))
(setq hap (* e1 holp))
(setq tot (strcat “=”(itoa hap)))
(setq ccc (getvar “CECOLOR”))
(command “color” 2)
(command “text” “j” “c” tot2 “” 90 tot)
(setvar “CECOLOR” ccc)
)
)
)
)
(setq di1 (polar r6 (- ang (dtr 180)) (* 30 symscl)))
(setq di2 (polar r6 (- ang (dtr 180)) (+ (* 30 symscl) (* symscl 10)) ))
; (setq hor1(+ (- (/ wid 2) (fix (/ tiw 2))) gage ))
; (setq hor1(rtos hor1 2 0))
(setq hor1(fix (+ (/ (- wid tiw) 2) gage )))
(command “dim1” “hor” ph3 l4 di1 hor1)
(if (= holq 1)
(command “dim1” “hor” ph3 ph31 di2 “”))
(command “dim1” “hor” ph3 ceu di2 “”)
(command “dim1” “con” phr3 “”)
(if (= holq 1)
(command “dim1” “hor” phr3 phr31 di2 “”))
(if (= eqp “N”) (command “dim1” “hor” phr3 r4 di1 hor1))
(if (= eqp “N”)
(progn (setq las (- dep (+ fhol hap tif)))
(command “dim1” “ver” phr3 r2 ve1 “”)
)
)
)
((= pla “N”)
(setq pl1 (polar l5 ang (- fhol ti2 40 ) ))
(if (>= holq 2)
(progn
(setq pl2 (polar pl1 (- ang (dtr 90)) 85 ))
(setq pl3 (polar pl2 ang (+ (* holp (- holq 1)) 80 )))
(setq pl4 (polar pl3 (+ ang (dtr 90)) 85 ))
)
(progn
(setq pl2 (polar pl1 (- ang (dtr 90)) (+ holp 85) ))
(setq pl3 (polar pl2 ang (+ (* holp (- holq 1)) 80 )))
(setq pl4 (polar pl3 (+ ang (dtr 90)) (+ holp 85) ))
)
)
(setq ppl1 ( polar pl1 (+ ang (dtr 180)) 15 ))
(setq ppl2 ( polar pl1 (- ang (dtr 90)) 15 ))
(setq ph1 (polar l6 (- ang (dtr 90)) gage ))
(setq ph2 (polar ph1 ang fhol))
(setq ppl3 ( polar pl4 ang 15 ))
(setq ppl4 ( polar pl4 (- ang (dtr 90)) 15 ))
(command “layer” “m” “lin” “” )
(command “pline” l5 ppl1 “a” “d” pl1 ppl2 “l” pl2 pl3 ppl4 “a” “d” pl4 ppl3 “l” l2 “”)
; (command “line” l5 pl1 pl2 pl3 pl4 l2 “”)
(command “line” r5 r2 “”)
(setq ve1 (polar pl2 (- ang (dtr 90)) (* 20 symscl) ))
(setq ve2 (polar pl2 (- ang (dtr 90)) (+ (* 20 symscl) (* symscl 10)) ))
(command “layer” “m” “dim” “” )
(PROMPT “n secton 1 “)
(command “dim1” “ver” l6 l5 ve1 “”)
(setq i 0 )
(setq i1 (- holq 1))
(while (<= i i1)
(setq ph3 (polar ph2 ang (* holp i) ))
(if (= holq 1)
(setq ph31(polar ph3 (- ang (dtr 90)) holp )))
(if (= i 0)
(progn (command “dim1” “ver” l5 ph3 ve1 “”)
(command “dim1” “ver” l6 ph3 ve2 “”)
(PROMPT “n secton 2 “)
)
(progn
(if (>= i1 3)
(setvar “dimdli” 0)
(command “dim1” “con” ph3 “”)
)
)
)
(setq i (1+ i))
(command “insert” “*c:/lisp/hole” ph3 “” “”))
(if (= holq 1)
(command “insert” “*c:/lisp/hole” ph31 “” “”))
(if (>= holq 4)
(progn
(setvar “dimdli” 0)
(setq me14 (strcat (itoa i1)”@”(itoa holp)))
(command “dim1” “con” ph3 me14)
(setq toth (/ (distance pl2 pl3) 2 ))
(setq tot1 (polar pl2 ang toth))
(setq tot2 (polar tot1 (- ang (dtr 90))
(- (+ (* 20 symscl) (* symscl 10)) (+ (* 1.25 symscl) (* 2.5 symscl)))))
(setq hap (* i1 holp))
(setq tot (strcat “=”(itoa hap)))
(setq ccc (getvar “CECOLOR”))
(command “color” 2)
(command “text” “j” “c” tot2 “” 90 tot)
(setvar “CECOLOR” ccc)
)
)
(setvar “dimdli” 0)
(command “dim1” “ver” ph3 l2 ve1 “”)
(setq di1 (polar l6 (- ang (dtr 180)) (* 30 symscl)))
(setq di2 (polar l6 (- ang (dtr 180)) (+ (* 30 symscl) (* symscl 10)) ))
(setq di3 (polar r6 (+ ang (dtr 90)) (* 30 symscl) ))
(command “layer” “m” “dim” “” )
; (setq hor1(+ (- (/ wid 2) (fix (/ tiw 2))) gage ))
; (setq hor1(rtos hor1 2 0))
(setq hor1(fix (+ (/ (- wid tiw) 2) gage )))
(command “dim1” “hor” ph3 l4 di1 hor1)
(setvar “dimdli” 10)
(command “dim1” “base” ceu “”)
; (setq hor1(+ (- (/ wid 2) (fix (/ tiw 2))) gage ))
; (setq hor1(rtos hor1 2 0))
(setq hor2(fix (/ (- wid tiw) 2)))
(command “dim1” “hor” r6 r4 di1 hor2)
(if (= holq 1)
(command “dim1” “hor” ph3 ph31 di2 “”))
(setq hor3(fix (- dep (* tif 2))))
(command “dim1” “ver” r5 r2 di3 “”)
)
((= pla “F”)
(setq pr1 (polar r5 ang (- fhol ti2 40 ) ))
(if (>= holq 2)
(progn
(setq pr2 (polar pr1 (+ ang (dtr 90)) 85 ))
(setq pr3 (polar pr2 ang (+ (* holp (- holq 1)) 80 )))
(setq pr4 (polar pr3 (- ang (dtr 90)) 85 ))
)
(progn
(setq pr2 (polar pr1 (+ ang (dtr 90)) (+ holp 85) ))
(setq pr3 (polar pr2 ang (+ (* holp (- holq 1)) 80 )))
(setq pr4 (polar pr3 (- ang (dtr 90)) (+ holp 85) ))
)
)
(setq ppr1 ( polar pr1 (+ ang (dtr 180)) 15 ))
(setq ppr2 ( polar pr1 (+ ang (dtr 90)) 15 ))
(setq phr1 (polar r6 (+ ang (dtr 90)) gage ))
(setq phr2 (polar phr1 ang fhol))
(setq ppr3 ( polar pr4 ang 15 ))
(setq ppr4 ( polar pr4 (+ ang (dtr 90)) 15 ))
(command “layer” “m” “lin” “” )
(command “pline” r5 ppr1 “a” “d” pr1 ppr2 “l” pr2 pr3 ppr4 “a” “d” pr4 ppr3 “l” r2 “”)
(command “line” l5 l2 “”)
(setq ve1 (polar pr2 (+ ang (dtr 90)) (* 20 symscl) ))
(setq ve2 (polar pr2 (+ ang (dtr 90)) (+ (* 20 symscl) (* symscl 10)) ))
(command “layer” “m” “dim” “” )
(command “dim1” “ver” r6 r5 ve1 “”)
(setq e 0 )
(setq e1 (- holq 1))
(while (<= e e1)
(setq phr3 (polar phr2 ang (* holp e) ))
(if (= holq 1)
(setq phr31 (polar phr3 (+ ang (dtr 90)) holp )))
(setvar “dimdli” 0)
(if (= e 0)
(progn (command “dim1” “ver” r5 phr3 ve1 “”)
(command “dim1” “ver” r6 phr3 ve2 “”)
)
(progn
(if (>= e1 3)
(setvar “dimdli” 0)
(command “dim1” “con” phr3 “”)
)
)
)
(setq e (1+ e))
(command “insert” “*c:/lisp/hole” phr3 “” “”))
(if (= holq 1)
(command “insert” “*c:/lisp/hole” phr31 “” “”))
(if (>= holq 4)
(progn
(PROMPT “ secton 11 “)
(setq me15 (strcat (itoa e1)”@”(itoa holp)))
(command “dim1” “con” phr3 me15)
(setq toth (/ (distance pr2 pr3) 2 ))
(setq tot1 (polar pr2 ang toth))
(setq tot2 (polar tot1 (+ ang (dtr 90))
(+ (+ (* 20 symscl) (* symscl 10)) (+ (* 1.25 symscl) (* 2.5 symscl)))))
(setq hap (* e1 holp))
(setq tot (strcat “=”(itoa hap)))
(setq ccc (getvar “CECOLOR”))
(command “color” 2)
(command “text” “j” “c” tot2 “” 90 tot)
(setvar “CECOLOR” ccc)
)
)
(command “dim1” “ver” phr3 r2 ve1 “”)
(setq di1 (polar r6 (- ang (dtr 180)) (* 30 symscl)))
(setq di2 (polar r6 (- ang (dtr 180)) (+ (* 30 symscl) (* symscl 10)) ))
(setq di3 (polar l5 (- ang (dtr 90)) (* 30 symscl) ))
(command “layer” “m” “dim” “” )
; (setq hor1(+ (- (/ wid 2) (fix (/ tiw 2))) gage ))
; (setq hor1(rtos hor1 2 0))
(setq hor1(fix (+ (/ (- wid tiw) 2) gage )))
(command “dim1” “hor” phr3 r4 di1 hor1)
(setvar “dimdli” 10)
(command “dim1” “base” ceu “”)
(if (= holq 1)
(command “dim1” “hor” phr3 phr31 di2 “”))
(setq hor2(fix (/ (- wid tiw) 2)))
(command “dim1” “hor” l6 l4 di1 hor2)
(setq hor3(fix (- dep (* tif 2))))
(command “dim1” “ver” l5 l2 di3 “”)
)
)
(PROMPT “ secton 10 “)
(setvar “clayer” lay)
(setvar “dimgap” 1.5)
(command “dim1” “dimblk” “.”)
(setvar “dimasz” 2.5)
(setvar “dimtad” 0)
(setvar “dimtvp” 0)
(setvar “dimclrd” 7)
(setvar “dimclre” 7)
(setvar “dimclrt” 2)
(if (or (= pla “B”) (= pla “N”))
(progn
(setq pl5 (polar pl3 (+ ang (dtr 90)) 40))
(setq pl6 (polar pl5 (- ang (dtr 30)) (* 20 symscl)))
(setq pl7 (atoi (rtos (- dep (* tif 2)) 2 0 )))
(setq pl8 (atoi (rtos (- (/ wid 2) (/ tif 2)) 2 0 )))
; (setq pl7 (atoi (- dep (* tif 2)) )
; (setq pl8 (- (/ wid 2) (/ tif 2)) )
(setq pl8 (+ pl8 85))
(setq pmk (getstring “n Near side Gasset plate Mark :” ))
(setq pmt (getint “n Near side Gasset plate Thinkness :” ))
(PROMPT “ secton 9 “)
(if (< pl7 pl8)
(setq mark(strcat “PL”(itoa pmt)”x”(itoa pl7)”x”(itoa pl8)”-“pmk))
(setq mark(strcat “PL”(itoa pmt)”x”(itoa pl8)”x”(itoa pl7)”-“pmk))
)
(PROMPT “ secton 3 “)
(command “dim1” “lea” pl5 pl6 “” mark )
(if (and (= eqp “Y”) (/= pla “N”))
(progn
(PROMPT “ secton 8 “)
(setq pr5 (polar pr3 (- ang (dtr 90)) 40))
(setq pr6 (polar pr5 (+ ang (dtr 30)) (* 20 symscl)))
(command “dim1” “lea” pr5 pr6 “” (strcat “PL”(itoa pmt)”-“pmk))
)
; (progn
; (PROMPT “ secton 12 “)
; (setq pr5 (polar pr3 (- ang (dtr 90)) 40))
; (setq pr6 (polar pr5 (+ ang (dtr 30)) (* 20 symscl)))
; (setq pmkr(getstring “n Far side Gasset plate Mark :” ))
; (setq pmtr(getint “n Far side Gasset plate Thinkness :” ))
; (if (< pl7 pl8)
; (setq markr(strcat “PL”(itoa pmtr)”x”(itoa pl7)”x”(itoa pl8)”-“pmkr))
; (setq markr(strcat “PL”(itoa pmtr)”x”(itoa pl8)”x”(itoa pl7)”-“pmkr));
; )
; (PROMPT “ secton 7 “)
; (command “dim1” “lea” pr5 pr6 “” markr)
; )
)
(if (= pla “N”)
(progn
(PROMPT “ secton 4 “)
(setq stif1 (polar r2 (- ang (dtr 180)) (/ wid 2)))
(setq stif2 (polar stif1 (+ ang (dtr 30)) (* 21.7 symscl)))
(setq stle1 (atoi (rtos (- dep (* tif 2)) 2 0 )))
(setq stle2 (atoi (rtos (- (/ wid 2) (/ tif 2)) 2 0 )))
; (setq stle1 (atoi (- dep (* tif 2)) ))
; (setq stle2 (atoi (- (/ wid 2) (/ tif 2)) )))
(PROMPT “ secton 5 “)
(setq psk (getstring “n Stiffnear Mark :” ))
(if (< stle1 stle2)
(setq marks(strcat “PL”(itoa pmt)”x”(itoa stle1)”x”(itoa stle2)”-“psk))
(setq marks(strcat “PL”(itoa pmt)”x”(itoa stle2)”x”(itoa stle1)”-“psk))
)
(command “dim1” “lea” stif1 stif2 “” marks )
)
)
)
(progn
(PROMPT “ secton 13 “)
(setq pr5 (polar pr3 (- ang (dtr 90)) 20))
(setq pr6 (polar pr5 (+ ang (dtr 30)) (* 20 symscl)))
(setq pr7 (atoi (rtos (- dep (* tif 2)) 2 0 )))
(setq pr8 (atoi (rtos (- (/ wid 2) (/ tif 2)) 2 0 )))
(setq pr8 (+ pr8 85))
(PROMPT “ secton 6 “)
(setq prk (getstring “n Far side Gasset plate Mark :” ))
(setq prt (getint “n Far side Gasset plate Thinkness :” ))
(if (< pr7 pr8)
(setq mark1(strcat “PL”(itoa prt)”x”(itoa pr7)”x”(itoa pr8)”-“prk))
(setq mark1(strcat “PL”(itoa prt)”x”(itoa pr8)”x”(itoa pr7)”-“prk))
)
(PROMPT “ secton 7 “)
(command “dim1” “lea” pr5 pr6 “” mark1)
(progn
(PROMPT “ secton 14 “)
(setq stif3 (polar l2 (- ang (dtr 180)) (/ wid 2)))
(setq stif4 (polar stif3(- ang (dtr 30)) (* 21.7 symscl)))
(setq stle3 (atoi (rtos (- dep (* tif 2)) 2 0 )))
(setq stle4 (atoi (rtos (- (/ wid 2) (fix (/ tif 2))) 2 0 )))
(setq psk1 (getstring “n Stiffnear Mark :” ))
(if (< stle3 stle4)
(setq marks1(strcat “PL”(itoa pmt)”x”(itoa stle3)”x”(itoa stle4)”-“psk1))
(setq marks1(strcat “PL”(itoa pmt)”x”(itoa stle4)”x”(itoa stle3)”-“psk1))
)
(command “dim1” “lea” stif3 stif4 “” marks1 )
)
)
)
)