ModifyUndeformedGeometryModeShape Method

cAnalyze ModifyUndeformedGeometryModeShape Method

CSi API ETABS 2015

Modifies the undeformed geometry based on the shape of a specified mode

Namespace: ETABS2015
Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)

Syntax

int ModifyUndeformedGeometryModeShape(
	string CaseName,
	int Mode,
	double MaxDispl,
	int Direction,
	bool Original = false
)

int ModifyUndeformedGeometryModeShape(
	string CaseName,
	int Mode,
	double MaxDispl,
	int Direction,
	bool Original = false
)

Function ModifyUndeformedGeometryModeShape ( _
	CaseName As String, _
	Mode As Integer, _
	MaxDispl As Double, _
	Direction As Integer, _
	Optional Original As Boolean = False _
) As Integer

Function ModifyUndeformedGeometryModeShape ( _
	CaseName As String, _
	Mode As Integer, _
	MaxDispl As Double, _
	Direction As Integer, _
	Optional Original As Boolean = False _
) As Integer

int ModifyUndeformedGeometryModeShape(
	String^ CaseName, 
	int Mode, 
	double MaxDispl, 
	int Direction, 
	bool Original = false
)

int ModifyUndeformedGeometryModeShape(
	String^ CaseName, 
	int Mode, 
	double MaxDispl, 
	int Direction, 
	bool Original = false
)

Parameters

CaseName: Type: System String

Mode: Type: System Int32
The mode shape

MaxDispl: Type: System Double
The maximum displacement to which the mode shape will be scaled

Direction

Type:

System Int32
The direction in which to apply the geometry modification

X
Y
Z
Resultant

Original (Optional): Type: System Boolean
If this item is True, all other input items in this function are ignored and the original undeformed geometry data is reinstated.

Return Value

Returns zero if it is successful; otherwise it returns a nonzero value

Remarks

Examples

C++

Copy to Clipboard Print

Public 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 point object restraints 
       ReDim Value(5)
       For i = 0 To 5
           Value(i) = True 
       Next i
       ret = SapModel.PointObj.SetRestraint("1", Value)

   'run analysis
       System.IO.Directory.CreateDirectory("c:\CSI_API_temp")
       ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
       ret = SapModel.Analyze.RunAnalysis

   'modify undeformed geometry
       ret = SapModel.Analyze.ModifyUndeformedGeometryModeShape("Modal", 1, 1.0, 2) 

   'close ETABS
       EtabsObject.ApplicationExit(False)

   'clean up variables
       SapModel = Nothing
       EtabsObject = Nothing 
   End Sub

Public 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 point object restraints 
       ReDim Value(5)
       For i = 0 To 5
           Value(i) = True 
       Next i
       ret = SapModel.PointObj.SetRestraint("1", Value)

   'run analysis
       System.IO.Directory.CreateDirectory("c:\CSI_API_temp")
       ret = SapModel.File.Save("C:\CSI_API_temp\example.edb")
       ret = SapModel.Analyze.RunAnalysis

   'modify undeformed geometry
       ret = SapModel.Analyze.ModifyUndeformedGeometryModeShape("Modal", 1, 1.0, 2) 

   'close ETABS
       EtabsObject.ApplicationExit(False)

   'clean up variables
       SapModel = Nothing
       EtabsObject = Nothing 
   End Sub