Bilgisayarla Çizim Teknikleri (AutoCad komutlari) (M.E.B.)

dosya 1

dosya 2

paylaşımın için teşekkürler...

Paylaşımın için sağolasın....

hazır yay çizebilmek için lisp kodları türkçe :


Autocad içerisinde yay çizebilmek için lisp kullanın.Autocad`in içerisinde yay çizmek mümkün fakat biraz zor.Ama yay lispi kullanırsanız problem kalmaz.
Altta duran kodları kopyalayarak command satırına yapıştırın.
komut çalıştırmak için yay yazın.
-------------------------------------------------------------------------------------

(defun c:YAY()
(setq spin -1); -1=CW, 1=CCW
(setq ri (getreal "Alt yarıçap: ") rf (getreal "Üst yarıçap: "))
(initget (+ 1 4))
(setq h (getreal "Yükseklik: "))
(initget (+ 1 2 4))
(setq tu (getreal "Tur sayısı: "))
(setq segs (getint "Her turdaki köşe sayısı <20>: ")); more=smoother
(if (= segs nil)(setq segs 20))
(setq old (getvar "osmode"))
(setvar "cmdecho" 0)
(setq fi1 (/ (* 2 PI) segs) i 0)
(setq points (fix (* tu segs))
h1 (/ h points) r1 (/ (- rf ri) points)
s (getpoint "Yayın merkez noktasını işaretleyiniz: ")
end (list (car s) (cadr s) (+ h (caddr s))))
(setvar "osmode" 0 )
(command "line" s end "")
(command "chprop" "l" "" "c" 1 "")
(command "3dpoly")
(setq i 0)
(repeat (1+ points)
(setq fi (* i fi1) h (* i h1) r (+ ri (* i r1)))
(setq x (* r (cos fi)) y (* spin r (sin fi)))
(command (list (+ (car s) x) (+ (cadr s) y) (+ (caddr s) h)))
(setq i (1+ i)))
(command "")
(setvar "osmode" old))
(Princ "Komutu çalıştırmk için [YAY] yazınız!")
(PRINC " --> `tfincan` Çizim yardımları yüklendi !")
__________________