Private Sub Form_Load()
Dim objApp As SolidEdgeframework.Application
Dim objDoc As SolidEdgepart.PartDocument
Dim objVars As SolidEdgeframework.Variables
Dim objVar1 As SolidEdgeframework.variable
Dim strVar As String
Dim strFormula As String
Dim lngUTyp As Long
' Report errors
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
If Err Then
Err.Clear
Set objApp = CreateObject("SolidEdge.Application")
Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument")
objApp.Visible = True
Else
Set objDoc = objApp.ActiveDocument
End If
' Open the TestCase file
Set objDoc = objApp.Documents.Open(Filename:="T:\vbtests\TestCases\Variables.par")
' Add a new Variable to the already existing Variables
Set objVars = objDoc.Variables
' Set the Variable name and Formula
strVar = "MyVar"
strFormula = "2*Height"
Set objVar1 = objVars.Add(pName:=strVar, pFormula:=strFormula, UnitsType:=igUnitDistance)
' Get the UnitsType of Variable
lngUTyp = objVar1.UnitsType
' Set a new UnitsType
objVar1.UnitsType = 2
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objVars = Nothing
Set objVar1 = Nothing
End Sub