Retrieves the names of the defined point objects on a given story.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int GetNameListOnStory(
string StoryName,
ref int NumberNames,
ref string[] MyName
)
Function GetNameListOnStory ( _
StoryName As String, _
ByRef NumberNames As Integer, _
ByRef MyName As String() _
) As Integer
int GetNameListOnStory(
String^ StoryName,
int% NumberNames,
array<String^>^% MyName
)
Parameters
- StoryName
- Type:
System String
The name of an existing story.
- NumberNames
- Type: System Int32
The number of point object names retrieved by the program.
- MyName
- Type: System String
This is a one-dimensional array of point object names. The MyName array is created
as a dynamic, zero-based, array by the API user:
Dim MyName() as String
The array is dimensioned to (NumberNames – 1)
inside the ETABS program, filled with the names, and returned to the API user.
Return Value
Returns zero if the names are successfully retrieved,
otherwise it returns nonzero.
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.PointObj.GetNameListOnStory("Story2", NumberNames, MyName)
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)
'get point object names
ret = SapModel.PointObj.GetNameListOnStory("Story2", NumberNames, MyName)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub