cGridSysSetGridSys Method

Adds a new grid system, or modifies an existing grid system.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetGridSys(
	string Name,
	double x,
	double y,
	double RZ
)

Parameters

Name
Type: SystemString
This is the name of a grid system. If this is the name of an existing grid system, that grid system is modified, otherwise a new grid system is added.
x
Type: SystemDouble
The global X grid of the origin of the grid system. [L]
y
Type: SystemDouble
The global Y grid of the origin of the grid system. [L]
RZ
Type: SystemDouble
The rotation of an axis of the new grid system relative to the global grid system is defined as follows: (1) Rotate the grid system about the positive global Z-axis as defined by the RZ item. [deg]

Return Value

Type: Int32
Returns zero if the grid system is successfully added or modified, otherwise it returns a nonzero value.
Remarks
Modifying the Global grid system will fail and return an error.
Examples
VB
Copy
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)

'define new grid system
   ret = SapModel.GridSys.SetGridSys("GridSysA", 1000, 1000, 0, 0)

'close ETABS
   EtabsObject.ApplicationExit(False)

'clean up variables
   SapModel = Nothing
   EtabsObject = Nothing

End Sub
See Also