cStorySetStories Method |
Namespace: ETABS2016
int SetStories( string[] StoryNames, double[] StoryElevations, double[] StoryHeights, bool[] IsMasterStory, string[] SimilarToStory, bool[] SpliceAbove, double[] SpliceHeight )
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