Retrieves the local axis angles for a point object.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int GetLocalAxes(
string Name,
ref double A,
ref double B,
ref double C,
ref bool Advanced
)
Function GetLocalAxes ( _
Name As String, _
ByRef A As Double, _
ByRef B As Double, _
ByRef C As Double, _
ByRef Advanced As Boolean _
) As Integer
int GetLocalAxes(
String^ Name,
double% A,
double% B,
double% C,
bool% Advanced
)
Parameters
- Name
- Type:
System String
The name of an existing point object.
- A
- Type: System Double
- B
- Type: System Double
The local axes of the point are defined by first setting the
positive local 1, 2 and 3 axes the same as the positive global X, Y and Z axes
and then doing the following: [deg]
- Rotate about the 3 axis by angle a.
- Rotate about the resulting 2 axis by angle b.DOF must be active.
- Rotate about the resulting 1 axis by angle c.DOF must not be fixed.
- C
- Type: System Double
- Advanced
- Type: System Boolean
This item is True if the point object local axes orientation was obtained
using advanced local axes parameters.
Return Value
Returns zero if the local axes angles are successfully retrieved,
otherwise it returns a nonzero value.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim GUID As String
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.GetLocalAxes("1", a, b, c, Advanced)
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 GUID As String
'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 local axes assignments
ret = SapModel.PointObj.GetLocalAxes("1", a, b, c, Advanced)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub