这种情况分两种：一是图层加解锁简单；二是图层是外部参照，你没法直接改。解决办法有两个：1）回原图改；2）把外部参照绑定，变成一个整体，敲碎一次就行。各有优缺点，自己看着办吧。
-
-
;;图层锁定状态转变
;;单选图元，若图元所在层锁定将解锁，若解锁则锁定
(defun c:txtt (/ AcadObject AcadDocument mSpace
layers layer layerObj lockstatus loop
ent Obj
)
(VL-LOAD-COM)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace (vla-get-ModelSpace Acaddocument)
layers (vla-get-layers AcadDocument)
)
(setq loop t)
(while loop
(setq ent (entsel "\n选取循环锁定层上的一个图元："))
(if (null ent)
(princ "\n无效选择!")
(setq loop nil)
)
)
(setq Obj (vlax-ename->vla-object (car ent)))
(setq layer (vla-get-layer Obj))
(setq layerObj (vla-item layers layer))
(setq lockstatus (vla-get-lock layerObj))
(cond
((= lockstatus :vlax-true)
(vla-put-lock layerObj :vlax-false)
(prompt "\n图层已解锁")
)
((= lockstatus :vlax-false)
(vla-put-lock layerObj :vlax-true)
(prompt "\n图层已锁定")
)
)
) -
在图层管理里面点小锁