* E Posta Adresiniz:
* Kodu Girin:

Liste Fonksiyonları-2

Çizimdeki Layer'ların listesi
shark - 28.12.2005 17:49
Yazar: Derya KILIÇ
İçerik:

(Kontrol panelinizde görünür)
;;;çizimdeki layer'ların bir listesini verir.
;;;sonuç : ((açık layer listesi) (OFF layer listesi) (FROZEN layer listesi))
(defun layer_listesi( / elist OPEN_list OFF_list FROZEN_list durum)
(setq elist (tblnext "LAYER" T))
(while elist
(setq durum (cdr (assoc 70 elist)))
(cond
((or (= 1 durum) (= 2 durum)) (setq FROZEN_list (append FROZEN_list (list (cdr (assoc 2 elist))))))
((minusp (cdr (assoc 62 elist))) (setq OFF_list (append OFF_list (list (cdr (assoc 2 elist))))))
(t (setq OPEN_list (append OPEN_list (list (cdr (assoc 2 elist))))))
)
(setq elist (tblnext "LAYER" nil))
)
(list OPEN_list OFF_list FROZEN_list)
);_layer_listesi
; Örnek Kullanım:
(layer_listesi)
(("0" "layer1" "layer2") ("layer3") ("layer4" "layer5))
; layer_listesi fonksiyonunu çalıştırdığımızda elde edilen sonuca göre; "0","layer" ve "layer2" isimli layer'lar açık (OPEN), "layer3" isimli layer OFF, "layer4" isimli layer ise FREEZE durumundadir.
Yorumlar :
Henüz yorum yapılmamış
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 714 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam