Close Document Example (VBA)

This example shows how to create new parts and close the parts by name.

 

'---------------------------------------------

Dim swApp As Object

Dim Part As Object

Dim Gtol As Object

Dim partTitle, partTitle2 As String

 

' This must be explicitly defined for ActivateDoc2

Dim errors As Long 

 

Sub OpenAndCloseDocs()

 

Set swApp = CreateObject ("SldWorks.Application")

 

' Open a new part

Set Part = swApp.NewPart    

' Get the part title

partTitle = Part.GetTitle    

' Example call using this Part object

Part.EditRebuild     

 

' Open another new part

Set Part = swApp.NewPart    

' Get the part title

partTitle2 = Part.GetTitle    

' Example call using this Part object

Part.EditRebuild     

 

' Release the Part pointer

Set Part = Nothing     

' Close the second part

swApp.CloseDoc partTitle2    

 

' Activate the original part

Set Part = swApp.ActivateDoc2 (partTitle,True,errors) 

If ((errors <> 0) or (Part is Nothing)) Then

SwApp.SendMsgToUser "Error activating document"

 

' <Based on the error, put desired code here.>

 

Exit Sub   

End If

 

' Example call using this Part object

Part.EditRebuild     

 

' You also have the option of using different object variable names for the PartDoc object (that is, Part1 and Part2) and performing PartDoc object (that is, Part1 and Part2) and performing operations on each PartDoc using the individual object variables. As a general practice, it is probably a good idea to make the desired PartDoc the active document (ActivateDoc2) when you will be performing operations with that document.

' For example:

' Dim Part1, Part2 As Object

' Set Part1 = swApp.NewPart

' Set Part2 = swApp.NewPart

 

End Sub