Solid Edge Framework Type Library
GetListOfIndirectFilesForGivenFileUsingKeyProperties Method
It is a two-dimensional array which will take Key Properties and their values as input.
Specify the item-rev of the item.
Specify the item-type of the item.
Specify the dataset name of the file.
Specify the Revision Rule.
Returns the list of names of indirect files.
Description
Returns all the indirect file names using Key Properties.
Syntax
Visual Basic
Public Sub GetListOfIndirectFilesForGivenFileUsingKeyProperties( _
   ByRef pvarMFKAttrInfo As Variant, _
   ByVal bstrItemRev As String, _
   ByVal bstrItemType As String, _
   ByVal bstrDataSetFileName As String, _
   ByVal bstrRevisionRule As String, _
   ByRef pvarListOfIndirectFiles As Variant _
) 
Parameters
pvarMFKAttrInfo
It is a two-dimensional array which will take Key Properties and their values as input.
bstrItemRev
Specify the item-rev of the item.
bstrItemType
Specify the item-type of the item.
bstrDataSetFileName
Specify the dataset name of the file.
bstrRevisionRule
Specify the Revision Rule.
pvarListOfIndirectFiles
Returns the list of names of indirect files.
Example
Imports System.Runtime.InteropServices

Public Class Form1 

    Private Sub GetListOfIndirectFilesForGivenFileUsingKeyProperties_Click(sender As Object, e As EventArgs) Handles GetListOfIndirectFilesForGivenFileUsingKeyProperties.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 MFKAttributes(2, 1) As Object
        MFKAttributes(0, 0) = "item_id"
        MFKAttributes(0, 1) = "001410"
        MFKAttributes(1, 0) = "object_type"
        MFKAttributes(1, 1) = "MFK9Item12"
        MFKAttributes(2, 0) = "mfk9attribute1"
        MFKAttributes(2, 1) = "hhhh"

        Dim FileItemRevID As String = "A"
        Dim ItemTypeMFK As Object
        ItemTypeMFK = "MFK9Item12"
        Dim revRule As String = "Latest Working"
        Dim FileDataSetName As String = "001410-BE144.asm"
        Dim ListOfFileNames As Object = Nothing

        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.GetListOfIndirectFilesForGivenFileUsingKeyProperties(MFKAttributes, FileItemRevID, ItemTypeMFK, FileDataSetName, revRule, ListOfFileNames)

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

SolidEdgeTCE Object  | SolidEdgeTCE Members