MapMFKAttributtesToFileProperties Method

Description

This API will take FileName as input and returns PropertyName, PropertyID and PropertySet.

Syntax

Visual Basic
Public Sub MapMFKAttributtesToFileProperties( _ ByVal bstrFilename As String, _ ByRef psaMFKAttributes() As Variant, _ ByRef pvarPropertyInfo As Variant _ )

Parameters

bstrFilename: Specify complete path of the file.
psaMFKAttributes: It is an array of Key Properties for which above detailed information needs to be fetched.
pvarPropertyInfo: The above information for Key Properties will be provided in this parameter in a form of 2-D array.

Example

Example (VB.NET)

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub MapMFKAttributtesToFileProperties_Click(sender As Object, e As EventArgs) Handles MapMFKAttributtesToFileProperties.Click
        Dim objSEApplication As SolidEdgeFramework.Application = Nothing
        Dim objTCE As SolidEdgeFramework.SolidEdgeTCE = Nothing
        Dim majorVersion As Object = Nothing
        Dim completeVersion As Object = Nothing
        Dim UserName As String
        Dim Password As String
        Dim Group As String
        Dim Role As String
        Dim URL As String
        Dim bTeamCenterMode As Boolean
        Dim ListOfItemTypes As Object = Nothing
        Dim FilePath As String = "C:\Test.dft"
        Try
            objSEApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objSEApplication.DisplayAlerts = False

            objTCE = objSEApplication.SolidEdgeTCE
            Call objTCE.GetTeamCenterMode(bTeamCenterMode)
            If bTeamCenterMode = False Then
                objTCE.SetTeamCenterMode(True)
            End If
            'Specify Server Credentials
            UserName = "abc"
            Password = "abc"
            Group = ""
            Role = ""
            URL = "http://Servername:8085/tc"

            Call objTCE.ValidateLogin(UserName, Password, Group, Role, URL)
            objTCE.GetItemTypesInfoEx(FilePath, ListOfItemTypes)


        Catch ex As Exception
            MsgBox(ex.ToString)
            Clipboard.SetText(ex.ToString)
        End Try
    End Sub
End Class