Question

lisp怎样判断某一层是否是冻结状态

Answer 1

;;恢复图层状态;;
(defun s161123 ( / lay)
 (if (null vlax-dump-object) (vl-load-com) )
 (vlax-for lay (vla-get-layers (vla-get-activedocument  (vlax-get-acad-object)))
  (if (= (vla-get-lock lay) :vlax-true);如果图层锁定
   (vla-put-lock lay :vlax-false) ;解锁
  )
  (if (= (vlax-get-property lay "Freeze") :vlax-true);冻结
   (vla-put-Freeze lay :vlax-False);解冻
  )
  (if (= (vlax-get-property lay "LayerOn") :vlax-false);关闭
   (vla-put-LayerOn lay :vlax-true);打开
  );(princ (setq lay1 (vla-get-name lay))) ;(图层的名称)
 )
)