本帖最后由 satan421 于 2019-5-9 09:55 编辑
;;
 - (defun c:SetFreeze ()
- (vlax-for lay (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
- (if (or(= (vla-get-lock lay) :vlax-true)(= (vlax-get-property lay "LayerOn") :vlax-false))
- (vla-put-Freeze lay :vlax-true)
- )
- )
- (princ)
- )
|