冻结选取层外的其他图层时出现错误，求帮助！

pw_design

下面是代码(defun c:djqtc()
  (acad-activex-base)   ;djqtc=冻结其他层
  (defun acad-activex-base ()
    (vl-load-com)
    (setq acadobj (vlax-get-acad-object))
    (setq dwgobj (vla-get-ActiveDocument acadobj))
    (setq mspace (vla-get-ModelSpace dwgobj))
  )
  (setq layersobj (vla-get-layers dwgobj))
  (princ "\n选择对象")
  (setq ss (ssget))
  (setq i 0 enlaylist nil)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq xobj (vlax-ename->vla-object en))
    (setq lay (vla-get-layer xobj))
    (if (not (member lay enlaylist))
      (setq enlaylist (cons lay enlaylist))
      )
    (setq i (1+ i))
    )
  (vlax-for sobj layersobj
    (vla-put-Freeze sobj 0)
    )
  (foreach layr enlaylist
    (vlax-for sobj layersobj
      (setq layn (vla-get-name sobj))
      (if (= layn layr)
        (vla-put-Freeze sobj 0)
        )
      )
    )
  (acad-activex-exit)
  (defun acad-activex-exit () (vlax-release-object acadobj))
  (princ)
  )
然后出现错误提示：错误！Automation 错误。 图层无效 想了半天了 一直解不出来，求大佬帮忙解决一下！谢谢

pw_design

好吧 我自己解决了   

1. (vlax-for sobj layersobj
   
2.     (if (/= (vla-get-name sobj) "0")
   
3.       (vla-put-Freeze sobj -1)
   
4.       )
   
5.     )

复制代码

这里这样改就能运行了 如果各位大佬看到我程序的缺点，请提出来。谢谢！