宏-关闭除当前文档以外的所有文档 - iCAx开思网

Option Explicit
'********************************************************************************************************************************************************
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017
' This macro closes all open documents except active document
' Preconditions:
' 1. Solidworks open with multiple documents open
' 2. Recommend do a save all before running
' Postconditions:
' 1. All documents closed except active document
'********************************************************************************************************************************************************
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim vModels As Variant
Dim modNames() As String
Dim docCount As Integer
Dim swModelName As String
Dim swDocType As Integer
Dim i As Integer
Sub main()
'********************************************************************************************************************************************************
' Get Application and active doc. Get active document name. Get documens variant.
'********************************************************************************************************************************************************
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModelName = swModel.GetTitle
swDocType = swModel.GetType
vModels = swApp.GetDocuments
'+++++++
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
'+++++++
'********************************************************************************************************************************************************
'Build a list of document names to close
'********************************************************************************************************************************************************
docCount = 1
For i = 0 To UBound(vModels)
If Not vModels(i).GetTitle = swModelName Then
ReDim Preserve modNames(docCount)
modNames(docCount) = vModels(i).GetTitle
docCount = docCount + 1
End If
Next i
'********************************************************************************************************************************************************
' Close the documents in the array created
'********************************************************************************************************************************************************
For i = 1 To UBound(modNames)
'Debug.Print (modName)
swApp.CloseDoc (modNames(i))
Next
End Sub

复制代码