Vincoli esterni dei nodi con non-linearità dell'azione parziale

La seguente macro VBA mostra la creazione di un vincolo esterno del nodo con non linearità "Attività parziale". Il codice sorgente si trova in Download.

1. code.en#

Opzione esplicita

'------------
SubsetNSupports()
'------------
Dim modello Come RFEM5.model
Dim data As IModelData
Dim support(0) As RFEM5.NodalSupport
Dim ISup As RFEM5.INodalSupport
Dim ISupPA As RFEM5.IPartialActivity
Dim nlPA As PartialActivity

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

1. On Error GoTo e

1. Imposta dati = modello.GetModelData
3. vincolo esterno(0).Nr = 1
4. support(0).NodeList = "1"
5. support(0).SupportConstantX = -1
6. support(0).SupportNonlinearityX = PartialActivityNLType
7. support(0).SupportConstantY = -1
8. support(0).SupportConstantZ = -1
9. support(0).RestraintConstantX = -1
10. support(0).RestraintConstantY = -1
11. support(0).RestraintConstantZ = -1

1. data.PrepareModificazione
2. vincolo esterno data.SetNodalSupports
3. data.FinishModulation

1. Imposta ISup = data.GetNodalSupport(1, AtNo)
2. Imposta ISupPA = ISup.GetNonlinearity(AlongAxisX)
4. nlPA.PositiveZone = CompleteActivityType
5. nlPA.PositiveSlippage = 0,005
6. nlPA.NegativeZone = FailureActivityType

1. data.PrepareModificazione
2. ISupPA.SetData nlPA
3. data.FinishModulation

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

1. Imposta dati = Niente
2. model.GetApplication.UnlockLicense
3. Set model = Nothing

End Sub

1. /codice#

FAQ

FAQ 005304 | Come può un vincolo esterno del nodo con non linearità 'Partial W ...

Vincoli esterni dei nodi con "attività parziale" non di linearità