entmake fonksiyonu-5

;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.

Yazar: Derya KILIÇ
İçerik:
Tag: