Liste Fonksiyonları-2

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

Yazar: Derya KILIÇ
İçerik:
Tag: