Sub Main()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeFramework.SolidEdgeDocument
Dim objVariables As SolidEdgeFramework.Variables
Dim objVariable As Object
Dim objVarList As SolidEdgeFramework.VariableList
Dim isLinked As Boolean = False
Dim i as Integer
objApp = GetObject(, "SolidEdge.Application")
objDoc = objApp.ActiveDocument
objVariables = objDoc.Variables
objVarList = objVariables.Query(pFindCriterium:="*", NamedBy:=SolidEdgeConstants.VariableNameBy.seVariableNameByBoth, VarType:=SolidEdgeConstants.VariableVarType.SeVariableVarTypeDimension)
For i = 1 To objVarList.Count
objVariable = objVarList.Item(i)
MsgBox(objVariable.displayname)
Next
End Sub