[求助]如何查看现有的图层是否被锁定？

hkzwsy

如何查看现有的图层是否被锁定，也就是LAYER的群码

meflying

(tblsearch "layer" "0");0是层名

xcajcj

Command: (tblsearch "layer" "30")
((0 . "LAYER") (2 . "30") (70 . 1) (62 . 1) (6 . "CONTINUOUS"))

王咣生

(vl-load-com) (setq *acad-object* nil) ; Initialize global variable
(defun vlex-AcadObject ()
(cond (*acad-object*) ; Return the cached object
(T
(setq *acad-object* (vlax-Get-Acad-Object))
)
)
) (setq *vlex-ActiveDocument* nil)
(defun vlex-ActiveDocument ()
(cond (*vlex-ActiveDocument*) ; Return the cached object
(T
(setq *vlex-ActiveDocument* (vla-Get-ActiveDocument (vlex-AcadObject)))
)
)
) (defun vlex-LayerTable()
(vla-get-Layers (vlex-ActiveDocument))
) (defun vlex-ListLayers-Locked ( / each out)
(vlax-for each (vlex-LayerTable)
(if (= (vlax-get-property each "Lock") :vlax-true)
(setq out (cons (vla-get-name each) out))
)
)
out
) _$ Command: (vlex-ListLayers-Locked)

无痕

2. (defun lal (/ k las)
3.    (while (setq la (tblnext "layer" (if k nil (setq k 1))))
4.        (if (=   (cdr(assoc 70 la)) 4)
5.          (setq las (append   (list(cdr (assoc 2 la))) las))
6.        )
7.    )las
8. )

(defun lal (/ k las)    (while (setq la (tblnext "layer" (if k nil (setq k 1))))        (if (=   (cdr(assoc 70 la)) 4)          (setq las (append   (list(cdr (assoc 2 la))) las))        )    )las )