Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim NumberStories As Integer
Dim StoryNames() As String
Dim StoryHeights() As Double
Dim StoryElevations() As Double
Dim IsMasterStory() As Boolean
Dim SimilarToStory() As String
Dim SpliceAbove() As Boolean
Dim SpliceHeight() 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)
Dim inStoryNames As String() = {"MyStory1", "MyStory2", "MyStory3", "MyStory4", "MyStory5", "MyStory6"}
Dim inStoryElevations As Double() = {0, 5, 15, 23, 23.5, 40, 50}
Dim inStoryHeights As Double() = {2, 5, 7, 33, 1, 9}
Dim inIsMasterStory As Boolean() = {False, False, False, False, False, True}
Dim inSimilarToStory As String() = {"None", "", "MyStory6", "MyStory6", "MyStory6", "MyStory6"}
Dim inSpliceAbove As Boolean() = {False, True, False, True, False, True}
Dim inSpliceHeight As Double() = {0, 0, 2, 2, 0, 1}
ret = SapModel.Story.SetStories(inStoryNames, inStoryElevations, inStoryHeights, _
inIsMasterStory, inSimilarToStory, inSpliceAbove, inSpliceHeight)
ret = SapModel.Story.GetStories(NumberStories, StoryNames, StoryHeights, StoryElevations, _
IsMasterStory, SimilarToStory, SpliceAbove, SpliceHeight)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End Sub
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim NumberStories As Integer
Dim StoryNames() As String
Dim StoryHeights() As Double
Dim StoryElevations() As Double
Dim IsMasterStory() As Boolean
Dim SimilarToStory() As String
Dim SpliceAbove() As Boolean
Dim SpliceHeight() 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)
'set stories
Dim inStoryNames As String() = {"MyStory1", "MyStory2", "MyStory3", "MyStory4", "MyStory5", "MyStory6"}
Dim inStoryElevations As Double() = {0, 5, 15, 23, 23.5, 40, 50}
Dim inStoryHeights As Double() = {2, 5, 7, 33, 1, 9}
Dim inIsMasterStory As Boolean() = {False, False, False, False, False, True}
Dim inSimilarToStory As String() = {"None", "", "MyStory6", "MyStory6", "MyStory6", "MyStory6"}
Dim inSpliceAbove As Boolean() = {False, True, False, True, False, True}
Dim inSpliceHeight As Double() = {0, 0, 2, 2, 0, 1}
ret = SapModel.Story.SetStories(inStoryNames, inStoryElevations, inStoryHeights, _
inIsMasterStory, inSimilarToStory, inSpliceAbove, inSpliceHeight)
'get stories
ret = SapModel.Story.GetStories(NumberStories, StoryNames, StoryHeights, StoryElevations, _
IsMasterStory, SimilarToStory, SpliceAbove, SpliceHeight)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub