Assigns a local axis angle to frame objects.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int SetLocalAxes(
string Name,
double Ang,
eItemType ItemType = eItemType.Objects
)
Function SetLocalAxes ( _
Name As String, _
Ang As Double, _
Optional ItemType As eItemType = eItemType.Objects _
) As Integer
int SetLocalAxes(
String^ Name,
double Ang,
eItemType ItemType = eItemType::Objects
)
Parameters
- Name
- Type:
System String
The name of an existing frame object or group,
depending on the value of the ItemType item.
- Ang
- Type: System Double
This is the angle that the local 2 and 3 axes are rotated about the
positive local 1 axis, from the default orientation or,
if the Advanced item is True, from the orientation determined by
the plane reference vector. The rotation for a positive angle appears
counter clockwise when the local +1 axis is pointing toward you. [deg]
- ItemType (Optional)
- Type: ETABS2015 eItemType
This is one of the following items in the eItemType enumeration:
- Object = 0
- Group = 1
- SelectedObjects = 2
If this item is Objects, the local axes assignment is made to the frame object
specified by the Name item.
If this item is Group, the local axes assignment is made to all frame objects
in the group specified by the Name item.
If this item is SelectedObjects, the local axes assignment is made to all
selected frame objects and the Name item is ignored.
Return Value
Returns zero if the local axis angle is successfully assigned,
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)
ret = SapModel.FrameObj.SetLocalAxes("3", 30)
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 steel deck template model
ret = SapModel.File.NewSteelDeck(4, 12, 12, 4, 4, 24, 24)
'assign frame local axis angle
ret = SapModel.FrameObj.SetLocalAxes("3", 30)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub