cizimokulu bülten aboneliği
Bölüm indeksi
Makaleler 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 larAutoCAD Genel
AutoCAD EÄŸitimi
Özel Yazılımlar
- 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ı
Ölçekli Türk Bayrağı çizen lisp
2D Polyline 'ı 3D Polyline yapan lisp
ehya - 23.08.2005 15:12
Lwpolyline olan nesneyi 3dpolyline yapan lisp
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
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.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(defun c:23p (/ data i pt)
(setq
data (entget (setq sil (car (entsel "
Lwpolyline'ı seçiniz:"))))
)
(setq data_tan (cdr (assoc 0 data)))
(if (/= data_tan "LWPOLYLINE")
(progn (princ "
Seçilen nesne Lwpolyline değil..."))
(progn
(command "3dpoly")
(while (setq pt (assoc 10 data))
(setq data (cdr (member pt data)))
(setq pt_x (cadr pt)
pt_y (caddr pt)
)
(setq ptt (list pt_x pt_y 0.00))
(command ptt)
)
(command "")
(entdel sil)
)
)
(princ)
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(setq
data (entget (setq sil (car (entsel "
Lwpolyline'ı seçiniz:"))))
)
(setq data_tan (cdr (assoc 0 data)))
(if (/= data_tan "LWPOLYLINE")
(progn (princ "
Seçilen nesne Lwpolyline değil..."))
(progn
(command "3dpoly")
(while (setq pt (assoc 10 data))
(setq data (cdr (member pt data)))
(setq pt_x (cadr pt)
pt_y (caddr pt)
)
(setq ptt (list pt_x pt_y 0.00))
(command ptt)
)
(command "")
(entdel sil)
)
)
(princ)
)(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: ehya
İçerik:
Tag:
Yorumlar :
Henüz yorum yapılmamış