Close Document Example (VBA)
This example shows how to create new parts
and close the parts by name.
'---------------------------------------------
' Preconditions: Open the Immediate window.
'
' Postconditions:
' 1. Opens a new part document titled Part1 and gets its title.
' 2. Opens another new part document titled Part2 and gets
' its title.
' 3. Release the pointer to Part2 and closes Part2.
' 4. Activates Part1.
'---------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part1 As SldWorks.PartDoc
Dim Part2 As SldWorks.PartDoc
Dim partTitle1 As String
Dim partTitle2 As String
Dim errors As Long
Sub main()
Set swApp = CreateObject("SldWorks.Application")
' Open a new part
Set Part1 = swApp.NewPart
' Get the part's title
partTitle1 = Part1.GetTitle
Debug.Print "Part1's title: " & partTitle1
' Open another new part
Set Part2 = swApp.NewPart
' Get the part's title
partTitle2 = Part2.GetTitle
Debug.Print "Part2's title: " & partTitle2
' Release the pointer to Part2
Set Part2 = Nothing
' Close the Part2
swApp.CloseDoc partTitle2
' Activate Part1
Set Part1 = swApp.ActivateDoc2(partTitle1, True, errors)
If ((errors <> 0) Or (Part1 Is Nothing)) Then
swApp.SendMsgToUser "Error activating Part1 document"
End If
End Sub