Details
How to saveas object in TCE application?
Solution
This is done by SaveAsToTeamCenter API as below,
Dim objApplication As SolidEdgeFramework.Application
Dim objSolidEdgeTCE As SolidEdgeFramework.SolidEdgeTCE Dim objListFileNames As Object = Nothing
objApplication = GetObject(, "SolidEdge.Application")
objSolidEdgeTCE = objApplication.SolidEdgeTCE
Dim FileItemID As String
Dim FileItemRevID As String
Dim FileDataSetName As String
Dim FileRevisionRule As String
Dim FolderName As String
FileItemID = "020670"
FileItemRevID = "A"
FileDataSetName = "020670.par"
FileRevisionRule = ""
FolderName = "Newstuff\SE\NewFolder"
Call objSolidEdgeTCE.SaveAsToTeamCenter(FileItemID, FileItemRevID, FileDataSetName, FileRevisionRule, FolderName, objListFileNames)
objSolidEdgeTCE = Nothing
objApplication = Nothing
Hardware/Software Configuration
Platform: AMD64
OS: windows
OS Version: 1064
Product: SOLID_EDGE
Application: AUTOMATION
Version: V221.0
Function: API_DOCUMENT
Ref: 002-8565095