Reset Untitled Document Count Example (VB.NET)

For new untitled documents, SOLIDWORKS increments the untitled document count and generates a document name by appending the count to the document type. By default, Part1 is for the first untitled document in a SOLIDWORKS session, Part2 for the next untitled document in that same SOLIDWORKS session, etc.). The untitled document count is automatically reset between SOLIDWORKS sessions.

You can use ISldWorks::ResetUntitledCount to reset the untitled document count within a single SOLIDWORKS session.

The following code example demonstrates how to use ISldWorks::ResetUntitledCount to reset the untitled document count. The code resets the untitled document count at the beginning of the SOLIDWORKS session, creates two untitled documents, maximizes one document, and minimizes the second document.

NOTE: Programs designed to run multiple times in the same SOLIDWORKS session should either assign titles to new documents or reset the untitled document count at the beginning of the SOLIDWORKS session. This ensures that SOLIDWORKS creates predictable names for untitled documents, resulting in predictable outcomes for each invocation of the program.

'--------------------------------------------------------------
' Preconditions: Verify that the specified document template
' exists.
'
' Postconditions:
' 1. Creates two new untitled part documents, Part9 and Part10;
'    maximizes Part9 and minimizes Part10.
' 2. Minimize Part9 and maximize Part10.
'--------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System

Partial Class SolidWorksMacro

    Public Sub main()

        Dim Part As ModelDoc2 = Nothing
        Dim Part2 As ModelDoc2 = Nothing
        Dim boolstatus As Boolean = False
        Dim longstatus As Integer = 0
        Dim longwarnings As Integer = 0

        ' Reset the counts for untitled documents 
        ' (parts, assemblies, and drawings) to 8
        swApp.ResetUntitledCount(8, 8, 8)

        ' When a new untitled document is created, 
        ' SOLIDWORKS increments the untitled document 
        ' count to 9
        ' The next untitled document gets a name with 
        ' count = 9("Part9")
        Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2016\templates\Part.prtdot", 0, 0, 0)
        swApp.ActivateDoc2("Part9", False, longstatus)
        Dim myModelView As ModelView = Nothing
        myModelView = Part.ActiveView

        ' Maximize Part9
        myModelView.FrameState = swWindowState_e.swWindowMaximized

        ' When a new untitled document is created, 
        ' SOLIDWORKS increments the untitled document count to 10
        ' The next untitled document gets a name with 
        ' count = 10("Part10")
        Part2 = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2016\templates\Part.prtdot", 0, 0, 0)
        swApp.ActivateDoc2("Part10", False, longstatus)
        Dim myModelView2 As ModelView = Nothing
        myModelView2 = Part2.ActiveView

        ' Minimize Part10
        myModelView2.FrameState = swWindowState_e.swWindowMinimized

    End Sub
    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks

End Class