【转帖】解开图层语句出错，为什么？
 

解开图层语句出错，为什么？
www.dimcax.com
解开图层语句出错，为什么？
(vlax-for obj layerall
(vlax-put-property obj 'freeze 0))
这个语句不可以吗，为什么老会出现错误：错误: automation 错误。 图层无效
整个函数，功能：解开所有图层
(defun c:fa() ;解开全部图层
(vl-load-com)
(setq actdoc (vlax-get (vlax-get-acad-object) 'activedocument)
layerall (vlax-get actdoc 'layers)
)
(vlax-for obj layerall
(vlax-put-property obj 'freeze 0)
(vlax-put-property obj 'lock 0)
(vlax-put-property obj 'layeron 1)
)
)
(prompt "\n 解开全部图层")
(princ)
)

check here: