Retrieves uncoupled spring stiffness assignments for a point object, that is,
it retrieves the diagonal terms in the 6x6 spring matrix for the point object.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int GetSpring(
string Name,
ref double[] K
)
Function GetSpring ( _
Name As String, _
ByRef K As Double() _
) As Integer
int GetSpring(
String^ Name,
array<double>^% K
)
Return Value
Returns zero if the stiffnesses are successfully retrieved,
otherwise it returns a nonzero value. If no springs exist at the point object,
the function returns a nonzero value.
The spring stiffnesses reported are the sum of all springs assigned
to the point object. The spring stiffness values are reported
in the point local coordinate system.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
ret = EtabsObject.ApplicationStart()
SapModel = EtabsObject.SapModel
ret = SapModel.InitializeNewModel()
ret = SapModel.File.NewSteelDeck(4, 12, 12, 4, 4, 24, 24)
ReDim k(5)
k(2) = 10
ret = SapModel.PointObj.SetSpring("3", k)
ReDim k(5)
ret = SapModel.PointObj.GetSpring("3", k)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End SubPublic Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
'create ETABS object
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
'start ETABS application
ret = EtabsObject.ApplicationStart()
'create SapModel object
SapModel = EtabsObject.SapModel
'initialize model
ret = SapModel.InitializeNewModel()
'create steel deck template model
ret = SapModel.File.NewSteelDeck(4, 12, 12, 4, 4, 24, 24)
'assign spring to a point
ReDim k(5)
k(2) = 10
ret = SapModel.PointObj.SetSpring("3", k)
'get spring values
ReDim k(5)
ret = SapModel.PointObj.GetSpring("3", k)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub