












































































































































































































































AutoCAD 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ı
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
Duvar-Lento-Kapı-Pencere Metraj Programı
2D Polyline 'ı 3D Polyline yapan lisp
ehya - 23.08.2005 12: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ış