Odpověď:
Následující makro VBA ukazuje vytvoření uzlové podpory s nelinearitou 'Částečná účinnost'. Zdrojový kód je možné si stáhnout v sekci Ke stažení.
Option Explicit
'--------------------------
Sub SetNSupports()
'--------------------------
Dim model As 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
Set model = GetObject(, "RFEM5.Model")
model.GetApplication.LockLicense
On Error GoTo e
Set data = model.GetModelData
support(0).No = 1
support(0).NodeList = "1"
support(0).SupportConstantX = -1
support(0).SupportNonlinearityX = PartialActivityNLType
support(0).SupportConstantY = -1
support(0).SupportConstantZ = -1
support(0).RestraintConstantX = -1
support(0).RestraintConstantY = -1
support(0).RestraintConstantZ = -1
data.PrepareModification
data.SetNodalSupports support
data.FinishModification
Set ISup = data.GetNodalSupport(1, AtNo)
Set ISupPA = ISup.GetNonlinearity(AlongAxisX)
nlPA.PositiveZone = CompleteActivityType
nlPA.PositiveSlippage = 0.005
nlPA.NegativeZone = FailureActivityType
data.PrepareModification
ISupPA.SetData nlPA
data.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
Set data = Nothing
model.GetApplication.UnlockLicense
Set model = Nothing
End Sub
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
.png?mw=512&hash=a6554b61e9e1fd9d04988e8232c47f235a60663b)
