SetMPAnisotropic Method

cPropMaterial SetMPAnisotropic Method

CSi API ETABS 2015

Sets the material directional symmetry type to anisotropic, and assigns the anisotropic mechanical properties.

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

Syntax

int SetMPAnisotropic(
	string Name,
	ref double[] E,
	ref double[] U,
	ref double[] A,
	ref double[] G,
	double Temp = 0
)

int SetMPAnisotropic(
	string Name,
	ref double[] E,
	ref double[] U,
	ref double[] A,
	ref double[] G,
	double Temp = 0
)

Function SetMPAnisotropic ( _
	Name As String, _
	ByRef E As Double(), _
	ByRef U As Double(), _
	ByRef A As Double(), _
	ByRef G As Double(), _
	Optional Temp As Double = 0 _
) As Integer

Function SetMPAnisotropic ( _
	Name As String, _
	ByRef E As Double(), _
	ByRef U As Double(), _
	ByRef A As Double(), _
	ByRef G As Double(), _
	Optional Temp As Double = 0 _
) As Integer

int SetMPAnisotropic(
	String^ Name, 
	array<double>^% E, 
	array<double>^% U, 
	array<double>^% A, 
	array<double>^% G, 
	double Temp = 0
)

int SetMPAnisotropic(
	String^ Name, 
	array<double>^% E, 
	array<double>^% U, 
	array<double>^% A, 
	array<double>^% G, 
	double Temp = 0
)

Parameters

Name: Type: System String
The name of an existing material property.

E: Type: System Double

U: Type: System Double

A: Type: System Double

G: Type: System Double

Temp (Optional): Type: System Double
The temperature at which the specified data applies. The temperature must have been defined previously for the material.
This item applies only if the specified material has properties that are temperature dependent. That is, it applies only if properties are specified for the material at more than one temperature.

Return Value

Returns zero if the data is successfully assigned; 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 
       Dim MyE() As Double 
       Dim MyU() As Double 
       Dim MyA() As Double 
       Dim MyG() 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)

   'initialize new material property
       ret = SapModel.PropMaterial.SetMaterial("Steel", ETABS2013.eMatType.Steel)

   'assign anisotropic mechanical properties 
       ReDim MyE(2)
       ReDim MyU(14)
       ReDim MyA(6)
       ReDim MyG(2)
       MyE(0)=30000
       MyE(1)=10000
       MyE(2)=2000
       MyU(0)=0.2
       MyU(1)=0.05
       MyU(2)=0.1
       MyU(3)=0
       MyU(4)=0
       MyU(5)=0
       MyU(6)=0
       MyU(7)=0
       MyU(8)=0.01
       MyU(9)=0
       MyU(10)=0
       MyU(11)=0
       MyU(12)=0
       MyU(13)=0
       MyU(14)=0
       MyA(0)=6.5E-6
       MyA(1)=6.5E-6
       MyA(2)=6.5E-6
       MyA(3)=6.5E-6
       MyA(4)=6.5E-6
       MyA(5)=6.5E-6
       MyG(0)=1500
       MyG(1)=2500
       MyG(2)=8700
       ret = SapModel.PropMaterial.SetMPAnisotropic("Steel", MyE, MyU, MyA, MyG)

   '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 
       Dim MyE() As Double 
       Dim MyU() As Double 
       Dim MyA() As Double 
       Dim MyG() 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)

   'initialize new material property
       ret = SapModel.PropMaterial.SetMaterial("Steel", ETABS2013.eMatType.Steel)

   'assign anisotropic mechanical properties 
       ReDim MyE(2)
       ReDim MyU(14)
       ReDim MyA(6)
       ReDim MyG(2)
       MyE(0)=30000
       MyE(1)=10000
       MyE(2)=2000
       MyU(0)=0.2
       MyU(1)=0.05
       MyU(2)=0.1
       MyU(3)=0
       MyU(4)=0
       MyU(5)=0
       MyU(6)=0
       MyU(7)=0
       MyU(8)=0.01
       MyU(9)=0
       MyU(10)=0
       MyU(11)=0
       MyU(12)=0
       MyU(13)=0
       MyU(14)=0
       MyA(0)=6.5E-6
       MyA(1)=6.5E-6
       MyA(2)=6.5E-6
       MyA(3)=6.5E-6
       MyA(4)=6.5E-6
       MyA(5)=6.5E-6
       MyG(0)=1500
       MyG(1)=2500
       MyG(2)=8700
       ret = SapModel.PropMaterial.SetMPAnisotropic("Steel", MyE, MyU, MyA, MyG)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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