cPropMaterialSetMPAnisotropic Method

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

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetMPAnisotropic(
	string Name,
	ref double[] E,
	ref double[] U,
	ref double[] A,
	ref double[] G,
	double Temp = 0
)

Parameters

Name
Type: SystemString
The name of an existing material property.
E
Type: SystemDouble
U
Type: SystemDouble
A
Type: SystemDouble
G
Type: SystemDouble
Temp (Optional)
Type: SystemDouble
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

Type: Int32
Returns zero if the data is successfully assigned; otherwise it returns a nonzero value.
Remarks
Examples
VB
Copy
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", 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
See Also