Odpowiedź:
Tarcie jest nieliniowością i dlatego może być modyfikowane tylko poprzez połączenie przegubowe z prętem.
W tym celu należy najpierw utworzyć przegub pręta, jeśli nie jest jeszcze dostępny. Następnie interfejs IMemberHinge zostaje przeniesiony do przegubu prętowego, a następnie do nieliniowości (tutaj IFriction). Następnie można zmodyfikować dane za pomocą metod GetData i SetData (tutaj Friction ):
Sub SetMemberHingeFriction ()
Przyciemnij model Jak w RFEM5.modelUstaw model = GetObject (, "RFEM5.Model")model.GetApplication.LockLicense
On Error GoTo e
Dim data As IModelDataUstaw dane = model.GetModelData
Wymiarowanie zawiasu (0 do 0) Jak w RFEM5.MemberHinge
Zawias (0) .Nr = 1Zawias (0) .RotationalConstantX = 1przegub (0) .RotationalConstantY = 2przegub (0) .RotationalConstantZ = 3przegub (0) .TranslationalConstantX = 4przegub (0) .TranslationalConstantY = 5przegub (0) .TranslationalConstantZ = 6hinge (0) .Comment = "Zawias pręta 1" hinge (0) .TranslationalNonlinearityX = FrictionAType
data.PrepareModyfikacjadata.SetMemberHingesdata.FinishModification 'get interfejs dla przegubu prętaPrzyciemnij obraz jako IMemberHingeUstaw imemhing = data.GetMemberHinge (1, AtNo) 'pobierz interfejs dla nieliniowości "tarcia"Dim iFric As iFrictionUstaw iFric = imemhing.GetNonlinearity (AlongAxisX) 'uzyskać dane dotyczące tarciaTarcie słabe As Frictionfric = iFric.GetData fric.Coefficient1 = 0,3 'Ustawić dane dotyczące tarciadata.PrepareModyfikacjaiFric.SetData fricdata.FinishModification e: Jeżeli Err.Number <> 0 To MsgBox Err.Description,, Err.Source
Ustaw dane = Nicmodel.GetApplication.UnlockLicenseUstawiony model = Nic
Koniec podrzędnyW przypadku tarcia Vy + Vz współczynnik 2 służy do ustawiania drugiego współczynnika. Stała sprężystości w oknie dialogowym Tarcie jest kontrolowana przez sprężystość translacyjną przegubu pręta. W tym konkretnym przypadku jest to TranslationalConstantX dla kierunku x (patrz Rysunek 01).
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
