(defun c:tt(/ obj)
(sk_layerLock (getvar "clayer") nil)
(princ)
)
;;;name:sk_layerLock
;;;desc:LayerLock图层锁定
;;;arg:layername 图层名 flag 锁定标志[t锁定或nil解锁]
;;;return:none 无
;;;example:(sk_layerLock "0" t)
;;;date:2017-7-28 23:02:13
(defun sk_layerLock(layername flag / obj en)
(if (setq en (tblobjname "layer" layername))
(progn
(setq obj(vlax-ename->vla-object en))
(if flag
(vla-put-lock obj :vlax-true)
(vla-put-lock obj :vlax-false)
)
(vla-put-layeron obj (vla-get-layeron obj))
(vla-regen (vla-get-activedocument(vlax-get-acad-object)) 1)
(vlax-release-object obj)
)
)
)