Apoio nodal com diagrama de não linearidade através de COM

A seguinte macro VBA mostra a criação de um apoio nodal com um diagrama de não linearidade. O código fonte pode ser encontrado em Downloads.

1. código.vb#

'--------------------------------------------------------------------------------------------------
Sub SetNSupports()
'--------------------------------------------------------------------------------------------------
Dim model As RFEM5.model
Dim data As IModelData
Dim support(0) As RFEM5.NodalSupport
Dim ISup As RFEM5.INodalSupport
Dim ISupDia As RFEM5.INonlinearityDiagram
Dim nlDiag As NonlinearityDiagram
Dim zone(2, 1) As Double

1. Set model = GetObject(, "RFEM5.Model")
2. model.GetApplication.LockLicense

1. On Error GoTo e

1. Set data = model.GetModelData
3. support(0).No = 1
4. support(0).nodelist = "1"
5. support(0).SupportNonlinearityX = WorkingDiagramType
6. support(0).SupportConstantY = -1
7. support(0).SupportConstantZ = -1
8. support(0).RestraintConstantX = -1
9. support(0).RestraintConstantY = -1
10. support(0).RestraintConstantZ = -1

1. data.PrepareModification
2. data.SetNodalSupports support
3. data.FinishModification

1. Set ISup = data.GetNodalSupport(1, AtNo)
2. Set ISupDia = ISup.GetNonlinearity(AlongAxisX)

1. zone(0, 0) = 0
2. zone(0, 1) = 0
3. zone(1, 0) = 1
4. zone(1, 1) = 2
5. zone(2, 0) = 3
6. zone(2, 1) = 4

1. nlDiag.PositiveZoneType = DiagramAfterLastStepType.StopDiagramType
2. nlDiag.PositiveZone = zone
3. nlDiag.Symmetric = True

1. data.PrepareModification
2. ISupDia.SetData nlDiag
3. data.FinishModification

e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

1. Set data = Nothing
2. model.GetApplication.UnlockLicense
3. Set model = Nothing

End Sub
#/code#

faq

FAQ 004967 | Como é que posso criar um apoio nodal com um diagrama de não linearidade através da interface COM?

Apoio nodal com diagrama de não linearidade