3D Yay çizen lisp (seçenekli)

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Bölüm indeksi

AutoCAD Kursu Ders Videoları

AutoCAD Kursu 2 Boyut Dersleri

Tesisat

Makine

3 Boyut

3ds Max

Lispler

Fontlar

AutoCAD

...

Eğitim

Karma 3 Boyut Dersleri

Adım Adım AutoCAD Eğitimi

Adım Adım 3 Boyut Eğitimi

Kariyer

3ds Max

Attribute lar

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 434, Üye: 1
mateus

Detaylar »

> AutoLISP > Örnek Lispler > 3D Yay çizen lisp (seçenekli)

3D Yay çizen lisp (seçenekli)

Oldukça kaliteli 3D yay çizimi
admin - 25.02.2006 11:02

Oldukça başarılı ve detaylı bir yay çizim lispi.

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

Kod:

(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 " --> 'cizimokulu.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

Download sayısı: 0, Boyut: 0.02 mb

Şifre Nedir? | Nasıl Açılır? | Hata Bildir

Benzer Sayfalar

Spiral çizen lisp (47.819)
Parabol çizen lisp (25.073)
Yer Belirtici Ok Çizen Lisp (57.998)
Yer Belirtici Yay Çizen Lisp (48.904)
Duvar çizen lisp (2D & 3D) (7.241)
Merdiven çizen lisp (47.306)
Civata ve Somun Çizen Lisp (40.534)
Merdiven çizen lisp (stairs.lsp) (66.641)
Otomatik Kapı Çizen Lisp (45.006)
Otomatik Pencere Çizen Lisp (43.541)

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.