批处理小程序: 关闭SUO有DWG图形文件

更多相关内容请访问"CAD家园论坛",万人专家团为您在线答疑!

批处理小程序: 关闭所有DWG图形文件
(defun closealldwgs ()
(lax-for Item (la-get-Documents (lax-get-acad-object))
(if (= (la-get-Actie Item) :lax-False)
(la-close Item :lax-true)
(la-SendCommand Item "_.close\n")
)
)
)