640x
005304
2022-08-26

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

Come può essere creato un vincolo esterno del nodo con 'azione parziale' non linearità tramite l'interfaccia COM?


Risposta:

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.it #

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
  2. vincolo esterno(0).Nr = 1
  3. support(0).NodeList = "1"
  4. support(0).SupportConstantX = -1
  5. support(0).SupportNonlinearityX = PartialActivityNLType
  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.PrepareModificazione
  2. vincolo esterno data.SetNodalSupports
  3. data.FinishModulation
  1. Imposta ISup = data.GetNodalSupport(1, AtNo)
  2. Imposta ISupPA = ISup.GetNonlinearity(AlongAxisX)
  3. nlPA.PositiveZone = CompleteActivityType
  4. nlPA.PositiveSlippage = 0,005
  5. 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. /#

Autore

La signora von Bloh fornisce supporto tecnico per i nostri clienti ed è responsabile dello sviluppo del programma SHAPE‑THIN e delle strutture in acciaio e alluminio.