ByIIIShArK - 25.02.2006 11:02
Bu içeriğin yayınlanmasını sağlayan ByIIIShArK 'a teşekkürler.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(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
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 :)
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...
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
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....
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.