20.11.2011 15:39    

(defun c:tc ()
(setq l (getreal "\n turk bayraginin boyunu giriniz:"))
(setq n (getpoint "\n sol alt kose noktasini giriniz:"))
(aci-tanimla)
)
(defun aci-tanimla ()
(setq a1 0 a2 (/ pi 2) a3 pi a4 (/ (* 3 pi) 2)
g (/ l 1.5)
a (/ g 2)
b (/ g 2)
c (* g 0.0625)
d (* g 0.4)
e (/ g 3)
f (/ g 4)
y2a (/ (* 108 pi) 180)
y3a (/ (* 36 pi) 180)
y4a (/ (* 324 pi) 180)
y5a (/ (* 252 pi) 180)
yb (* f 0.1545)
)
(nokta-tanimla)
)
(defun nokta-tanimla ()
(setq n1 (polar n a2 g)
n1y (polar n a2 g)
n2 (polar n1 a1 (* g 1.5))
n3 (polar n a1 (* g 1.5))
n4 (polar n a1 (/ g 30))
n4y (polar n a1 (/ g 30))
n5 (polar n1 a1 (/ g 30))
n5y (polar n1 a1 (/ g 30))
n6 (list (+ (car n4)(/ g 2)) (+ (cadr n4) a))
n7 (polar n6 a1 c)
n8 (polar n6 a3 (/ b 2))
n9 (polar n7 a3 (/ d 2))
n10 (polar n6 a1 (/ b 2))
n11 (polar n7 a1 (/ d 2))
n12 (polar n9 a1 (+ e (/ f 2)))
y1 (polar n12 a3 (/ f 2))
y2 (polar n12 y2a (/ f 2))
y3 (polar n12 y3a (/ f 2))
y4 (polar n12 y4a (/ f 2))
y5 (polar n12 y5a (/ f 2))
y1b (polar n12 a3 yb)
y2b (polar n12 y2a yb)
y3b (polar n12 y3a yb)
y4b (polar n12 y4a yb)
y5b (polar n12 y5a yb)
)
(ciz)
)
(defun ciz ()
(command "line" n5 n2 n3 n4 "c"
"circle" n6 (/ b 2)
"circle" n7 (/ d 2)
"trim" n8 n9 "" n11 ""
"trim" n8 n9 "" n10 ""
"line" y1 y3 y5 y2 y4 y1 ""
"trim" y1b y2b y3b y4b y5b "" y1b y2b y3b y4b y5b""
"regen" ""
"change" "all" "" "p" "c" "red" ""
"hatch" "u" 90 0.05 "" "all" ""
"change" "l" "" "p" "c" "red" ""
"line" n4 n n1 n5 ""
"regen" ""
))

21.02.2014 23:56    

Arkadaşlar ben bu lisp li çalıştıra madım bana yardımcı olurmusunuz .bir de lisp'ler nasıl yazılır nereden yardım alabılirim.

22.09.2014 05:58    

teşekkürler