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

TAG:建筑 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)

点击查看 批处理小程序: 关闭SUO有DWG图形文件 全文>>>>>>