Option Explicit
' COPYRIGHT DASSAULT SYSTEMES 2001
' *****************************************************************************
' Purpose: Save an Existing Document.
' Assumtions: Looks for CAAInfReadDocument.CATPart
' in the CATDocView
' Author:
' Languages: VBScript
' Locales: English
' CATIA Level: V5R7
' *****************************************************************************
Sub CATMain()
' -----------------------------------------------------------------------------------------------
' Optional: allows to find the sample wherever it may be installed
Dim sDocPath As String
sDocPath=CATIA.SystemService.Environ("CATDocView")
If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then
Err.Raise 9999,,"No Doc Path Defined"
End If
' ------------------------------------------------------------------------------------------------
'Open the document and add it as the last item of the collection of documents.
'Create and display a new window for the document.
'Activate the document and its window.
Dim sFilePath
sFilePath = CATIA.FileSystem.ConcatenatePaths(sDocPath, _
"online\CAAScdInfUseCases\samples\CAAInfReadDocument.CATPart")
Dim iPartDoc As Document
Set iPartDoc = CATIA.Documents.Open(sFilePath)
'The document just opened is the active document.
'Save the active document and then close it.
CATIA.ActiveDocument.Save()
CATIA.ActiveDocument.Close()
'Open the same document again.
Set iPartDoc = CATIA.Documents.Open(sFilePath)
'Save the document just opened using the variable name defined for it.
'Close the document in the same way.
iPartDoc.Save()
iPartDoc.Close()
'Open the same document a third time.
Set iPartDoc = CATIA.Documents.Open(sFilePath)
'Save the document by specifying its name and then close it.
CATIA.Documents.Item("CAAInfReadDocument.CATPart").Save()
CATIA.Documents.Item("CAAInfReadDocument.CATPart").Close()
End Sub