Solid Edge Framework Type Library : Variables Collection |
Sub Main() Dim objApp As SolidEdgeFramework.Application Dim objDoc As SolidEdgePart.PartDocument Dim objVariables As SolidEdgeFramework.Variables Dim objVariable As SolidEdgeFramework.variable Dim objVarList As Object Dim isLinked As Boolean = False objApp = GetObject(, "SolidEdge.Application") objDoc = objApp.ActiveDocument objVariables = objDoc.Variables objVarList = objVariables.Query(pFindCriterium:="MyVar") For Each objVariable In objVarList Next End Sub