SaveAs Method

Description

Saves the referenced document to a new name, directory, or format.

Syntax

Visual Basic
Public Sub SaveAs( _ ByVal NewName As String, _ Optional ByVal IsATemplate As Variant, _ Optional ByVal FileFormat As Variant, _ Optional ByVal ReadOnlyEnforced As Variant, _ Optional ByVal ReadOnlyRecommended As Variant, _ Optional ByVal NewStatus As Variant, _ Optional ByVal CreateBackup As Variant, _ Optional ByVal UpdateLinkInContainer As Variant, _ Optional ByVal UpdateAllLinksInContainer As Variant _ )

Visual Basic

Public Sub SaveAs( _
   ByVal NewName As String, _
   Optional ByVal IsATemplate As Variant, _
   Optional ByVal FileFormat As Variant, _
   Optional ByVal ReadOnlyEnforced As Variant, _
   Optional ByVal ReadOnlyRecommended As Variant, _
   Optional ByVal NewStatus As Variant, _
   Optional ByVal CreateBackup As Variant, _
   Optional ByVal UpdateLinkInContainer As Variant, _
   Optional ByVal UpdateAllLinksInContainer As Variant _
)

Parameters

NewName: Specifies the name of the saved file. The other optional parameters are not currently supported.
IsATemplate: Not currently supported. However, to save a file as a template, you can save it under the template directory.
FileFormat: When saving as PDF, a value of True saves a 3D PDF where a value of False saves a 2D PDF. This argument is unsupported for other file types.
ReadOnlyEnforced: Not currently supported.
ReadOnlyRecommended: Not currently supported.
NewStatus: Not currently supported.
CreateBackup: Not currently supported.
UpdateLinkInContainer: Not currently supported.
UpdateAllLinksInContainer: Not currently supported.

Remarks

When used to copy a source document to a new file name, SaveAs assigns property set values to the new document to give the document a unique identity, changes the name of the document, and updates the window titles and most recently used menu items.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As solidedgeFramework.Application
    Dim objDoc As solidedgeAssembly.AssemblyDocument
    Dim objSummaryInfo As SummaryInfo
    Dim varSaveDate As String
    Dim sysTime As String
    Const TESTFILE = "T:\vbtests\testcases\sample.asm"
    ' Report errors
    Const PI = 3.14159265358979
    ' Create/get the application with specific settings
    On Error Resume Next
    Set objApp = GetObject(, "SolidEdge.Application")
    If Err Then
        Err.Clear
        Set objApp = CreateObject("SolidEdge.Application")
        Set objDoc = objApp.Documents.Add("SolidEdge.AssemblyDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    'Close the active document.
    Call objDoc.Close
    ' opening the test case file
    Set objDoc = objApp.Documents.Open(TESTFILE)
    ' saving the test case file as another file
    Call objDoc.SaveAs(NewName:="T:\Temp\sample.asm")

    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSummaryInfo = Nothing
End Sub