Open assembly using last model state

Copy Code

Public Sub OpenDocumentInLastActiveModelState()
    Dim strFullFileName As String
    strFullFileName = "C:\temp\Assembly1.iam"
    
    ' Set a reference to the FileManager object.
    Dim oFileManager As FileManager
    Set oFileManager = ThisApplication.FileManager
    
    ' Get the name of the last active model state.
    Dim strLastActiveMS As String
    strLastActiveMS = oFileManager.GetLastActiveModelState(strFullFileName)
    
    ' Use the full file name and ModelState name to get the full document name.
    Dim strFullDocumentName As String
    strFullDocumentName = oFileManager.GetFullDocumentName(strFullFileName, strLastActiveMS)
    
    ' Open the document in the last active model state.
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.Documents.Open(strFullDocumentName)
End Sub