Creates a new grid-only model from template.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int NewGridOnly(
int NumberStorys,
double TypicalStoryHeight,
double BottomStoryHeight,
int NumberLinesX,
int NumberLinesY,
double SpacingX,
double SpacingY
)
Function NewGridOnly ( _
NumberStorys As Integer, _
TypicalStoryHeight As Double, _
BottomStoryHeight As Double, _
NumberLinesX As Integer, _
NumberLinesY As Integer, _
SpacingX As Double, _
SpacingY As Double _
) As Integer
int NewGridOnly(
int NumberStorys,
double TypicalStoryHeight,
double BottomStoryHeight,
int NumberLinesX,
int NumberLinesY,
double SpacingX,
double SpacingY
)
Parameters
- NumberStorys
- Type:
System Int32
The number of stories in the model
- TypicalStoryHeight
- Type: System Double
The story height that will be used for all stories in the model,
except the bottom story. [L]
- BottomStoryHeight
- Type: System Double
The story height will be used for the bottom story. [L]
- NumberLinesX
- Type: System Int32
The number of grid lines in the X direction.
- NumberLinesY
- Type: System Int32
The number of grid lines in the Y direction.
- SpacingX
- Type: System Double
The uniform spacing for grid lines in the X direction. [L]
- SpacingY
- Type: System Double
The uniform spacing for grid lines in the Y direction. [L]
Return Value
Returns zero if the new grid only model is successfully created;
otherwise it returns a nonzero value.
Do not use this function to add to an existing model.
This function should be used only for creating a new model and typically would be preceded
by a call to
InitializeNewModel(eUnits).
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.NewGridOnly(4,12,12,4,4,24,24)
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 grid-only template model
ret = SapModel.File.NewGridOnly(4,12,12,4,4,24,24)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub