Modifies the undeformed geometry based on displacements obtained from
a specified load case
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int ModifyUndeformedGeometry(
string CaseName,
double SF,
int Stage = -1,
bool Original = false
)
Function ModifyUndeformedGeometry ( _
CaseName As String, _
SF As Double, _
Optional Stage As Integer = -1, _
Optional Original As Boolean = False _
) As Integer
int ModifyUndeformedGeometry(
String^ CaseName,
double SF,
int Stage = -1,
bool Original = false
)
Parameters
- CaseName
- Type:
System String
- SF
- Type:
System Double
- Stage (Optional)
- Type:
System Int32
This item applies only when the specified load case is a staged construction load case.
It is the stage number from which the displacements are obtained.
Specifying a -1 for this item means to use the last run stage.
- Original (Optional)
- Type:
System Boolean
If this item is True, all other input items in this function are ignored
and the original undeformed geometry data is reinstated.
Return Value
Returns zero if it is successful;
otherwise it returns a nonzero value
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 Value(5)
For i = 0 To 5
Value(i) = True
Next i
ret = SapModel.PointObj.SetRestraint("1", Value)
System.IO.Directory.CreateDirectory("c:\CSI_API_temp")
ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
ret = SapModel.Analyze.RunAnalysis
ret = SapModel.Analyze.ModifyUndeformedGeometry("DEAD", 1)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End Sub
Public 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 point object restraints
ReDim Value(5)
For i = 0 To 5
Value(i) = True
Next i
ret = SapModel.PointObj.SetRestraint("1", Value)
'run analysis
System.IO.Directory.CreateDirectory("c:\CSI_API_temp")
ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
ret = SapModel.Analyze.RunAnalysis
'modify undeformed geometry
ret = SapModel.Analyze.ModifyUndeformedGeometry("DEAD", 1)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub