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ı
1) AutoLISP Nedir?
2) AutoLisp dos.
3) Lisp Dosyala.
Autolisp komutl.
Autolisp te tip.
entmake fonksiy.
entmake fonksiy.
entmake fonksiy.
entmake fonksiy.
entmake fonksiy.
Liste Fonksiyon.
entmake fonksiy.
Liste Fonksiyon.
entmake fonksiy.
Liste Fonksiyon.
Örnek Lispler
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
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ı
1) AutoLISP Nedir?
2) AutoLisp dos.
3) Lisp Dosyala.
Autolisp komutl.
Autolisp te tip.
entmake fonksiy.
entmake fonksiy.
entmake fonksiy.
entmake fonksiy.
entmake fonksiy.
Liste Fonksiyon.
entmake fonksiy.
Liste Fonksiyon.
entmake fonksiy.
Liste Fonksiyon.
Örnek Lispler
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
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-5
entmake ile LAYER olusturmak
shark - 17.12.2005 08:29
shark - 17.12.2005 08:29
;Fonksiyon Tanımı:
;;;**********************************************
(defun layer-ekle(_ad _renk _cizgitipi _cizgikalinligi)
(if (null _renk) (setq _renk 7))
(if (null _cizgitipi) (setq _cizgitipi "Continuous"))
(if (null _cizgikalinligi) (setq _cizgikalinligi -3))
(if (not (tblobjname "LAYER" _ad))
(entmake (list (cons 0 "LAYER")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbLayerTableRecord")
(cons 2 _ad)
(cons 6 _cizgitipi)
(cons 62 _renk)
(cons 70 0) ;_ layer state
(cons 290 1) ;_ plot flag
(cons 370 _cizgikalinligi) ;_ (enum) -3: Default, 0: 0.00 5: 0.05, 9:0.09,...
) )
);_if
);_layer-ekle
;;;**********************************************
;Kullanımı :
;;;**********************************************
(layer-ekle "deneme" 1 nil nil)
;;;**********************************************
;Açıklama :
; Yukarıdaki kod "deneme" isimli kırmızı renkli bir layer oluşturur. Oluşan layer'in çizgitipi default yani 'continuous', çizgi kalınlığı da default'tur.
; (cons 70 0) satırındaki değer oluşacak layer'in durumunu belirler (ON/OFF, FREEZE/THAW). bu değer ayarlanabilir hale getirilebilir. Ancak layer-ekle fonksiyonunda bu deger default, yani 0 olarak alınmıştır.
;Aynı şekilde (cons 290 1) satırı da Layer'in plot işlemine girip girmeyecegini belirler. Bu fonksiyonda bu deger de default olarak 1 alınmıştır. Yani Layer 'çizilecek'.
;çizgi kalınlığı parametresi de 'nil' olarak verilirse fonksiyon içinde default dğere ayarlanır (-3). 0.00 için 0, 0.05 için 5, 0.09 için 9,... verilir.
;Oluşturulmak istenen layer'in zaten mevcut olup olmadığı fonksiyon içinde kontrol edilir. Varsa bir işlem yapılmaz, yoksa oluşturulur.
;;;**********************************************
(defun layer-ekle(_ad _renk _cizgitipi _cizgikalinligi)
(if (null _renk) (setq _renk 7))
(if (null _cizgitipi) (setq _cizgitipi "Continuous"))
(if (null _cizgikalinligi) (setq _cizgikalinligi -3))
(if (not (tblobjname "LAYER" _ad))
(entmake (list (cons 0 "LAYER")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbLayerTableRecord")
(cons 2 _ad)
(cons 6 _cizgitipi)
(cons 62 _renk)
(cons 70 0) ;_ layer state
(cons 290 1) ;_ plot flag
(cons 370 _cizgikalinligi) ;_ (enum) -3: Default, 0: 0.00 5: 0.05, 9:0.09,...
) )
);_if
);_layer-ekle
;;;**********************************************
;Kullanımı :
;;;**********************************************
(layer-ekle "deneme" 1 nil nil)
;;;**********************************************
;Açıklama :
; Yukarıdaki kod "deneme" isimli kırmızı renkli bir layer oluşturur. Oluşan layer'in çizgitipi default yani 'continuous', çizgi kalınlığı da default'tur.
; (cons 70 0) satırındaki değer oluşacak layer'in durumunu belirler (ON/OFF, FREEZE/THAW). bu değer ayarlanabilir hale getirilebilir. Ancak layer-ekle fonksiyonunda bu deger default, yani 0 olarak alınmıştır.
;Aynı şekilde (cons 290 1) satırı da Layer'in plot işlemine girip girmeyecegini belirler. Bu fonksiyonda bu deger de default olarak 1 alınmıştır. Yani Layer 'çizilecek'.
;çizgi kalınlığı parametresi de 'nil' olarak verilirse fonksiyon içinde default dğere ayarlanır (-3). 0.00 için 0, 0.05 için 5, 0.09 için 9,... verilir.
;Oluşturulmak istenen layer'in zaten mevcut olup olmadığı fonksiyon içinde kontrol edilir. Varsa bir işlem yapılmaz, yoksa oluşturulur.
Yazar: Derya KILIÇ
İçerik:
Tag:
Yorumlar :
ismailasi 23.11.2010 18:55 #13526
sevgili ehya bu sorunun cevabı bu olmamalıydı. cevap şu:
gördüğün lisp kodlarının en başına parantez açıp defun c:dilediğin komut ismi () yazıyorsun sonra da tüm kodların sonuna kapalı parantez, yani başta açıp en sonda kapatıyoruz. sonra autocad'de lispi yükleyip komut satırına lispin başında c: dan sonra verdiğin komut ismini yazıp enter e basıyorsun. lispin sonucunu göreceksin.
ehya 13.09.2007 10:48 #5521
Bu kullanabileceğiniz bir komut değil. Entmake fonsiyonunun lisp içerisinde işlevini anlatan bir lisp...
yazici_m 13.09.2007 10:42 #5520
bu lispin komutu nedir acaba açamadık da