Code:
Mein Code in VB.NET:
Dim SmarTeamIntern As SmarTeam.SmApplication
Dim SmEngineIntern As SmApplic.ISmEngine
Dim SmSessionIntern As SmApplic.ISmSession
Dim SmServiceIntern As SmApplic.ISmService Dim FileDescription As SmRecList.SmRecordList
Dim Retcode As Integer
Dim ObjectID As Integer
Dim ClassID As Integer
Dim IntgToolsLib As SMCADINTERFACELib.ISmCADInterface
Try
SmarTeamIntern = GetObject(, "SmarTeam.SmApplication")
SmEngineIntern = SmarTeamIntern.Engine
SmSessionIntern = SmEngineIntern.Sessions(0)
FileDescription = SmarTeamIntern.NewRecordList
IntgToolsLib = SmSessionIntern.GetService("SmCAD.SMCADInterface")
FileDescription.AddHeader("FILE_NAME", 256, SmRecList.SmDataTypesEnum.sdtChar)
FileDescription.AddHeader("INTEGRATION_BEHAVIOR", 256, SmRecList.SmDataTypesEnum.sdtChar)
FileDescription.AddHeader("TDM_COMPONENT_NAME", 256, SmRecList.SmDataTypesEnum.sdtChar)
FileDescription.Value("FILE_NAME", 0) = "D:\TeamPDM\Schaumstoffkörner.CATPart"
FileDescription.Value("INTEGRATION_BEHAVIOR", 0) = "TDM_CATIA_PART"
FileDescription.Value("TDM_COMPONENT_NAME", 0) = "Default"
Retcode = IntgToolsLib.FindObject(FileDescription, ObjectID, ClassID)
MsgBox(ObjectID.ToString)
MsgBox(ClassID.ToString)
Catch ex As Exception
MsgBox(ex.ToString)
End Try