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 for which the use stress level will be updated.

StressValue: The value to use for the new use stress level.

StressValues: An array of new use stress values that correspond to the array of stresses in the model (e.g., the first stress value will become the use stress level for the first stress).

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)