用vlisp编写一个关闭全部图层的程序，老出错，谁帮我看看啊，谢谢了
www.dimcax.com
用vlisp编写一个关闭全部图层的程序，老出错，谁帮我看看啊，谢谢了
(defun c:vvs() ;关闭全部图层
(vl-load-com)
(setq actdoc (vlax-get (vlax-get-acad-object) 'activedocument)
layerall (vlax-get actdoc 'layers)
)
(setq layerall (vlax-vla-object->ename layerall))
(foreach lay layerall
(vlax-put-property (vlax-invoke-method layerall 'item lay) 'layeron 0)
))
不好意思，问题已经解决了，哎刚学lisp，汗！
(foreach lay layerall
(vlax-put-property 'layeron 0)
))
这里的vlax-invoke-method函数是画蛇添足的了，哎