如何获取所有已冻结的图层？谢谢！

龙龙仔

;;试清楚了吗? (defun C:TEST (/ LAY NAME AA)
(while (setq LAY (tblnext "layer" (not LAY)))
(setq NAME (cdr (assoc 2 LAY)))
(if (= (logand (cdr (assoc 70 LAY)) 1) 1)
(setq AA (append (list NAME) AA))
)
)
AA
)

citykunan

版主，我知道了，我理解错了。


原来想帮别人解决错误的，现在反而学到了一招，谢谢版主们。

meflying

(logand 1 1)->1

wuxjld

有这么多的热心朋友帮忙，多谢了！

无痕

2. (defun c:tt (/ lays lst)
3.    (setq lays (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))))
4.    (vlax-for x lays (if (= (vla-get-freeze x) :vlax-true)(setq lst (cons (vla-get-name x) lst))))
5.    (vlax-release-object lays)
6.    lst
7. )

(defun c:tt (/ lays lst)    (setq lays (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))))    (vlax-for x lays (if (= (vla-get-freeze x) :vlax-true)(setq lst (cons (vla-get-name x) lst))))    (vlax-release-object lays)    lst )

Ea

2. (defun c:Test (/ fl)
3.    (vlax-map-collection
4.        (vla-get-layers
5.            (vla-get-activedocument (vlax-get-acad-object))
6.        )
7.        '(lambda (lay)
8.              (if (= (vla-get-freeze lay) :vlax-true)
9.    (setq fl (cons (vla-get-name lay) fl))
10.              )
11.          )
12.    )
13.    (princ fl)
14.    (princ)
15. )

(defun c:Test (/ fl)    (vlax-map-collection        (vla-get-layers            (vla-get-activedocument (vlax-get-acad-object))        )        '(lambda (lay)              (if (= (vla-get-freeze lay) :vlax-true)    (setq fl (cons (vla-get-name lay) fl))              )          )    )    (princ fl)    (princ) )