cPropMaterialSetMaterial Method |
DEPRECATED. Initializes a material property. If this function is called for an existing material property,
all items for the material are reset to their default value.
Namespace:
ETABS2016
Assembly:
ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntaxint SetMaterial(
string Name,
eMatType MatType,
int Color = -1,
string Notes = "",
string GUID = ""
)
Function SetMaterial (
Name As String,
MatType As eMatType,
Optional Color As Integer = -1,
Optional Notes As String = "",
Optional GUID As String = ""
) As Integer
int SetMaterial(
String^ Name,
eMatType MatType,
int Color = -1,
String^ Notes = L"",
String^ GUID = L""
)
abstract SetMaterial :
Name : string *
MatType : eMatType *
?Color : int *
?Notes : string *
?GUID : string
(* Defaults:
let _Color = defaultArg Color -1
let _Notes = defaultArg Notes ""
let _GUID = defaultArg GUID ""
*)
-> int
Parameters
- Name
- Type: SystemString
The name of an existing or new material property. If this is an existing property,
that property is modified; otherwise, a new property is added.
- MatType
- Type: ETABS2016eMatType
This is one of the items in the eMatType enumeration.
- Color (Optional)
- Type: SystemInt32
- Notes (Optional)
- Type: SystemString
- GUID (Optional)
- Type: SystemString
The GUID (global unique identifier), if any, assigned to the material.
If this item is input as Default, the program assigns a GUID to the material.
Return Value
Type:
Int32
Returns zero if the material is successfully initialized; otherwise it returns a nonzero value.
Remarks
This function is DEPRECATED. Please use
AddMaterial(String, eMatType, String, String, String, String) instead.
ExamplesPublic Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
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)
ret = SapModel.PropMaterial.SetMaterial("Steel", eMatType.Steel)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End Sub
See Also