Dim instance As ICWLoadsAndRestraintsManager
Dim ForceType As Integer
Dim SelectionType As Integer
Dim RefDirType As Integer
Dim InterpolationMode As Integer
Dim DistPercentageOpt As Integer
Dim NumOfRows As Integer
Dim DistValue As Object
Dim ForceValue As Object
Dim NonUniformLoading As Boolean
Dim NULoadingOnBeam As Boolean
Dim NonUniformLoadDistDef As Integer
Dim NonUniformLoadDistType As Integer
Dim Ucode As Integer
Dim TorqueNFVal As Double
Dim Comps As Object
Dim FlipOrigin As Boolean
Dim IsCurvedBeam As Boolean
Dim DispArray As Object
Dim RefGeom As Object
Dim PerUnitLength As Boolean
Dim ErrorCode As Integer
Dim value As CWForce
value = instance.AddForce3(ForceType, SelectionType, RefDirType, InterpolationMode, DistPercentageOpt, NumOfRows, DistValue, ForceValue, NonUniformLoading, NULoadingOnBeam, NonUniformLoadDistDef, NonUniformLoadDistType, Ucode, TorqueNFVal, Comps, FlipOrigin, IsCurvedBeam, DispArray, RefGeom, PerUnitLength, ErrorCode)
|