机电专业技术网

解锁所有图层
(defun UnLock_All_Layers ()
  (vlax-for n (vla-get-layers
  (vla-get-ActiveDocument (vlax-get-acad-object))
       )
    (vla-put-lock n :vlax-false)
  )
)
解冻所有图层
(defun UnFreeze_All_Layers ()
  (vlax-for n (vla-get-layers
  (vla-get-ActiveDocument (vlax-get-acad-object))
       )
    (if (/= (vla-get-name n) (getvar "clayer"))
      ;;也可以用 (not (equal (vla-get-activelayer adoc) item))判断
      (vla-put-Freeze n :vlax-false)
    )
  )
) 机电专业技术网