以前网上下的，在2012下锁定不能变灰？如何改？

BUBUBA918

(defun c:laylock ()
  (vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))
  (setq LayersObj  (vla-get-layers acadDocument ))
  (setq k T)
  (while k
            (setq  layent  (entsel "\n请选取要锁定或解锁层中的一个实体<退出>: "))
            (if   layent
                (progn
                      (setq  layent  (car   layent))
                      (setq  layentvla  (vlax-ename->vla-object  layent))
                      (setq laystr (vla-get-layer  layentvla))
                      (setq layvla (vla-item LayersObj  laystr))
                      (setq laylock (vla-get-lock  layvla))
                      (if (=  laylock :vlax-false)
                          (progn
                                (vla-put-lock  layvla  :vlax-True)
                                (princ (strcat "\n" laystr  " 层已锁"))
                                                    (entmod lay_ent)       
                          )
                        ( progn
                              (vla-put-lock  layvla  :vlax-false)
                               (princ (strcat "\n"  laystr  " 层已解锁"))
                       )
                     )         
               )
               (setq k nil)
           )
  )
  (princ)
)
(c:laylock)

fcrosstour

貌似要保存一下，再重生成就可以变灰了