Solid Edge Framework Type Library
PutItemTypeAsCustomProp Method
File Name.
Item Type.
Description
Put Item Type as Custom property
Syntax
Visual Basic
Public Sub PutItemTypeAsCustomProp( _
   ByVal bstrFilename As String, _
   ByVal bstrItemType As String _
) 
Parameters
bstrFilename
File Name.
bstrItemType
Item Type.
Example
Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeInsightXT  As SolidEdgeFramework.SolidEdgeInsightXT
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT

    Dim FileName As String
    Dim FileItemType As String

    FileName = ""
    FileItemType = "Item"

    Call objSolidEdgeInsightXT.PutItemTypeAsCustomProp(FileName, FileItemType)

    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub
See Also

SolidEdgeInsightXT Object  | SolidEdgeInsightXT Members  | Solid Edge ST4 - What's New