SaveAsToInsightXT Method

Description

Save as the file under new item.

Syntax

Visual Basic
Public Sub SaveAsToInsightXT( _ ByVal bstrItemId As String, _ ByVal bstrItemRev As String, _ ByVal bstrDataSetFileName As String, _ ByVal bstrRevisionRule As String, _ ByVal bstrFolderName As String, _ ByRef pvarListOldAndNewItemIDRevsFileNames As Variant _ )

Visual Basic

Public Sub SaveAsToInsightXT( _
   ByVal bstrItemId As String, _
   ByVal bstrItemRev As String, _
   ByVal bstrDataSetFileName As String, _
   ByVal bstrRevisionRule As String, _
   ByVal bstrFolderName As String, _
   ByRef pvarListOldAndNewItemIDRevsFileNames As Variant _
)

Parameters

bstrItemId: Specifies the item-id of the item.
bstrItemRev: Specifies the item-rev of the item.
bstrDataSetFileName: DataSetName of the file.
bstrRevisionRule: Revision Rule of the file.
bstrFolderName: Name of the folder where the new file supposed to save.
pvarListOldAndNewItemIDRevsFileNames: The old and new data such as ItemId,Rev,FileName.

Example

Example (Visual Basic)

Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeInsightXT  As SolidEdgeFramework.SolidEdgeInsightXT
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT

    Dim FileItemID As String
    Dim FileItemRevID As String
    Dim FileDataSetName As String
    Dim FileRevisionRule As String
    Dim FolderName As String
    Dim pListOldAndNewItemIDRevsFileNamesAs As Variant
    
    FileItemID = "020670"
    FileItemRevID = "A"
    FileDataSetName = "020670.par"
    FileRevisionRule = ""
    FolderName = ""

    Call objSolidEdgeInsightXT.SaveAsToInsightXT(FileItemID, _
        FileItemRevID, _
        FileDataSetName, _
        FileRevisionRule, _
        FolderName, _
        pListOldAndNewItemIDRevsFileNamesAs)

    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub