Artykuł został przetłumaczony przez Google Translator

Podgląd oryginalnego tekstu

Jak ustawia się tarcie na przegubie pręta za pomocą interfejsu COM?

Odpowiedź

Tarcie jest nieliniowością i dlatego może być modyfikowane tylko poprzez interfejs do przegubu pręta.

W tym celu należy najpierw utworzyć przegub pręta, jeżeli nie jest jeszcze dostępny. Następnie interfejs IMemberHinge zostaje przeniesiony do przegubu pręta, a następnie do nieliniowości (tutaj IFriction ). Następnie można użyć metod GetDataSetData do modyfikacji danych (tutaj Tarcie ):

Sub SetMemberHingeFriction ()

Dim model As RFEM5.model
Ustaw model = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

W przypadku błędu Idź do e

Przyciemnić dane jako IModelData
Ustawić dane = model.GetModelData

Przegub wymiarowy (0 do 0) Jak w RFEM5

przegub (0). nr = 1
przegub (0) .RotationalConstantX = 1
przegub (0) .RotationalConstantY = 2
Przegub (0) .RegationalConstantZ = 3
Przegub (0) .TłumaczniczyKonstantX = 4
Przegub (0). Współczynnik całkowyY = 5
Przegub (0) .TranslationalConstantZ = 6
Przegub (0) .Comment = "Zwolnienie pręta 1"
    
Przegub (0) .TranslacyjnaNiebielość liniowaX = FrictionAType

data.Precygacja
Zwolnienie data.SetMemberHinges
data.FinishModification
    
"uzyskać interfejs dla zwolnienia pręta
Pomniejszenie krwiotwórczej jako choroby wrzodziejącej
Ustawić imemhing = data.GetMemberHinge (1, AtNo)
    
"Tarcie dla nieliniowości"
Dim iFric As IFriction
Ustawić iFric = imemhing.GetNonlinearity (AlongAxisX)
    
"uzyskać dane dotyczące tarcia
Dim fric as Friction
fric = iFric.GetData
    
fric.Coefficient1 = 0.3
    
"ustawić dane dotyczące tarcia
data.Precygacja
Fałka iFric.SetData
data.FinishModification
    
    
e: Jeżeli Err.Number <> 0 Then MsgBox Err.Description,, Err.Source

Ustawić dane = Nic
model.GetApplication.UnlockLicense
Ustawić model = Nic

End Sub


W przypadku tarcia Vy + Vz do ustawienia drugiego współczynnika wykorzystywany jest Współczynnik2. Stała sprężystości w oknie dialogowym Tarcie jest kontrolowana przez sprężynę translacyjną przegubu pręta. W tym konkretnym przypadku jest to TranslationalConstantX dla kierunku X (patrz Rysunek 01).

Słowa kluczowe

COM Tarcie Nieliniowość GetData Ustawićdane

Do pobrania

Kontakt

Kontakt do Dlubal

Znaleźliście Państwo odpowiedz na swoje pytanie?
Jeśli nie, mogą Państwo skontaktować się z nami bezpłatnie drogą mailową, poprzez czat lub forum lub wysłać zapytanie za pomocą formularza online.

+48 (32) 782 46 26

+48 730 358 225

info@dlubal.pl

RFEM Program główny
RFEM 5.xx

Program główny

Oprogramowanie do obliczeń płaskich i przestrzennych układów konstrukcyjnych, obejmujących płyty, ściany, powłoki, pręty (belki), bryły i elementy kontaktowe, z wykorzystaniem Metody Elementów Skończonych (MES)

Cena pierwszej licencji
3 540,00 USD
RSTAB Program główny
RSTAB 8.xx

Program główny

Oprogramowanie do obliczania konstrukcji ramowych, belkowych i szkieletowych, wykonujące obliczenia liniowe i nieliniowe sił wewnętrznych, odkształceń i reakcji podporowych

Cena pierwszej licencji
2 550,00 USD
RFEM Inne
RF-COM 5.xx

Moduł dodatkowy

Programowalny interfejs (API) w oparciu o technologię COM

Cena pierwszej licencji
580,00 USD
RSTAB Inne
RS-COM 8.xx

Moduł dodatkowy

Programowalny interfejs (API) w oparciu o technologię COM

Cena pierwszej licencji
580,00 USD