Private Sub Form_Load()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objModel As SolidEdgePart.Model
Dim ObjFace As solidedgegeometry.Face
Dim objPlane As Object
Dim dblRPoint() As Double
Dim dblReqRelAccy As Double
Dim dblArea As Double
Dim dblMoments() As Double
Dim dblPrincipalAxes() As Double
Dim dblRelAccyAchieved As Double
' 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
'Create base feature
If CreateModel(objDoc) <> "" Then
MsgBox "Error creating the model"
Exit Sub
End If
'Get a handle to Model
Set objModel = objDoc.Models(1)
'Get the BottomCap of the Protrusion
Set ObjFace = objModel.ExtrudedProtrusions(1).BottomCap
'Get the Plane object
Set objPlane = ObjFace.Geometry
dblReqRelAccy = 0.0001
Call objPlane.GetPlaneProperties(ReqRelAccy:=dblReqRelAccy, Area:=dblArea, RootPoint:=dblRPoint(), _
Moments:=dblMoments, PrincipalAxes:=dblPrincipalAxes, RelAccyAchieved:=dblRelAccyAchieved)
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objModel = Nothing
Set ObjFace = Nothing
Set objPlane = Nothing
End Sub