Solid Edge Framework Type Library > SolidEdgeInsightXT Object : AddOrRemoveItemsToOrFromProjects Method |
This is two dimensional array.
Visual Basic |
---|
Public Sub AddOrRemoveItemsToOrFromProjects( _ ByRef pvarItemInfoToAddOrRemoveToProjects As Variant _ ) |
This is two dimensional array.
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 ItemInfoToAddOrRemoveToProjects(0, 2) As Variant ItemInfoToAddOrRemoveToProjects(0, 0) = "002359" ItemInfoToAddOrRemoveToProjects(0, 1) = "1987;1996;2000" ItemInfoToAddOrRemoveToProjects(0, 2) = "1983;1985" Call objSolidEdgeInsightXT.AddOrRemoveItemsToOrFromProjects(ItemInfoToAddOrRemoveToProjects) Set objSolidEdgeInsightXT = Nothing Set objApplication = Nothing End Sub