




































































































































































































































AutoCAD Genel
AutoCAD Eğitimi
3ds Max
Ö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ı
entmake fonksiyonu-7
entmake ile LWPOLYLINE çizmek
shark - 28.12.2005 15:00
shark - 28.12.2005 15:00
;;;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
;;; Fonksiyon Tanımı:
(defun lwpolyline_ciz(_noklist _kalinlik _acikkapali _lyr / _nvert _opts _ele)
(setq _nvert (length _noklist)
_opts (list (cons 0 "LWPOLYLINE")
(cons 8 _lyr)
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 _nvert)
(cons 70 _acikkapali)
(cons 43 _kalinlik))
)
(foreach _ele _noklist (setq _opts (append _opts (list (cons 10 _ele)))))
(entmake _opts)
);_lwpolyline_ciz
;;;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
;;; Kullanım :
(setq plist (list (list 10 20) (list 30 40) (list 50 60)))
(lwpolyline_ciz plist 0.0 T "deneme")
;;; Sonuç :
ekrana (10,20) (30,40) ve (50,60) noktalarından geçen 0.0 kalınlıklı, kapalı ve "deneme" isimli layer'da bir lwpolyline çizer.
;;; Fonksiyon Tanımı:
(defun lwpolyline_ciz(_noklist _kalinlik _acikkapali _lyr / _nvert _opts _ele)
(setq _nvert (length _noklist)
_opts (list (cons 0 "LWPOLYLINE")
(cons 8 _lyr)
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 _nvert)
(cons 70 _acikkapali)
(cons 43 _kalinlik))
)
(foreach _ele _noklist (setq _opts (append _opts (list (cons 10 _ele)))))
(entmake _opts)
);_lwpolyline_ciz
;;;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
;;; Kullanım :
(setq plist (list (list 10 20) (list 30 40) (list 50 60)))
(lwpolyline_ciz plist 0.0 T "deneme")
;;; Sonuç :
ekrana (10,20) (30,40) ve (50,60) noktalarından geçen 0.0 kalınlıklı, kapalı ve "deneme" isimli layer'da bir lwpolyline çizer.
Yazar: Derya KILIÇ
İçerik:
Tag: