Private Sub Form_Load()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeAssembly.AssemblyDocument
Dim objPart As SolidEdgeAssembly.Occurrence
Dim dblOriginX As Double
Dim dblOriginY As Double
Dim dblOriginZ As Double
Dim dblAngleX As Double
Dim dblAngleY As Double
Dim dblAngleZ As Double
Const TESTFILE = "T:\vbtests\testcases\cube.par"
' 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
' adding a part document to an assembly document
Set objPart = objDoc.Occurrences.AddByFilename(OccurrenceFileName:=TESTFILE)
' changing the location and orientation of the placed part
dblOriginX = 0.05
dblOriginY = 0.025
dblOriginZ = 0.075
dblAngleX = PI / 3
dblAngleY = PI / 4
dblAngleZ = PI / 5
Call objPart.PutTransform(OriginX:=dblOriginX, OriginY:=dblOriginY, OriginZ:=dblOriginZ, _
anglex:=dblAngleX, angley:=dblAngleY, anglez:=dblAngleZ)
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objPart = Nothing
End Sub