Private Sub Form_Load()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeAssembly.AssemblyDocument
Dim objAngRel As SolidEdgeAssembly.AngularRelation3d
Dim bToPlane As Boolean
Dim bFromPlane As Boolean
Dim bCCWise As Boolean
Dim dblVector(1 To 3) As Double
Const TESTFILE = "T:\vbtests\testcases\Sample.asm"
' 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.AssemblyDocument")
objApp.Visible = True
Else
Set objDoc = objApp.ActiveDocument
End If
Call objDoc.Close
' opening an existing assembly document
Set objDoc = objApp.Documents.Open(TESTFILE)
' getting the angular relation in the Relations3D collection object for the assembly document
Set objAngRel = objDoc.Relations3d.Item(10)
' getting the definition of the angular relation
Call objAngRel.GetDefinition(ToPlane1PositiveSide:=bToPlane, FromPlane2PositiveSide:=bFromPlane, _
CounterClockWise:=bCCWise, VectorX:=dblVector(1), VectorY:=dblVector(2), VectorZ:=dblVector(3))
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objAngRel = Nothing
End Sub