AddLoad Method

Description

Create a new load object.

Syntax

Visual Basic
Public Sub AddLoad( _ ByRef arrStudyGeomeProxies() As Object, _ ByVal eLoadType As FEALoadTypeEnum_Auto, _ ByVal dLoadValue As Double, _ ByVal dLoadValueAngAcceln As Double, _ ByVal eLoadDir As LoadSymbDirOptsEnum_Auto, _ ByVal x As Double, _ ByVal y As Double, _ ByVal z As Double, _ ByVal xx As Double, _ ByVal yy As Double, _ ByVal zz As Double, _ ByVal colorLoadSymbol As ULong, _ ByVal colorLoadSymbolAngAcc As ULong, _ ByVal dSpacingFactor As Double, _ ByVal dSizeFactor As Double, _ ByVal dSteeringWheelLen As Double, _ ByVal dwLoadProps As ULong, _ ByVal dLoadSymSpacing As Double, _ ByVal dLoadSymSize As Double, _ ByRef ppLoad As Object _ )

Visual Basic

Public Sub AddLoad( _
   ByRef arrStudyGeomeProxies() As Object, _
   ByVal eLoadType As FEALoadTypeEnum_Auto, _
   ByVal dLoadValue As Double, _
   ByVal dLoadValueAngAcceln As Double, _
   ByVal eLoadDir As LoadSymbDirOptsEnum_Auto, _
   ByVal x As Double, _
   ByVal y As Double, _
   ByVal z As Double, _
   ByVal xx As Double, _
   ByVal yy As Double, _
   ByVal zz As Double, _
   ByVal colorLoadSymbol As ULong, _
   ByVal colorLoadSymbolAngAcc As ULong, _
   ByVal dSpacingFactor As Double, _
   ByVal dSizeFactor As Double, _
   ByVal dSteeringWheelLen As Double, _
   ByVal dwLoadProps As ULong, _
   ByVal dLoadSymSpacing As Double, _
   ByVal dLoadSymSize As Double, _
   ByRef ppLoad As Object _
)

Parameters

arrStudyGeomeProxies

Geometries

eLoadType

Value	Description
eLoadTypeBearing_Auto
eLoadTypeCentrifugal_Auto
eLoadTypeEnforcedDisplacement_Auto
eLoadTypeEnforcedRotation_Auto
eLoadTypeForce_Auto
eLoadTypeGravity_Auto
eLoadTypeMoment_Auto
eLoadTypeNone_Auto
eLoadTypePressure_Auto
eLoadTypeSSHTConvection_Auto
eLoadTypeSSHTHeatflux_Auto
eLoadTypeSSHTHeatGeneration_Auto
eLoadTypeSSHTRadiation_Auto
eLoadTypeSSHTTemperature_Auto
eLoadTypeTemperature_Auto
eLoadTypeTorque_Auto

Load Type

dLoadValue

Load Value

dLoadValueAngAcceln

Ang Accn Load Value

eLoadDir

Value	Description
eLoadDirAboutAxis_Auto
eLoadDirAlongVec_Auto
eLoadDirCentrifugal_Auto
eLoadDirComponents_Auto
eLoadDirDefault_Auto
eLoadDirForCnstr_Auto
eLoadDirGravity_Auto
eLoadDirHeatFlux_Auto
eLoadDirNormalToFace_Auto
eLoadDirTorque_Auto

For force direction

x

X Direction

y

Y Direction

z

Z Direction

xx

X Direction

yy

Y Direction

zz

Z Direction

colorLoadSymbol

Color of the load symbols

colorLoadSymbolAngAcc

Color of the symbols

dSpacingFactor

Symbol spacing factor

dSizeFactor

Symbol size factor

dSteeringWheelLen

Steering wheel length

dwLoadProps

Load properties

dLoadSymSpacing

Load symbol spacing factor

dLoadSymSize

Load symbol size

ppLoad

Example

Example (VB.NET)

Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objPartDocument As SolidEdgePart.PartDocument = Nothing
        Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
        Dim objStudy As SolidEdgePart.Study = Nothing
        Dim objLoadOwner As SolidEdgePart.LoadOwner = Nothing
        Dim objLoad As SolidEdgePart.Load = Nothing
        Dim objProxiesArray(1) As Object
        Dim eLoadDirection As SolidEdgePart.LoadSymbDirOptsEnum_Auto
        Dim eLoadType As SolidEdgePart.FEALoadTypeEnum_Auto
        Dim dLoadValue As Double = 2500000
        Dim dLoadDirX As Double = -0.0
        Dim dLoadDirY As Double = 1.0
        Dim dLoadDirZ As Double = -0.0
        Dim dLoadPosX As Double = -0.0754203151729549
        Dim dLoadPosY As Double = 0.015441908335819984
        Dim dLoadPosZ As Double = 0.056796356131827666
        Dim dSpacingFactor As Double = 0.11
        Dim dSizeFactor As Double = 0.24200000000000002
        Dim dSteeringWheelLen As Double = 0.020253310860972911
        Dim dwLoadProps As UInt32 = 0
        Dim dLoadSymSpacing As Double = 0.016464634271235477
        Dim dLoadSymSize As Double = 0.036222195396718053
        Dim ColorLoadSymbol As UInt32 = 16736256
        Dim ColorLoadSymbolAngAcc As UInt32 = 8388673

        Try
            OleMessageFilter.Register()

            ' Connect to Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objPartDocument = objApplication.ActiveDocument

            objStudyOwner = objPartDocument.StudyOwner
            objStudy = objStudyOwner.Item(1)
            objStudy.GetLoadOwner(objLoadOwner)

            eLoadDirection = SolidEdgePart.LoadSymbDirOptsEnum_Auto.eLoadDirForCnstr_Auto
            eLoadType = SolidEdgePart.FEALoadTypeEnum_Auto.eLoadTypeForce_Auto

            ' Populate objProxiesArray

            objLoadOwner.AddLoad(objProxiesArray, _
                                 eLoadType, _
                                 dLoadValue, _
                                 0, _
                                 eLoadDirection, _
                                 dLoadDirX, _
                                 dLoadDirY, _
                                 dLoadDirZ, _
                                 dLoadPosX, _
                                 dLoadPosY, _
                                 dLoadPosZ, _
                                 ColorLoadSymbol, _
                                 ColorLoadSymbolAngAcc, _
                                 dSpacingFactor, _
                                 dSizeFactor, _
                                 dSteeringWheelLen, _
                                 dwLoadProps, _
                                 dLoadSymSpacing, _
                                 dLoadSymSize, _
                                 objLoad)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module