Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 Boyut Dersleri
Proje Dökümanları
Çizimler
Mimari Çizimler
Elektrik
DoÄŸalgaz
Harita Çizimleri
Tesisat
Ferforje
Makine
3 Boyut
3ds Max
ArchiCAD
Solidworks
Diğer Çizimler
Lispler
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
Sürümler
Menüler
DWF Dosyaları
Programlama
AutoCAD Püfleri
EÄŸitim
AutoCAD EÄŸitimi
Karma 3 Boyut Dersleri
Adım Adım AutoCAD Eğitimi
01.Bölüm
02.Bölüm
03.Bölüm
04.Bölüm
05.Bölüm
06.Bölüm
07.Bölüm
08.Bölüm
09.Bölüm
10.Bölüm
11.Bölüm
12.Bölüm
Uygulamalar
Adım Adım 3 Boyut Eğitimi
Kariyer
3ds Max
Attribute lar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
3D Yay çizen lisp (seçenekli)
admin - 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
bu işin doğayenisiniz,daha 5 dk oncesine kadar lips nedir bilmiyordum bi konu bu kadarmı güzel izah edilir :)
bende deneyeceğım verdığın emek ıçın tesekkurler
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...
muhteşem olmuşşşş teşekkürler çok
Çok harika olmuş.
ByIIIShArK, kardeşime en içten teşekkürlerimi iletiyorum. elerine ve emeğine sağlık...:)
bu komutla daha kolay yayve eğmlili çizimler yapabiliyorum teşekkkür ederim
Gerçekten güzel olmuş, ellerine sağlık
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....
ya ben bunuda çalıştıramadım. birisi yardım edebilirmi acaba?
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.