Retrieves the x, y and z coordinates of the specified point object
in the Present Units.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int GetCoordCartesian(
string Name,
ref double X,
ref double Y,
ref double Z,
string CSys = "Global"
)
Function GetCoordCartesian ( _
Name As String, _
ByRef X As Double, _
ByRef Y As Double, _
ByRef Z As Double, _
Optional CSys As String = "Global" _
) As Integer
int GetCoordCartesian(
String^ Name,
double% X,
double% Y,
double% Z,
String^ CSys = L"Global"
)
Return Value
Returns zero if the coordinates are successfully returned;
otherwise it returns nonzero.
The coordinates are reported in the coordinate system specified
by
CSys.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim x As Double, y As Double, z As Double
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)
ret = SapModel.PointObj.GetCoordCartesian("1", x, y, z)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End SubPublic Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim x As Double, y As Double, z As Double
'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)
'get point coordinates
ret = SapModel.PointObj.GetCoordCartesian("1", x, y, z)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub
System String