Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT = Nothing
Dim FileItemID As String
Dim FileItemRevID As String
Dim FileDataSetName As String
Dim listoffiles As Object = Nothing
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT
FileItemID = "PRT-03311"
FileItemRevID = "A"
FileDataSetName = "PRT-03311_A.par"
Call objSolidEdgeInsightXT.GetMappedPropertiesForGivenFile(FileItemID, _
FileItemRevID, _
FileDataSetName, _
listoffiles)
MsgBox("Material of the part " + FileDataSetName + " is " + DirectCast(listoffiles, Object(,))(1, 1).ToString)
objSolidEdgeInsightXT = Nothing
objApplication = Nothing
Catch ex As Exception
MsgBox(ex.ToString)
Finally
objApplication = Nothing
objSolidEdgeInsightXT = Nothing
End Try
End Sub
End Class