cPropMaterialGetMaterial Method |
Namespace: ETABS2016
int GetMaterial( string Name, ref eMatType MatType, ref int Color, ref string Notes, ref string GUID )
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim MatType As eMatType Dim Color As Integer Dim Notes As String Dim GUID As String '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, -1, "API example test", "Default") 'get basic material property data ret = SapModel.PropMaterial.GetMaterial("Steel", MatType, Color, Notes, GUID) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub