Solid Edge Framework Type Library > Application Object : Value Property |
Visual Basic |
---|
Public Property Value As String |
Private Sub Form_Load() Dim objApp As SolidEdgeFramework.Application Dim objDoc As SolidEdgePart.PartDocument Dim strValue As String ' 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 ' Get the Value property strValue = objApp.Value ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing End Sub