cModel.SetUseStress

Sets use stress value for a particular stress.

Syntax

• SetUseStress( Index As Integer, StressValueAs Double)
• SetUseStress( StressValues() As Double)

Parameters

Index The 0-based index of the Stress of which to update the Use Stress.

StressValue The UseStress to update.

StressValues An array of UseStresses that correspond to the array of Stresses in the model.

Usage Example

Declare a new repository connection class.

       Private WithEvents MyRepository As New Repository

Connect to the Synthesis repository.

       Dim Success As Boolean = False
       Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")

Get the list of Projects in the connected repository.

       Dim ListOfModels() As NameIdPair
       ListOfModels = MyRepository.GetAllModelsInfo()

Select the ID of the model and retrieve it.

       Dim AModel as cModel
       AModel = MyRepository.GetModel(ListOfModels(0).ID)

Get the number of stresses. In this example, the first model is used.

       Dim MyNumStresses As Integer
       MyNumStresses = AModel.NumStresses

Create an array and fill Use Stress levels for each of the stresses. Assume the MyNumStresses in this example is 2.

       Dim UseStressArray(MyNumStresses - 1) As Double
       UseStressArray(0) = 500
       UseStressArray(1) = 750

Set the UseStress for the model.

       AModel.SetUseStress(UseStressArray)