04.01.2021 14:48    

Merhabalar arkadaşlar;
Sizlerden bir konu hakkında yardım istemek için bu konuyu açıyorum. Lisp ile kodlamaya yeni başladım ve istinat duvarı ile ilgili program yazıyorum. Üzerinde çalıştığım lisp tıkır tıkır çalışırken ertesi gün çalışmamaya nill uyarısı vermeye başladı. Bir çok yere baktım sorunumun çözümünü bulamadım. Yardımcı olabilirseniz memnun olurum. Ek olarak öneri ve görüşlerinizi bekliyorum. Şimdiden teşekkür ederim. Saygılar.

LİSP KODU:

;;; BU PROGRAM ISTINAT DUVARI ÇIZER.

(defun c:duvar ()

(setq ustgenislik (getreal "Ust baslik genisligi kac cm?"))
(setq altgenislik (getreal "Alt baslik genisligi kac cm?"))
(setq duvaryukseklik (getreal "Istinat duvari yuksekligi kac cm?"))
(setq cikintiyukseklik (getreal "Cikinti yuksekligi kac cm?"))
(setq temelyukseklik (getreal "Temel yuksekligi kac cm?"))
(setq temelaltuzunluk (getreal "Temel alt uzunlugu kac cm?"))
(setq cikintiuzunluk (getreal "Saga dogru cikinti uzunlugu kac cm?"))
(setq cikintigenislik (getreal "Cikinti genisligi kac cm?"))
(setq paspayi (getreal "Paspayi kac cm?"))
(setq istinatuzunluk (getreal "İstinat duvari uzunlugu kac cm?"))
(setq etraralik (getreal "Etriye araligi kac cm?"))
(setq temelaralik (getreal "Temel donati araligi kac cm?"))
(setq boyunaaralik (getreal "Boyuna donati araligi kac cm?"))
(setq sehpaadet (getreal "Sehpa m²'de kac adet olacak?"))
(setq poz1 (getreal "Poz 1 donati capi kac mm?"))
(setq poz2 (getreal "Poz 2 donati capi kac mm?"))
(setq poz3 (getreal "Poz 3 donati capi kac mm?"))
(setq poz4 (getreal "Poz 4 donati capi kac mm?"))
(setq poz5 (getreal "Poz 5 donati capi kac mm?"))
(setq poz6 (getreal "Poz 6 donati capi kac mm?"))
(setq poz7 (getreal "Poz 7 donati capi kac mm?"))
(setq poz8 (getreal "Poz 8 donati capi kac mm?"))
(setq poz9 (getreal "Poz 9 donati capi kac mm?"))
(setq poz10 (getreal "Poz 10 donati capi kac mm?"))
(setq a1 (getpoint "Nereye?"))
(setq 2paspayi (* 2 paspayi))
(setq a1a2boluiki (/ ustgenislik 2))
(setq cikintihesap (- cikintiuzunluk cikintigenislik))
(setq cikintihesap2 (- cikintiyukseklik temelyukseklik))
(setq poz2fihesap1 (* poz2 70))
(setq poz2fihesap (/ poz2fihesap1 10))
(setq poz6fihesap1 (* poz6 70))
(setq poz6fihesap (/ poz6fihesap1 10))
(setq sagdonatiacilim (+ temelyukseklik poz6fihesap))
(setq soldonatiacilim (+ temelyukseklik poz2fihesap))
(setq yardimciyazi1 (- ustgenislik 2paspayi))
(setq yardimciyazirtos (rtos yardimciyazi1 2 0))
(setq sehpahesap (- temelyukseklik 2paspayi))


;;;;;;Polar hesabi ve acilari radyana donusturme.

(defun dtr (x)
(* pi (/ x 180.0)))

;;;;;Noktalari Belirleme

(setq a2 (polar a1 (dtr 0.0) ustgenislik))
(setq a3 (polar a2 (dtr 270.0) duvaryukseklik))
(setq a4 (polar a3 (dtr 0.0) cikintiuzunluk))
(setq a5 (polar a4 (dtr 270.0) cikintiyukseklik))
(setq a6 (polar a5 (dtr 180.0) cikintigenislik))
(setq a7 (polar a6 (dtr 90.0)(- cikintiyukseklik temelyukseklik)))
(setq a8 (polar a7 (dtr 180.0)(- temelaltuzunluk cikintigenislik)))
(setq a9 (polar a8 (dtr 90.0) temelyukseklik))
(setq a10 (polar a9 (dtr 0.0)(- temelaltuzunluk (+ cikintiuzunluk altgenislik))))
(setq a1 (polar a2 (dtr 180.0) ustgenislik))

(setq a1a2orta (polar a1 (dtr 0.0)(/ ustgenislik 2)))
(setq b1 (polar a1a2orta (dtr 270.0) paspayi))
(setq b2 (polar b1 (dtr 0.0)(- a1a2boluiki paspayi)))
(setq b3 (polar b2 (dtr 270.0) duvaryukseklik))
(setq b4 (polar b3 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq b5 (polar b3 (dtr 0.0)(+ cikintihesap 2paspayi)))
(setq b6 (polar b5 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq b7 (polar b3 (dtr 180.0)(- altgenislik 2paspayi(- 0.22))))
(setq b8 (polar a10 (dtr 0.0)(- temelyukseklik paspayi)))
(setq b9 (polar b8 (dtr 0.0) 3))
(setq a6a7orta (polar a6 (dtr 90.0)(/ cikintihesap2 2)))

(setq c3 (polar a6a7orta (dtr 180.0) 25))
(setq c4 (polar c3 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq c2 (polar c3 (dtr 180.0)(- temelaltuzunluk 2paspayi)))
(setq c1 (polar c2 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq c5 (polar c1 (dtr 90.0)(- temelyukseklik 17)))
(setq c6 (polar c5 (dtr 180.0) 17))
(setq c7 (polar c6 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq c8 (polar c7 (dtr 0.0)(- temelaltuzunluk 2paspayi)))
(setq c9 (polar c8 (dtr 90.0)(- temelyukseklik 2paspayi)))

(setq d1 (polar a4 (dtr 0.0) 20))
(setq d2 (polar d1 (dtr 90.0)(- duvaryukseklik 2paspayi)))
(setq d3 (polar d2 (dtr 180.0)(- ustgenislik 2paspayi)))
(setq ayar (polar a6 (dtr 0.0) paspayi))

(setq e2 (polar ayar (dtr 270.0) 25))
(setq e1 (polar e2 (dtr 0.0)(- cikintigenislik 2paspayi)))
(setq e3 (polar e2 (dtr 270.0)(- cikintiyukseklik 2paspayi)))
(setq e4 (polar e3 (dtr 0.0)(- cikintigenislik 2paspayi)))
(setq ayar2 (polar ayar (dtr 0.0) paspayi))
(setq e5 (polar ayar2 (dtr 270.0) 20))
(setq e6 (polar e5 (dtr 0.0)(- cikintigenislik 2paspayi)))
(setq e7 (polar e6 (dtr 270.0)(- cikintiyukseklik 2paspayi)))
(setq e8 (polar e7 (dtr 180.0)(- cikintigenislik 2paspayi)))
(setq ayardim (polar a10 (dtr 90.0) paspayi))

(setq d4 (polar b6 (dtr 0.0)(+ cikintigenislik 15)))
(setq d5 (polar d4 (dtr 0.0) 40))
(setq d6 (polar d5 (dtr 90.0)(- sagdonatiacilim 2paspayi)))
(setq d7 (polar a8 (dtr 180.0) 25))
(setq d8 (polar d7 (dtr 180.0) 20))
(setq d9 (polar d8 (dtr 90.0)(- soldonatiacilim 2paspayi)))
(setq d11 (polar a1 (dtr 180.0) 130))
(setq d10 (polar d11 (dtr 0.0)(- ustgenislik 2paspayi)))
(setq d12 (polar ayardim (dtr 180.0) 130))
(setq y1 (polar d11 (dtr 0.0)(/ yardimciyazi1 3)))
(setq yazi1 (polar y1 (dtr 90.0) 1.5))
(setq y2 (polar d12 (dtr 90.0)(/ duvaryukseklik 2)))
(setq yazi2 (polar y2 (dtr 0.0) 20))
(setq yardimciyazi2 (- duvaryukseklik 2paspayi))
(setq yardimciyazi2rtos (rtos yardimciyazi2 2 0))
(setq y3 (polar d8 (dtr 0.0) 6))
(setq yazi3 (polar y3 (dtr 270.0) 6))
(setq d8d9arasi (- soldonatiacilim 2paspayi))
(setq y4 (polar d8 (dtr 90.0)(/ d8d9arasi 2)))
(setq yazi4 (polar y4 (dtr 180.0) 13.5))
(setq yardimciyazi4rtos (rtos d8d9arasi 2 0))
(setq y5 (polar d3 (dtr 0.0)(/ yardimciyazi1 3)))
(setq yazi5 (polar y5 (dtr 90.0) 1.5))
(setq d1d2arasi (- duvaryukseklik 2paspayi))
(setq y6 (polar d1 (dtr 90.0)(/ d1d2arasi 2)))
(setq yazi6 (polar y6 (dtr 0.0) 2))
(setq yardimciyazi6rtos (rtos d1d2arasi 2 0))
(setq y7 (polar d4 (dtr 0.0) 16))
(setq yazi7 (polar y7 (dtr 270.0) 7))
(setq d5d6arasi (- sagdonatiacilim 2paspayi))
(setq y8 (polar d5 (dtr 90.0)(/ d5d6arasi 2)))
(setq yazi8 (polar y8 (dtr 0.0) 3.8))
(setq yardimciyazi8rtos (rtos d5d6arasi 2 0))
(setq c6c7arasi (- temelyukseklik 2paspayi))
(setq y9 (polar c7 (dtr 90.0)(/ c6c7arasi 2)))
(setq yazi9 (polar y9 (dtr 0.0) 5))
(setq yardimciyazi9rtos (rtos c6c7arasi 2 0))
(setq c7c8arasi (- temelaltuzunluk 2paspayi))
(setq y10 (polar c7 (dtr 0.0)(/ c7c8arasi 2)))
(setq yazi10 (polar y10 (dtr 270.0) 7.5))
(setq yardimciyazi10rtos (rtos c7c8arasi 2 0))
(setq y11 (polar c2 (dtr 0.0)(/ c7c8arasi 2)))
(setq yazi11 (polar y11 (dtr 90.0) 2.5))
(setq y12 (polar c8 (dtr 90.0)(/ c6c7arasi 2)))
(setq yazi12 (polar y12 (dtr 0.0) 5))
(setq e1e2arasi (- cikintigenislik 2paspayi))
(setq y13 (polar e2 (dtr 0.0)(/ e1e2arasi 2)))
(setq yazi13 (polar y13 (dtr 90.0) 8))
(setq yardimciyazi13rtos (rtos e1e2arasi 2 0))
(setq e2e3arasi (- cikintiyukseklik 2paspayi))
(setq y14 (polar e3 (dtr 90.0)(/ e2e3arasi 2)))
(setq yazi14 (polar y14 (dtr 180.0) 9))
(setq yardimciyazi14rtos (rtos e2e3arasi 2 0))
(setq y15 (polar e3 (dtr 0.0)(/ e1e2arasi 2)))
(setq yazi15 (polar y15 (dtr 270.0) 7.5))
(setq y16 (polar e7 (dtr 90.0)(/ e2e3arasi 2)))
(setq yazi16 (polar y16 (dtr 0.0) 5))
(setq yyardim2 (polar y4 (dtr 0.0) 10))
(setq yyardim3 (polar yyardim2 (dtr 56.0) 9))
(setq y2yardim (polar y2 (dtr 180.0) 4))
(setq yyardim1 (polar y2yardim (dtr 72.0) 8))
(setq yyardim4 (polar y11 (dtr 270.0) 23))
(setq yyardim5 (polar yyardim4 (dtr 56.0) 9))
(setq yyardim6 (polar yazi10 (dtr 270.0) 23))
(setq yyardim7 (polar yyardim6 (dtr 56.0) 9))
(setq yyardim8 (polar y6 (dtr 180.0) 20))
(setq yyardim9 (polar yyardim8 (dtr 56.0) 9))
(setq yyardim10 (polar y8 (dtr 180.0) 20))
(setq yyardim11 (polar yyardim10 (dtr 56.0) 9))
(setq yyardim12 (polar y15 (dtr 270.0) 31))
(setq yyardim13 (polar yyardim12 (dtr 56.0) 9))

(setq grf2 (polar e7 (dtr 270.0) 100))
(setq grf1 (polar grf2 (dtr 180.0) 123))
(setq grf3 (polar grf2 (dtr 270.0) 152))
(setq grf4 (polar grf3 (dtr 180.0) 123))
(setq grf5 (polar grf1 (dtr 270.0) 19))
(setq grf6 (polar grf5 (dtr 270.0) 19))
(setq grf7 (polar grf6 (dtr 270.0) 19))
(setq grf8 (polar grf7 (dtr 270.0) 19))
(setq grf9 (polar grf8 (dtr 270.0) 19))
(setq grf10 (polar grf9 (dtr 270.0) 19))
(setq grf11 (polar grf10 (dtr 270.0) 19))
(setq grf12 (polar grf2 (dtr 270.0) 19))
(setq grf13 (polar grf12 (dtr 270.0) 19))
(setq grf14 (polar grf13 (dtr 270.0) 19))
(setq grf15 (polar grf14 (dtr 270.0) 19))
(setq grf16 (polar grf15 (dtr 270.0) 19))
(setq grf17 (polar grf16 (dtr 270.0) 19))
(setq grf18 (polar grf17 (dtr 270.0) 19))
(setq grf19 (polar grf1 (dtr 0.0) 36))
(setq grf20 (polar grf19 (dtr 270.0) 152))
(setq gyazi1 (polar grf1 (dtr 270.0) 12.5))
(setq gyazi2 (polar gyazi1 (dtr 0.0) 9))
(setq gyazi3 (polar gyazi2 (dtr 0.0) 35))
(setq gyazi4 (polar grf5 (dtr 270.0) 14))
(setq gyazi5 (polar gyazi4 (dtr 0.0) 16))
(setq gyazi6 (polar gyazi5 (dtr 72.0) 5))
(setq gyazi7 (polar grf6 (dtr 270.0) 14.3))
(setq gyazi8 (polar gyazi7 (dtr 0.0) 15))
(setq gyazi9 (polar gyazi8 (dtr 56.0) 6))
(setq gyazi10 (polar grf7 (dtr 270.0) 14.5))
(setq gyazi11 (polar gyazi10 (dtr 0.0) 15))
(setq gyazi12 (polar gyazi11 (dtr 56.0) 6))
(setq gyazi13 (polar grf8 (dtr 270.0) 14.5))
(setq gyazi14 (polar gyazi13 (dtr 0.0) 15))
(setq gyazi15 (polar gyazi14 (dtr 56.0) 6))
(setq gyazi16 (polar grf9 (dtr 270.0) 15))
(setq gyazi17 (polar gyazi16 (dtr 0.0) 15))
(setq gyazi18 (polar gyazi17 (dtr 56.0) 6))
(setq gyazi19 (polar grf10 (dtr 270.0) 14.14))
(setq gyazi20 (polar gyazi19 (dtr 0.0) 15))
(setq gyazi21 (polar gyazi20 (dtr 56.0) 6))
(setq gyazi22 (polar grf11 (dtr 270.0) 15))
(setq gyazi23 (polar gyazi22 (dtr 0.0) 15))
(setq gyazi24 (polar gyazi23 (dtr 56.0) 6))

(setq tab2 (polar grf3 (dtr 270.0) 15))
(setq tab1 (polar tab2 (dtr 180.0) 321))
(setq tab3 (polar tab2 (dtr 270.0) 247))
(setq tab4 (polar tab3 (dtr 180.0) 112))
(setq tab5 (polar tab4 (dtr 90.0) 19))
(setq tab6 (polar tab5 (dtr 180.0) 209))
(setq tab7 (polar tab1 (dtr 270.0) 19))
(setq tab8 (polar tab7 (dtr 270.0) 19))
(setq tab9 (polar tab8 (dtr 270.0) 19))
(setq tab10 (polar tab9 (dtr 270.0) 19))
(setq tab11 (polar tab10 (dtr 270.0) 19))
(setq tab12 (polar tab11 (dtr 270.0) 19))
(setq tab13 (polar tab12 (dtr 270.0) 19))
(setq tab14 (polar tab13 (dtr 270.0) 19))
(setq tab15 (polar tab2 (dtr 270.0) 19))
(setq tab16 (polar tab15 (dtr 270.0) 19))
(setq tab17 (polar tab16 (dtr 270.0) 19))
(setq tab18 (polar tab17 (dtr 270.0) 19))
(setq tab19 (polar tab18 (dtr 270.0) 19))
(setq tab20 (polar tab19 (dtr 270.0) 19))
(setq tab21 (polar tab20 (dtr 270.0) 19))
(setq tab22 (polar tab21 (dtr 270.0) 19))
(setq tab23 (polar tab22 (dtr 270.0) 76))
(setq tab24 (polar tab7 (dtr 0.0) 20))
(setq tab25 (polar tab24 (dtr 0.0) 24))
(setq tab26 (polar tab25 (dtr 0.0) 41))
(setq tab27 (polar tab26 (dtr 0.0) 65))
(setq tab28 (polar tab27 (dtr 0.0) 59))
(setq tab29 (polar tab28 (dtr 0.0) 72.9975))
(setq tab30 (polar tab6 (dtr 0.0) 20))
(setq tab31 (polar tab30 (dtr 0.0) 24))
(setq tab32 (polar tab31 (dtr 0.0) 41))
(setq tab33 (polar tab32 (dtr 0.0) 65))
(setq tab34 (polar tab3 (dtr 180.0) 39))
(setq tyazi1 (polar tab7 (dtr 270.0) 12))
(setq tyazi2 (polar tyazi1 (dtr 0.0) 5))
(setq tyazi3 (polar tyazi2 (dtr 0.0) 19.8))
(setq tyazi4 (polar tyazi3 (dtr 0.0) 30))
(setq tyazi5 (polar tyazi4 (dtr 0.0) 34))
(setq tyazi6 (polar tyazi5 (dtr 0.0) 66))
(setq tyazi7 (polar tyazi6 (dtr 0.0) 57))
(setq tyazi8 (polar tyazi7 (dtr 0.0) 82.5))
(setq tyazi9 (polar tab1 (dtr 270.0) 12))
(setq tyazi10 (polar tyazi9 (dtr 0.0) 71.5))
(setq tyazi11 (polar tab8 (dtr 270.0) 14))
(setq tyazi12 (polar tyazi11 (dtr 0.0) 8.5))
(setq tyazi13 (polar tab9 (dtr 270.0) 14.2))
(setq tyazi14 (polar tyazi13 (dtr 0.0) 7.5))
(setq tyazi15 (polar tyazi14 (dtr 270.0) 19))
(setq tyazi16 (polar tyazi15 (dtr 270.0) 19))
(setq tyazi17 (polar tyazi16 (dtr 270.0) 19))
(setq tyazi18 (polar tyazi17 (dtr 270.0) 19))
(setq tyazi19 (polar tyazi18 (dtr 270.0) 19))
(setq tyazi20 (polar tyazi12 (dtr 0.0) 21.3))
(setq tyazi21 (polar tyazi20 (dtr 71.0) 5))
(setq tyazi22 (polar tyazi14 (dtr 0.0) 21.6))
(setq tyazi23 (polar tyazi22 (dtr 56.0) 5.7))
(setq tyazi24 (polar tyazi22 (dtr 270.0) 19.2))
(setq tyazi25 (polar tyazi24 (dtr 56.0) 5.7))
(setq tyazi26 (polar tyazi24 (dtr 270.0) 19))
(setq tyazi27 (polar tyazi26 (dtr 56.0) 5.7))
(setq tyazi28 (polar tyazi26 (dtr 270.) 19))
(setq tyazi29 (polar tyazi28 (dtr 56.0) 5.7))
(setq tyazi30 (polar tyazi28 (dtr 270.0) 18.5))
(setq tyazi31 (polar tyazi30 (dtr 56.0) 5.7))
(setq tyazi32 (polar tyazi30 (dtr 270.0) 19.5))
(setq tyazi33 (polar tyazi32 (dtr 56.0) 5.7))
(setq tyazi34 (polar tab4 (dtr 0.0) 12.1))
(setq tyazi35 (polar tyazi34 (dtr 90.0) 6.2))
(setq poz1l1 (- ustgenislik 2paspayi))
(setq poz1l2 (- duvaryukseklik 2paspayi))
(setq poz1hesap (+ poz1l1 poz1l2))
(setq poz1sonuc (rtos poz1hesap 2 0))
(setq lyazi1 (polar tyazi6 (dtr 270.0) 19))
(setq lyazi2 (polar lyazi1 (dtr 0.0) 15))
(setq poz2l1 (- soldonatiacilim 2paspayi))
(setq poz2hesap (+ poz2l1 20))
(setq poz2sonuc (rtos poz2hesap 2 0))
(setq lyazi3 (polar lyazi2 (dtr 270.0) 19))
(setq poz3l1 (- temelyukseklik 2paspayi))
(setq poz3l2 (- temelaltuzunluk 2paspayi))
(setq poz3hesap (+ poz3l1 poz3l1 poz3l2))
(setq poz3sonuc (rtos poz3hesap 2 0))
(setq lyazi4 (polar lyazi3 (dtr 270.0) 19))
(setq lyazi5 (polar lyazi4 (dtr 270.0) 19))
(setq lyazi6 (polar lyazi5 (dtr 270.0) 19))
(setq poz6l1 (- sagdonatiacilim 2paspayi))
(setq poz6hesap (+ poz6l1 40))
(setq poz6sonuc (rtos poz6hesap 2 0))
(setq lyazi7 (polar lyazi6 (dtr 270.0) 19))
(setq poz7l1 (- cikintigenislik 2paspayi))
(setq poz7l2 (- cikintiyukseklik 2paspayi))
(setq poz7hesap1 (+ poz7l1 poz7l1 poz7l2))
(setq poz7hesap (* poz7hesap1 2))
(setq poz7sonuc (rtos poz7hesap 2 0))
(setq lyazi8 (polar lyazi7 (dtr 270.0) 19))
(setq gyazi25 (polar gyazi5 (dtr 0.0) 71.5))
(setq gyazi26 (polar gyazi25 (dtr 90.0) 2))
(setq gyazi27 (polar gyazi26 (dtr 0.0) 12))
(setq gyazi28 (polar gyazi26 (dtr 270.0) 19))
(setq gyazi29 (polar gyazi28 (dtr 270.0) 19))
(setq gyazi30 (polar gyazi29 (dtr 270.0) 19))
(setq gyazi31 (polar gyazi30 (dtr 270.0) 19))
(setq gyazi32 (polar gyazi31 (dtr 270.0) 19))
(setq gyazi33 (polar gyazi32 (dtr 270.0) 19))
(setq gyazi34 (polar gyazi27 (dtr 270.0) 19))
(setq gyazi35 (polar gyazi34 (dtr 270.0) 19))
(setq gyazi36 (polar gyazi35 (dtr 270.0) 19))
(setq gyazi37 (polar gyazi36 (dtr 270.0) 19))
(setq gyazi38 (polar gyazi37 (dtr 270.0) 19))
(setq gyazi39 (polar gyazi38 (dtr 270.0) 19))
(setq o6 (polar a5 (dtr 0.0) 440))
(setq o5 (polar o6 (dtr 0.0) cikintigenislik))
(setq o4 (polar o5 (dtr 90.0) cikintiyukseklik))
(setq o3 (polar o4 (dtr 180.0) cikintiuzunluk))
(setq o2 (polar o3 (dtr 90.0) duvaryukseklik))
(setq o1 (polar o2 (dtr 180.0) ustgenislik))
(setq o7 (polar o6 (dtr 90.0)(- cikintiyukseklik temelyukseklik)))
(setq o8 (polar o7 (dtr 180.0)(- temelaltuzunluk cikintigenislik)))
(setq o9 (polar o8 (dtr 90.0) temelyukseklik))
(setq o10 (polar o9 (dtr 0.0)(- temelaltuzunluk (+ cikintiuzunluk altgenislik))))
(setq o8o9arasi (polar o8 (dtr 90.0)(/ temelyukseklik 2)))
(setq oolc1 (polar o8o9arasi (dtr 180.0) 15))
(setq o9o10yar (- temelaltuzunluk (+ cikintiuzunluk altgenislik)))
(setq o9o10arasi (polar o9 (dtr 0.0)(/ o9o10yar 2)))
(setq oolc2 (polar o9o10arasi (dtr 90.0) 15))
(setq oolc3 (polar o10 (dtr 180.0) 15))
(setq oolc4 (polar o1 (dtr 90.0) 15))
(setq oolc5 (polar o2 (dtr 0.0) 35))
(setq oolc6 (polar o3 (dtr 90.0) 15))
(setq oolc7 (polar o4 (dtr 0.0) 35))
(setq oolc8 (polar a6 (dtr 270.0) 35))
(setq oolc9 (polar a8 (dtr 270.0) 30))
(setq oolc10 (polar o10 (dtr 270.0)(/ temelyukseklik 2)))
(setq se3 (polar y10 (dtr 270.0) 90))
(setq se2 (polar se3 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq se1 (polar se2 (dtr 207.0) 15))
(setq se4 (polar se3 (dtr 333.0) 20))
(setq se5 (polar se4 (dtr 270.0)(- temelyukseklik 2paspayi)))
(setq se6 (polar se5 (dtr 27.0) 15))
(setq us1 (polar o2 (dtr 0.0) 350))
(setq us2 (polar us1 (dtr 0.0) temelaltuzunluk))
(setq us3 (polar us2 (dtr 270.0) istinatuzunluk))
(setq us4 (polar us3 (dtr 180.0) temelaltuzunluk))
(setq us5 (polar us1 (dtr 0.0)(- temelaltuzunluk (+ cikintiuzunluk altgenislik))))
(setq us6 (polar us5 (dtr 0.0)(- altgenislik ustgenislik)))
(setq us7 (polar us6 (dtr 0.0) ustgenislik))
(setq us8 (polar us5 (dtr 270.0) istinatuzunluk))
(setq us9 (polar us6 (dtr 270.0) istinatuzunluk))
(setq us10 (polar us7 (dtr 270.0) istinatuzunluk))
(setq uolc1 (polar us1 (dtr 90.0) 20))
(setq uolc2 (polar uolc1 (dtr 90.0) 35))
(setq uolc3 (polar us2 (dtr 0.0) 35))
(setq on1 (polar us2 (dtr 0.0) 300))
(setq on2 (polar on1 (dtr 0.0) istinatuzunluk))
(setq on3 (polar on2 (dtr 270.0)(+ duvaryukseklik cikintiyukseklik)))
(setq on4 (polar on3 (dtr 180.0) istinatuzunluk))
(setq on5 (polar on4 (dtr 90.0)(- cikintiyukseklik temelyukseklik)))
(setq on6 (polar on5 (dtr 90.0) temelyukseklik))
(setq on7 (polar on3 (dtr 90.0)(- cikintiyukseklik temelyukseklik)))
(setq on8 (polar on7 (dtr 90.0) temelyukseklik))
(setq onolc1 (polar on1 (dtr 90.0) 30))
(setq onolc2 (polar on2 (dtr 0.0) 38))
(setq onolc3 (polar onolc2 (dtr 0.0) 40))
(setq seyazi1 (polar se1 (dtr 79.0) 6))
(setq seyazi2 (polar se5 (dtr 60.0) 7))
(setq se2se3arasi (polar se2 (dtr 90.0)(/ sehpahesap 2)))
(setq seyazi3 (polar se2se3arasi (dtr 180.0) 8.5))
(setq sehpahesaprtos (rtos sehpahesap 2 0))
(setq se4se5arasi (polar se5 (dtr 90.0)(/ sehpahesap 2)))
(setq seyazi4 (polar se4se5arasi (dtr 0.0) 1.7))
(setq biyazi1 (polar gyazi26 (dtr 180.0) 32))
(setq biyazi2 (polar biyazi1 (dtr 270.0) 19))
(setq biyazi3 (polar biyazi2 (dtr 270.0) 19))
(setq biyazi4 (polar biyazi3 (dtr 270.0) 19))
(setq biyazi5 (polar biyazi4 (dtr 270.0) 19))
(setq biyazi6 (polar biyazi5 (dtr 270.0) 19))
(setq biyazi7 (polar biyazi6 (dtr 270.0) 19))
(setq biyazi8 (polar biyazi1 (dtr 0.0) 15))
(setq biyazi9 (polar biyazi8 (dtr 270.0) 19))
(setq biyazi10 (polar biyazi9 (dtr 270.0) 19))
(setq biyazi11 (polar biyazi10 (dtr 270.0) 19))
(setq biyazi12 (polar biyazi11 (dtr 270.0) 19))
(setq biyazi13 (polar biyazi12 (dtr 270.0) 19))
(setq biyazi14 (polar biyazi13 (dtr 270.0) 19))
(setq adethesap (/ istinatuzunluk etraralik))
(setq adethesapsonuc (rtos adethesap 2 0))
(setq adethesapconvert (atof adethesapsonuc))
(setq biyazi15 (polar biyazi1 (dtr 180.0) 12.5))
(setq biyazi16 (polar biyazi15 (dtr 270.0) 19))
(setq biyazi17 (polar biyazi16 (dtr 270.0) 19))
(setq biyazi18 (polar biyazi17 (dtr 270.0) 19))
(setq biyazi19 (polar biyazi18 (dtr 270.0) 19))
(setq biyazi20 (polar biyazi19 (dtr 270.0) 19))
(setq biyazi21 (polar biyazi20 (dtr 270.0) 19))
(setq etraralikrtos (rtos etraralik 2 0))
(setq biyazi22 (polar biyazi8 (dtr 0.0) 5.8))
(setq biyazi23 (polar biyazi22 (dtr 270.0) 19))
(setq biyazi24 (polar biyazi23 (dtr 270.0) 19))
(setq biyazi25 (polar biyazi24 (dtr 270.0) 19))
(setq biyazi26 (polar biyazi25 (dtr 270.0) 19))
(setq biyazi27 (polar biyazi26 (dtr 270.0) 19))
(setq biyazi28 (polar biyazi27 (dtr 270.0) 19))
(setq poz1rtos (rtos poz1 2 0))
(setq cayazi1 (polar biyazi1 (dtr 0.0) 5))
(setq cayazi2 (polar cayazi1 (dtr 270.0) 19))
(setq cayazi3 (polar cayazi2 (dtr 270.0) 19))
(setq cayazi4 (polar cayazi3 (dtr 270.0) 19))
(setq cayazi5 (polar cayazi4 (dtr 270.0) 19))
(setq cayazi6 (polar cayazi5 (dtr 270.0) 19))
(setq cayazi7 (polar cayazi6 (dtr 270.0) 19))
(setq poz2rtos (rtos poz2 2 0))
(setq poz3rtos (rtos poz3 2 0))
(setq poz4rtos (rtos poz4 2 0))
(setq poz5rtos (rtos poz5 2 0))
(setq poz6rtos (rtos poz6 2 0))
(setq poz7rtos (rtos poz7 2 0))
(setq adyazi1 (polar lyazi2 (dtr 180.0) 112))
(setq adyazi2 (polar adyazi1 (dtr 270.0) 19))
(setq adyazi3 (polar adyazi2 (dtr 270.0) 19))
(setq adyazi4 (polar adyazi3 (dtr 270.0) 19))
(setq adyazi5 (polar adyazi4 (dtr 270.0) 19))
(setq adyazi6 (polar adyazi5 (dtr 270.0) 19))
(setq adyazi7 (polar adyazi6 (dtr 270.0) 19))
(setq capyazi1 (polar lyazi2 (dtr 180.0) 58))
(setq capyazi2 (polar capyazi1 (dtr 270.0) 19))
(setq capyazi3 (polar capyazi2 (dtr 270.0) 19))
(setq capyazi4 (polar capyazi3 (dtr 270.0) 19))
(setq capyazi5 (polar capyazi4 (dtr 270.0) 19))
(setq capyazi6 (polar capyazi5 (dtr 270.0) 19))
(setq capyazi7 (polar capyazi6 (dtr 270.0) 19))
(setq poz1bagirlik1 (* pi poz1 poz1))
(setq poz1bagirlik2 (/ poz1bagirlik1 4))
(setq poz1bagirlik3 (* poz1bagirlik2 0.00785))
(setq poz1boym (/ poz1hesap 100))
(setq poz1bagirlik (* poz1bagirlik3 poz1boym adethesapconvert))
(setq poz1bagirlikrtos (rtos poz1bagirlik 2 0))
(setq kgyazi1 (polar lyazi2 (dtr 0.0) 125))
(setq poz1birimagirlik1 (* pi poz1 poz1 0.00785))
(setq poz1birimagirlik (/ poz1birimagirlik1 4))
(setq poz1birimagirlikrtos (rtos poz1birimagirlik 2 3))
(setq biayazi1 (polar lyazi2 (dtr 0.0) 65))
(setq biayazi2 (polar biayazi1 (dtr 270.0) 19))
(setq biayazi3 (polar biayazi2 (dtr 270.0) 19))
(setq biayazi4 (polar biayazi3 (dtr 270.0) 19))
(setq biayazi5 (polar biayazi4 (dtr 270.0) 19))
(setq biayazi6 (polar biayazi5 (dtr 270.0) 19))
(setq biayazi7 (polar biayazi6 (dtr 270.0) 19))
(setq poz2birimagirlik1 (* pi poz2 poz2 0.00785))
(setq poz2birimagirlik (/ poz2birimagirlik1 4))
(setq poz2birimagirlikrtos (rtos poz2birimagirlik 2 3))
(setq poz3birimagirlik1 (* pi poz3 poz3 0.00785))
(setq poz3birimagirlik (/ poz3birimagirlik1 4))
(setq poz3birimagirlikrtos (rtos poz3birimagirlik 2 3))
(setq poz4birimagirlik1 (* pi poz4 poz4 0.00785))
(setq poz4birimagirlik (/ poz4birimagirlik1 4))
(setq poz4birimagirlikrtos (rtos poz4birimagirlik 2 3))
(setq poz5birimagirlik1 (* pi poz5 poz5 0.00785))
(setq poz5birimagirlik (/ poz5birimagirlik1 4))
(setq poz5birimagirlikrtos (rtos poz5birimagirlik 2 3))
(setq poz6birimagirlik1 (* pi poz6 poz6 0.00785))
(setq poz6birimagirlik (/ poz6birimagirlik1 4))
(setq poz6birimagirlikrtos (rtos poz6birimagirlik 2 3))
(setq poz7birimagirlik1 (* pi poz7 poz7 0.00785))
(setq poz7birimagirlik (/ poz7birimagirlik1 4))
(setq poz7birimagirlikrtos (rtos poz7birimagirlik 2 3))
(setq usorta (polar us4 (dtr 0.0)(/ temelaltuzunluk 2)))
(setq usyazigenel (polar usorta (dtr 270.0) 50))
(setq usyazigenel1 (polar usyazigenel (dtr 180.0) 100))
(setq onorta (polar on4 (dtr 0.0)(/ istinatuzunluk 2)))
(setq onorta1 (polar onorta (dtr 270.0) 50))
(setq onorta2 (polar onorta1 (dtr 180.0) 100))
(setq poz2bagirlik1 (* pi poz2 poz2))
(setq poz2bagirlik2 (/ poz2bagirlik1 4))
(setq poz2bagirlik3 (* poz2bagirlik2 0.00785))
(setq poz2boym (/ poz2hesap 100))
(setq poz2bagirlik (* poz2bagirlik3 poz2boym adethesapconvert))
(setq poz2bagirlikrtos (rtos poz2bagirlik 2 0))
(setq kgyazi2 (polar kgyazi1 (dtr 270.0) 19))
(setq poz3bagirlik1 (* pi poz3 poz3))
(setq poz3bagirlik2 (/ poz3bagirlik1 4))
(setq poz3bagirlik3 (* poz3bagirlik2 0.00785))
(setq poz3boym (/ poz3hesap 100))
(setq poz3bagirlik (* poz3bagirlik3 poz3boym adethesapconvert))
(setq poz3bagirlikrtos (rtos poz3bagirlik 2 0))
(setq kgyazi3 (polar kgyazi2 (dtr 270.0) 19))
(setq kgyazi4 (polar kgyazi3 (dtr 270.0) 19))
(setq poz4bagirlik1 (* pi poz4 poz4))
(setq poz4bagirlik2 (/ poz4bagirlik1 4))
(setq poz4bagirlik3 (* poz4bagirlik2 0.00785))
(setq poz4boym (/ poz3hesap 100))
(setq poz4bagirlik (* poz4bagirlik3 poz4boym adethesapconvert))
(setq poz4bagirlikrtos (rtos poz4bagirlik 2 0))
(setq poz5bagirlik1 (* pi poz5 poz5))
(setq poz5bagirlik2 (/ poz5bagirlik1 4))
(setq poz5bagirlik3 (* poz5bagirlik2 0.00785))
(setq poz5boym (/ poz1hesap 100))
(setq poz5bagirlik (* poz5bagirlik3 poz5boym adethesapconvert))
(setq poz5bagirlikrtos (rtos poz5bagirlik 2 0))
(setq kgyazi5 (polar kgyazi4 (dtr 270.0) 19))
(setq poz6bagirlik1 (* pi poz6 poz6))
(setq poz6bagirlik2 (/ poz6bagirlik1 4))
(setq poz6bagirlik3 (* poz6bagirlik2 0.00785))
(setq poz6boym (/ poz6hesap 100))
(setq poz6bagirlik (* poz6bagirlik3 poz6boym adethesapconvert))
(setq poz6bagirlikrtos (rtos poz6bagirlik 2 0))
(setq kgyazi6 (polar kgyazi5 (dtr 270.0) 19))
(setq poz7bagirlik1 (* pi poz7 poz7))
(setq poz7bagirlik2 (/ poz7bagirlik1 4))
(setq poz7bagirlik3 (* poz7bagirlik2 0.00785))
(setq poz7boym (/ poz7hesap 100))
(setq poz7bagirlik (* poz7bagirlik3 poz7boym adethesapconvert))
(setq poz7bagirlikrtos (rtos poz7bagirlik 2 0))
(setq kgyazi7 (polar kgyazi6 (dtr 270.0) 19))
(setq sehpa1 (polar yyardim7 (dtr 270.0) 135))
(setq sehpa2 (polar sehpa1 (dtr 232.0) 10.04))
(setq seyazi5 (polar se3 (dtr 346.0) 5.2))
(setq tadd1 (polar tyazi19 (dtr 270.0) 19))
(setq tadd2 (polar tadd1 (dtr 270.0) 19))
(setq tadd3 (polar tadd2 (dtr 270.0) 19))
(setq tadd4 (polar tadd3 (dtr 180.0) 3))
(setq pozyazi1 (polar tyazi33 (dtr 270.0) 19))
(setq pozyazi3 (polar pozyazi1 (dtr 270.0) 19))
(setq pozyazi5 (polar pozyazi3 (dtr 270.0) 19))
(setq pozyazi2 (polar tyazi32 (dtr 270.0) 19))
(setq pozyazi4 (polar pozyazi2 (dtr 270.0) 19))
(setq pozyazi6 (polar pozyazi4 (dtr 270.0) 19))
(setq pozyazi7 (polar pozyazi6 (dtr 180.0) 3))
(setq ar1 (polar a9 (dtr 0.0)(+ paspayi 2.2)))
(setq tdonati1 (polar ar1 (dtr 270.0)(+ paspayi 2.2)))
(setq temeldonatihesap (- temelaltuzunluk 2paspayi))
(setq temeldonatihesap2 (- temeldonatihesap 4.4))
(setq temeldonatisonuc2 (/ temeldonatihesap2 temelaralik))
(setq temeldonatisonuc (rtos temeldonatisonuc2 2 0))
(setq ar2 (polar a4 (dtr 180.0)(+ paspayi 2.2)))
(setq tdonati2 (polar ar2 (dtr 270.0)(+ paspayi 2.2)))
(setq ar3 (polar a8 (dtr 0.0)(+ paspayi 2.2)))
(setq tdonati3 (polar ar3 (dtr 90.0)(+ paspayi 2.2)))
(setq tdonati4 (polar tdonati2 (dtr 270.0)(- sehpahesap 4.4)))
(setq tdonati5 (polar b2 (dtr 225.0) 3.1113))
(setq boyunadonatihesap (+ duvaryukseklik temelyukseklik))
(setq boyunadonatihesap1 (- boyunadonatihesap 2paspayi))
(setq boyunadonatihesap2 (- boyunadonatihesap1 4.4))
(setq boyunadonatisonuc1 (/ boyunadonatihesap2 boyunaaralik))
(setq boyunadonatisonuc (rtos boyunadonatisonuc1 2 0))
(setq baralikarray (* -1 boyunaaralik))
(setq tdonati6 (polar b4 (dtr 135.0) 3.1113))
(setq tdonati7 (polar b5 (dtr 315.0) 3.1113))
(setq tdonati8 (polar b6 (dtr 45.0) 3.1113))
(setq tdonati9 (polar tdonati8 (dtr 270.0)(- cikintiyukseklik temelyukseklik)))
(setq tdonati10 (polar tdonati9 (dtr 0.0)(- cikintigenislik 2paspayi 4.4)))
(setq byar (polar b6 (dtr 0.0)(- cikintigenislik 2paspayi)))
(setq sehpaadethesap (* temelaltuzunluk istinatuzunluk 0.0001 sehpaadet))
(setq sehpasonucrtos (rtos sehpaadethesap 2 0))
(setq poz8rtosconvert (atof sehpasonucrtos))
(setq adyazi8 (polar adyazi7 (dtr 270.0) 19))
(setq poz8rtos (rtos poz8 2 0))
(setq poz9rtos (rtos poz9 2 0))
(setq poz10rtos (rtos poz10 2 0))
(setq capyazi8 (polar capyazi7 (dtr 270.0) 19))
(setq capyazi9 (polar capyazi8 (dtr 270.0) 19))
(setq capyazi10 (polar capyazi9 (dtr 270.0) 19))
(setq poz8boy1 (- temelyukseklik 2paspayi))
(setq poz8boy2 (* poz8boy1 2))
(setq poz8boy (+ poz8boy2 70))
(setq poz8boyrtos (rtos poz8boy 2 0))
(setq lyazi9 (polar lyazi8 (dtr 270.0) 19))
(setq lyazi10 (polar lyazi9 (dtr 270.0) 19))
(setq lyazi11 (polar lyazi10 (dtr 270.0) 19))
(setq poz8birimagirlik1 (* pi poz8 poz8 0.00785))
(setq poz8birimagirlik (/ poz8birimagirlik1 4))
(setq poz8birimagirlikrtos (rtos poz8birimagirlik 2 3))
(setq biayazi8 (polar biayazi7 (dtr 270.0) 19))
(setq biayazi9 (polar biayazi8 (dtr 270.0) 19))
(setq biayazi10 (polar biayazi9 (dtr 270.0) 19))
(setq poz8boym (/ poz8boy 100))
(setq poz8bagirlik (* poz8bagirlik3 poz8boym poz8rtosconvert))
(setq poz8bagirlikrtos (rtos poz8bagirlik 2 0))
(setq kgyazi8 (polar kgyazi7 (dtr 270.0) 19))
(setq temeldonatiadet1 (/ temelaltuzunluk temelaralik))
(setq temeldonatiadet2 (* temeldonatiadet1 2))
(setq temeldonatiadet (+ temeldonatiadet2 2))
(setq temeldonatiadetrtos (rtos temeldonatiadet 2 0))
(setq temeldonatiadetatof (atof temeldonatiadetrtos))
(setq adyazi9 (polar adyazi8 (dtr 270.0) 19))
(setq adyazi10 (polar adyazi9 (dtr 270.0) 19))
(setq poz9boy1 (- istinatuzunluk 2paspayi))
(setq poz9boy2 (- temelyukseklik 2paspayi))
(setq poz9boy (+ poz9boy1 poz9boy2 poz9boy2))
(setq poz9boyrtos (rtos poz9boy 2 0))
(setq poz9birimagirlik1 (* pi poz9 poz9 0.00785))
(setq poz9birimagirlik (/ poz9birimagirlik1 4))
(setq poz9birimagirlikrtos (rtos poz9birimagirlik 2 3))
(setq poz9boym (/ poz9boy 100))
(setq poz9bagirlik (* poz9birimagirlik poz9boym temeldonatiadetatof))
(setq poz9bagirlikrtos (rtos poz9bagirlik 2 0))
(setq kgyazi9 (polar kgyazi8 (dtr 270.0) 19))
(setq duvardonatihesap1 (+ duvaryukseklik temelyukseklik))
(setq duvardonatihesap2 (/ duvardonatihesap1 boyunaaralik))
(setq duvardonatihesap (* duvardonatihesap2 2))
(setq duvardonatihesaprtos (rtos duvardonatihesap 2 0))
(setq duvardonatihesapatof (atof duvardonatihesaprtos))
(setq poz10boy1 (- istinatuzunluk 2paspayi))
(setq poz10boy (+ poz10boy1 20))
(setq poz10boyrtos (rtos poz10boy 2 0))
(setq poz10birimagirlik1 (* pi poz10 poz10 0.00785))
(setq poz10birimagirlik (/ poz10birimagirlik1 4))
(setq poz10birimagirlikrtos (rtos poz10birimagirlik 2 3))
(setq poz10boym (/ poz10boy 100))
(setq poz10bagirlik (* poz10birimagirlik poz10boym duvardonatihesapatof))
(setq poz10bagirlikrtos (rtos poz10bagirlik 2 0))
(setq kgyazi10 (polar kgyazi9 (dtr 270.0) 19))
(setq totalkg (+ poz1bagirlik poz2bagirlik poz3bagirlik poz4bagirlik poz5bagirlik poz6bagirlik poz7bagirlik poz8bagirlik poz9bagirlik poz10bagirlik))
(setq totalkgrtos (rtos totalkg 2 0))
(setq kgyazi11 (polar kgyazi10 (dtr 270.0) 19))


;;;; KOMUTLAR

(command "_.pline" a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a1 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(setq cerceve (ssget "l"))
(command "_.offset" 5 cerceve b3 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.line" b7 b3 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.line" b3 b4 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.copy" "l" "" b3 b7)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.line" b5 b6 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" c1 c2 c3 c4 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" c6 c7 c8 c9 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" d1 d2 d3 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" e1 e2 e3 e4 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" e5 e6 e7 e8 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" d4 d5 d6 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" d7 d8 d9 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" d10 d11 d12 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.text" yazi1 5 "0" yardimciyazirtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi2 5 "0" yardimciyazi2rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi3 5 "0" 20)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi4 5 "0" yardimciyazi4rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi5 5 "0" yardimciyazirtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi6 5 "0" yardimciyazi6rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi7 5 "0" 40)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi8 5 "0" yardimciyazi8rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi9 5 "0" yardimciyazi9rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi10 5 "0" yardimciyazi10rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi11 5 "0" yardimciyazi10rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi12 5 "0" yardimciyazi9rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi13 5 "0" yardimciyazi13rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi14 5 "0" yardimciyazi14rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi15 5 "0" yardimciyazi13rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yazi16 5 "0" yardimciyazi14rtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" y2yardim 15 "0" 1)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim1 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yyardim2 15 "0" 2)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim3 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yyardim4 15 "0" 3)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim5 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yyardim6 15 "0" 4)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim7 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yyardim8 15 "0" 5)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim9 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yyardim10 15 "0" 6)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim11 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" yyardim12 15 "0" 7)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" yyardim13 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.pline" grf1 grf2 grf3 grf4 grf1 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf5 grf12 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf6 grf13 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf7 grf14 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf8 grf15 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf9 grf16 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf10 grf17 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf11 grf18 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" grf19 grf20 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi2 6 "0" "POZ")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi3 6 "0" "DONATI BILGISI")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi5 9.5 "0" 1)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi6 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi8 9.5 "0" 2)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi9 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi11 9.5 "0" 3)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi12 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi14 9.5 "0" 4)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi15 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi17 9.5 "0" 5)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi18 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi20 9.5 "0" 6)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi21 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" gyazi23 9.5 "0" 7)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" gyazi24 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.pline" tab1 tab2 tab3 tab4 tab5 tab6 tab1 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab7 tab15 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab8 tab16 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab9 tab17 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab10 tab18 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab11 tab19 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab12 tab20 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab13 tab21 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab14 tab22 "")
(command "_.change" "l" "" "p" "c" "red" "")
(setq ofsetline (ssget "l"))
(command "_.offset" 19 ofsetline tab4 "")
(setq ofsetline1 (ssget "l"))
(command "_.offset" 19 ofsetline1 tab4 "")
(setq ofsetline2 (ssget "l"))
(command "_.offset" 19 ofsetline2 tab4 "")
(command "_.line" tab5 tab23 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab24 tab30 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab25 tab31 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab26 tab32 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab27 tab33 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab28 tab5 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.line" tab29 tab34 "")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi2 5.8 "0" "NO")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi3 5.8 "0" "POZ")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi4 5.8 "0" "ADET")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi5 5.8 "0" "DONATI CAPI")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi6 5.8 "0" "BOY (cm)")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi7 5.8 "0" "BIRIM AGIRLIK")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi8 5.8 "0" "KG")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi10 5.8 "0" "ISTINAT DUVARI DONATI METRAJI")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi12 9.5 "0" 1)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi14 9.5 "0" 2)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi15 9.5 "0" 3)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi16 9.5 "0" 4)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi17 9.5 "0" 5)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi18 9.5 "0" 6)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi19 9.5 "0" 7)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tyazi20 9.5 "0" 1)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi21 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi22 9.5 "0" 2)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi23 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi24 9.5 "0" 3)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi25 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi26 9.5 "0" 4)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi27 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi28 9.5 "0" 5)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi29 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi30 9.5 "0" 6)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi31 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi32 9.5 "0" 7)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tyazi33 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tyazi35 5.8 "0" "TOTAL =")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" lyazi2 5.8 "0" poz1sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi3 5.8 "0" poz2sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi4 5.8 "0" poz3sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi5 5.8 "0" poz3sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi6 5.8 "0" poz1sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi7 5.8 "0" poz6sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi8 5.8 "0" poz7sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi26 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi27 5.8 "0" poz1sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi28 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi29 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi30 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi31 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi32 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi33 5.8 "0" "L=")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi34 5.8 "0" poz2sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi35 5.8 "0" poz3sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi36 5.8 "0" poz3sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi37 5.8 "0" poz1sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi38 5.8 "0" poz6sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" gyazi39 5.8 "0" poz7sonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.pline" o1 o2 o3 o4 o5 o6 o7 o8 o9 o10 o1 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.dimlinear" o8 o9 oolc1)
(command "_.dimlinear" o9 o10 oolc2)
(command "_.dimaligned" o10 o1 oolc3)
(command "_.dimaligned" o1 o2 oolc4)
(command "_.dimaligned" o2 o3 oolc5)
(command "_.dimaligned" o3 o4 oolc6)
(command "_.dimaligned" o4 o5 oolc7)
(command "_.dimaligned" o6 o5 oolc8)
(command "_.dimaligned" o8 o7 oolc9)
(command "_.dimaligned" o10 o3 oolc10)
(command "_.pline" se1 se2 se3 se4 se5 se6 "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.pline" us1 us2 us3 us4 us1 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.line" us5 us8 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.line" us6 us9 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.line" us7 us10 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.dimaligned" us1 us5 uolc1)
(command "_.dimaligned" us5 us6 uolc1)
(command "_.dimaligned" us6 us7 uolc1)
(command "_.dimaligned" us7 us2 uolc1)
(command "_.dimaligned" us1 us2 uolc2)
(command "_.dimaligned" us2 us3 uolc3)
(command "_.pline" on1 on2 on3 on4 on1 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.line" on6 on8 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.line" on5 on7 "")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.dimaligned" on1 on2 onolc1)
(command "_.dimaligned" on2 on8 onolc2)
(command "_.dimaligned" on8 on7 onolc2)
(command "_.dimaligned" on7 on3 onolc2)
(command "_.dimaligned" on2 on3 onolc3)
(command "_.text" seyazi1 5 "0" 15)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" seyazi2 5 "0" 15)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" seyazi3 5 "0" sehpahesaprtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" seyazi4 5 "0" sehpahesaprtos)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" biyazi1 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi2 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi3 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi4 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi5 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi6 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi7 5.8 "0" "Ø")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi8 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi9 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi10 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi11 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi12 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi13 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi14 5.8 "0" "/")
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi15 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi16 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi17 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi18 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi19 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi20 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi21 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi22 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi23 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi24 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi25 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi26 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi27 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biyazi28 5.8 "0" etraralikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi1 5.8 "0" poz1rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi2 5.8 "0" poz2rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi3 5.8 "0" poz3rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi4 5.8 "0" poz4rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi5 5.8 "0" poz5rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi6 5.8 "0" poz6rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" cayazi7 5.8 "0" poz7rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi1 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi2 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi3 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi4 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi5 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi6 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi7 5.8 "0" adethesapsonuc)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi1 5.8 "0" poz1rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi2 5.8 "0" poz2rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi3 5.8 "0" poz3rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi4 5.8 "0" poz4rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi5 5.8 "0" poz5rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi6 5.8 "0" poz6rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi7 5.8 "0" poz7rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi1 5.8 "0" poz1bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi1 5.8 "0" poz1birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi2 5.8 "0" poz2birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi3 5.8 "0" poz3birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi4 5.8 "0" poz4birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi5 5.8 "0" poz5birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi6 5.8 "0" poz6birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi7 5.8 "0" poz7birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" usyazigenel1 20 "0" "UST GORUNUS")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" onorta2 20 "0" "ON GORUNUS")
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" kgyazi2 5.8 "0" poz2bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi3 5.8 "0" poz3bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi4 5.8 "0" poz4bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi5 5.8 "0" poz5bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi6 5.8 "0" poz6bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi7 5.8 "0" poz7bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.circle" sehpa1 13)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" sehpa2 15 "0" 8)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.text" seyazi5 5 "0" 40)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" tadd1 9.5 "0" 8)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tadd2 9.5 "0" 9)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" tadd4 9.5 "0" 10)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.circle" pozyazi1 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.circle" pozyazi3 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.circle" pozyazi5 8)
(command "_.change" "l" "" "p" "c" "red" "")
(command "_.text" pozyazi2 9.5 "0" 8)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.text" pozyazi4 9.5 "0" 9)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.text" pozyazi7 9.5 "0" 10)
(command "_.change" "l" "" "p" "c" "green" "")
(command "_.circle" tdonati1 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(setq arraya (ssget "l"))
(command "array" arraya "" "R" 5 temeldonatisonuc 0 temelaralik)
(command "_.circle" tdonati2 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.circle" tdonati3 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(setq arrayb (ssget "l"))
(command "array" arrayb "" "R" 5 temeldonatisonuc 0 temelaralik)
(command "_.circle" tdonati4 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.circle" tdonati5 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(setq arrayc (ssget "l"))
(command "array" arrayc "" "R" boyunadonatisonuc 1 baralikarray 0)
(command "_.circle" tdonati6 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.circle" tdonati7 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.circle" tdonati8 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.circle" tdonati9 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.circle" tdonati10 2.2)
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.line" b6 byar "")
(command "_.change" "l" "" "p" "c" "cyan" "")
(command "_.text" adyazi8 5.8 "0" sehpasonucrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi8 5.8 "0" poz8rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi9 5.8 "0" poz9rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" capyazi10 5.8 "0" poz10rtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi9 5.8 "0" poz8boyrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi8 5.8 "0" poz8birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi8 5.8 "0" poz8bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi9 5.8 "0" temeldonatiadetrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi10 5.8 "0" poz9boyrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi9 5.8 "0" poz9birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi9 5.8 "0" poz9bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" adyazi10 5.8 "0" duvardonatihesaprtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" lyazi11 5.8 "0" poz10boyrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" biayazi10 5.8 "0" poz10birimagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi10 5.8 "0" poz10bagirlikrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")
(command "_.text" kgyazi11 5.8 "0" totalkgrtos)
(command "_.change" "l" "" "p" "c" "yellow" "")

(princ)
)

04.01.2021 15:15    

Cevapladığınız için teşekkür ederim :)
dediklerinizi yaptım hala nil uyarısı alıyorum "poz8bagirlik3" değişkenini de düzelttim. Uzun yoldan yazdığımın farkındayım kusura bakmayın yavaş yavaş öğreniyorum :)

04.01.2021 15:38    

Tavsiye :)