列出所有冻结的图层

Lisphk

1. (defun lislayerdoc ( / d l r )
   
2.     (while (setq d (tblnext "layer" (not d)))
   
3.         (if (and (zerop (logand 21 (cdr (assoc 70 d))))
   
4.                  (< 0 (cdr (assoc 62 d)))
   
5.                  (/= "defpoints" (strcase (setq l (cdr (assoc 2 d))) t))
   
6.             )
   
7.             (setq r (cons l r))
   
8.         )
   
9.     )
   
10.     (vl-sort r '<)
    
11. )

(defun lislayerdoc ( / d l r )<br />     (while (setq d (tblnext "layer" (not d)))<br />         (if (and (zerop (logand 21 (cdr (assoc 70 d))))<br />                  (< 0 (cdr (assoc 62 d)))<br />                  (/= "defpoints" (strcase (setq l (cdr (assoc 2 d))) t))<br />             )<br />             (setq r (cons l r))<br />         )<br />     )<br />     (vl-sort r '<)<br /> )

炫翔

图层 vla相对方便些

2. (defun lislayerdoc(l)
   
3.   (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   
4.     (if (= (vlax-get-property x "Freeze") :vlax-true)
   
5.       (setq l (cons (vla-get-name x) l))
   
6.     )
   
7.   )
   
8.   l
   
9. )

(defun lislayerdoc(l)<br />   (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))<br />     (if (= (vlax-get-property x "Freeze") :vlax-true)<br />       (setq l (cons (vla-get-name x) l))<br />     )<br />   )<br />   l<br /> )

yufeng37

炫翔 发表于 2017-5-9 16:17

犀利啊我的哥，您的方法我试了可以的。楼主的办法有问题，获取的图层都是非冻结的。

yoyoho

正需要，支持楼主大人了！