Warning: file_get_contents(http://mikiurl.com/api/?url=http://www.autocadhocasi.com/forum/topic/autocad-liste-fonksiyonlari-2) [function.file-get-contents]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home/autocadh/public_html/forum/bb-plugins/social-it/functions.php on line 844
;;;ç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.
