3D Yay çizen lisp (seçenekli)

(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))
h3 (/ 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 h3) 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 " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")

Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.

Yazar: ByIIIShArK
İçerik:
Tag: 3D Yay çizen lisp, autolisp

Yorumlar :

nihat41 18.08.2009 11:31 #11626

bu işin doğayenisiniz,daha 5 dk oncesine kadar lips nedir bilmiyordum bi konu bu kadarmı güzel izah edilir :)

cankan_0 29.01.2008 21:32 #7066

bende deneyeceğım verdığın emek ıçın tesekkurler

tmrmert 07.11.2007 14:43 #6283

ya komut iyi güzelde çalışmıyor???? yay olarak yazıor8um ama hatalı command iletisi geliyor check edilirse sevinirim yada nasıl yapılıosa bi aydınlatın...

teşekürler...

truyka 07.08.2007 17:58 #5160

muhteşem olmuşşşş teşekkürler çok

hızır 23.05.2007 09:54 #4380

Çok harika olmuş.

seastar 21.05.2007 05:58 #4340

ByIIIShArK, kardeşime en içten teşekkürlerimi iletiyorum. elerine ve emeğine sağlık...:)

ayhan53ismail 11.04.2007 09:20 #3874

bu komutla daha kolay yayve eğmlili çizimler yapabiliyorum teşekkkür ederim

point_45 04.04.2007 07:41 #3732

Gerçekten güzel olmuş, ellerine sağlık

s_ustundag2000 27.12.2006 10:46 #1574

gerçekten mükemmel yıllardır eksikliğini hissettiğim bir konuda yardımcı oldunuz. Bazı çizimlerimde işimi çok kolaylaştırdınız teşekkürler....

redrua 16.11.2006 10:54 #952

ya ben bunuda çalıştıramadım. birisi yardım edebilirmi acaba?

MSucullu 26.02.2006 22:13 #240

lispi calıştırınca, önce 2 boyuttaki görünüşü ilgimi cekmedi ama 3 boyuttan bakınca gerçekten etkileyici bi yay çizdiğini gördüm. ama ilgimi çeken bişey daha var. (command "chprop" "l" "" "c" 1 "") şeklinde yazdığınız komut. sayenizde yeni bişey daha ögrendim. bu yuzden tesekkur ederim.