|
;;Author: eachy 2006.10.20 (defun c:lyrlk (/ *acad* doc) (setq *acad* (vlax-get-acad-object) doc (vla-get-activedocument *acad*) ) (vla-startundomark doc) (vl-catch-all-apply '(lambda (/ lyr e) (while (setq e (car (entsel "\nSelect Lock Layer: "))) (setq lyr (cdr (assoc 8 (entget e)))) (vla-eval (vlax-get-acad-object) (strcat "Thisdrawing.layers.Item(\"" lyr "\").Lock = True") ) ) ) ) (vla-endundomark doc) (princ) )
|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )
GMT+8, 2024-5-14 15:54 , Processed in 0.254775 second(s), 23 queries , Gzip On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.