ComputePhysicalProperties Method

Description

Calculates the physical properties of the referenced model.

Syntax

Visual Basic
Public Sub ComputePhysicalProperties( _ ByVal Density As Double, _ ByVal Accuracy As Double, _ ByRef Volume As Double, _ ByRef Area As Double, _ ByRef Mass As Double, _ ByRef CenterOfGravity() As Double, _ ByRef CenterOfVolume() As Double, _ ByRef GlobalMomentsOfInteria() As Double, _ ByRef PrincipalMomentsOfInteria() As Double, _ ByRef PrincipalAxes() As Double, _ ByRef RadiiOfGyration() As Double, _ ByRef RelativeAccuracyAchieved As Double, _ ByRef Status As Integer _ )

Visual Basic

Public Sub ComputePhysicalProperties( _
   ByVal Density As Double, _
   ByVal Accuracy As Double, _
   ByRef Volume As Double, _
   ByRef Area As Double, _
   ByRef Mass As Double, _
   ByRef CenterOfGravity() As Double, _
   ByRef CenterOfVolume() As Double, _
   ByRef GlobalMomentsOfInteria() As Double, _
   ByRef PrincipalMomentsOfInteria() As Double, _
   ByRef PrincipalAxes() As Double, _
   ByRef RadiiOfGyration() As Double, _
   ByRef RelativeAccuracyAchieved As Double, _
   ByRef Status As Integer _
)

Parameters

Density: Specifies the density to use in the physical property calculations.
Accuracy: Specifies the accuracy used when computing the physical properties.
Volume: Returns the volume of the model.
Area: Returns the surface area of the model.
Mass: Returns the mass of the model.
CenterOfGravity: Returns three double values to indicate the x-, y-, and z-coordinates of the center of gravity of the model.
CenterOfVolume: Returns three double values to indicate the x-, y-, and z-coordinates of the center of volume of the model.
GlobalMomentsOfInteria: Returns six double values to indicate the Ixx, Iyy, Izz, Ixy, Ixz, and Iyz components of the global moments of inertia of the model.
PrincipalMomentsOfInteria: Returns three double values to indicate the lxx, lyy, and lzz components of the principal moments of inertia of the model.
PrincipalAxes: Returns nine double values to indicate the orientation of the principal axes of the model.
RadiiOfGyration: Returns three double values to indicate the radii of gyration of the model.
RelativeAccuracyAchieved: Returns a double value to indicate the actual accuracy achieved when calculating the physical properties. The accuracy parameter specifies the maximum accuracy, but, depending on the geometry of the model, the physical properties can be calculated more accurately.
Status: Returns an integer value that indicates the status of the physical properties of the model.

Remarks

Working from two inputs, density and accuracy, ComputePhysicalProperties calculates the physical properties of the referenced model. (It is assumed that there is one part per file.) This method acts on all solid geometry in the file and includes disjoint features. When no properties have previously been computed, ComputePhysicalProperties computes and returns the physical properties of the model. When properties have previously been computed but are out of date, ComputePhysicalProperties recomputes and then returns the physical properties of the model. When properties have previously been computed but are up to date, ComputePhysicalProperties returns the physical properties of the model without recalculating.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objBody As SolidEdgeGeometry.Body
    Dim dblDensity As Double, dblAccuracy As Double, dblVolume As Double
    Dim dblArea As Double, dblMass As Double, dblCGravity(1 To 3) As Double
    Dim dblCVolume(1 To 3) As Double, dblGMomInertia(1 To 6) As Double, dblPMomInertia(1 To 3) As Double
    Dim dblPrinAxes(1 To 9) As Double, dblRadGyration(1 To 3) As Double, dblRAccAchieved As Double
    Dim lngStat As Long
    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.PartDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    Call objDoc.Close
    ' opening the test case file
    Set objDoc = objApp.Documents.Open(TESTFILE)
    ' getting the body object of the model
    Set objBody = objDoc.Models(1).Body
    ' getting the PhysicalProperties collection for the Body object
    dblDensity = 1
    dblAccuracy = 0.001
    Call objBody.ComputePhysicalProperties(Density:=dblDensity, Accuracy:=dblAccuracy, _
                                           Volume:=dblVolume, Area:=dblArea, Mass:=dblMass, CenterOfGravity:=dblCGravity, _
                                           CenterOfVolume:=dblCVolume, GlobalMomentsOfInteria:=dblGMomInertia, _
                                           PrincipalMomentsOfInteria:=dblPMomInertia, PrincipalAxes:=dblPrinAxes, _
                                           RadiiOfGyration:=dblRadGyration, RelativeAccuracyAchieved:=dblRAccAchieved, Status:=lngStat)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
End Sub