Add a variable to the variable table

[rmcanany]

@Bert303 https://community.sw.siemens.com/s/question/0D54O00008CYFGISA5/can-the-property-text-mass-be-shown-in-both-lbm-kg-in-a-callout

Value could be a formula

[rmcanany]

https://community.sw.siemens.com/s/question/0D5KZ000000Y1I80AK/can-we-put-a-diameter-sign-at-the-beginning-of-the-information-taken-from-the-variable-table

Imports System Imports System.Runtime.InteropServices

Namespace Examples Friend Class Program

Shared Sub Main(ByVal args() As String) Dim application As SolidEdgeFramework.Application = Nothing Dim document As SolidEdgeFramework.SolidEdgeDocument = Nothing Dim variables As SolidEdgeFramework.Variables = Nothing Dim variable As SolidEdgeFramework.variable = Nothing Try ' See "Handling 'Application is Busy' and 'Call was Rejected By Callee' errors" topic. OleMessageFilter.Register() ' Attempt to connect to a running instance of Solid Edge. application = DirectCast(Marshal.GetActiveObject("SolidEdge.Application"), SolidEdgeFramework.Application) document = CType(application.ActiveDocument, SolidEdgeFramework.SolidEdgeDocument) variables = CType(document.Variables, SolidEdgeFramework.Variables) variable = CType(variables.Add("Variable1", "100.0", SolidEdgeConstants.UnitTypeConstants.igUnitDistance), SolidEdgeFramework.variable) variable = CType(variables.Add("Variable2", "100 mm", SolidEdgeConstants.UnitTypeConstants.igUnitDistance), SolidEdgeFramework.variable) variable = CType(variables.Add("Variable3", "Variable1 * Variable2", SolidEdgeConstants.UnitTypeConstants.igUnitArea), SolidEdgeFramework.variable) Catch ex As System.Exception Console.WriteLine(ex) Finally OleMessageFilter.Unregister() End Try End Sub End Class End Namespace

[rmcanany]

`

Imports System Imports System.Runtime.InteropServices

Namespace Examples Friend Class Program

Shared Sub Main(ByVal args() As String) Dim application As SolidEdgeFramework.Application = Nothing Dim document As SolidEdgeFramework.SolidEdgeDocument = Nothing Dim variables As SolidEdgeFramework.Variables = Nothing Dim variable As SolidEdgeFramework.variable = Nothing Try ' See "Handling 'Application is Busy' and 'Call was Rejected By Callee' errors" topic. OleMessageFilter.Register() ' Attempt to connect to a running instance of Solid Edge. application = DirectCast(Marshal.GetActiveObject("SolidEdge.Application"), SolidEdgeFramework.Application) document = CType(application.ActiveDocument, SolidEdgeFramework.SolidEdgeDocument) variables = CType(document.Variables, SolidEdgeFramework.Variables) ' Add a new variable. variable = CType(variables.Add("Variable1", "100.0", SolidEdgeConstants.UnitTypeConstants.igUnitDistance), SolidEdgeFramework.variable) ' Edit the new variable. variables.Edit("Variable1", "200.0") Catch ex As System.Exception Console.WriteLine(ex) Finally OleMessageFilter.Unregister() End Try End Sub End Class End Namespace `

[rmcanany]

Input Editor progress

[rmcanany]

Done