Nabízíme tipy a tipy, jak začít se základním programem RFEM.
[EN] FAQ 004409 | Jak mohu vytvořit řez pomocí rozhraní COM?
Video
První kroky s programem RFEM
Dotaz
Jak mohu vytvořit řez pomocí rozhraní COM?Odpověď
Řez je v zásadě prvek jako například prut a vytváří se stejným způsobem. Nejdříve je vyžadováno rozhraní k objektům. Pro prut by to bylo IModelData a pro řezy to to je ISections. Toto rozhraní se nachází v IModel3:
Sub test_section()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense On Error GoTo E Dim iSecs As RFEM5.ISections Set iSecs = iModel.GetSections()
Všechny dříve vytvořené řezy se nejdříve smažou a vytvoří se dva nové řezy.
První řez by měl být řez tělesem s viditelnou rovinou řezu (viz Obrázek 01). Vstup je analogický k zadání v programu RFEM. Jako typ vybereme "SectionOnSectionalArea", rohové body řezu se nastaví pomocí "EdgePoint" a "Vector" udává směr řezu:
' first delete all sections iSecs.PrepareModification iSecs.DeleteObjects ("All") iSecs.FinishModification ' set section on solid Dim sec As RFEM5.Section sec.EdgePointA.X = 2 sec.EdgePointA.Y = 5 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 8 sec.EdgePointB.Z = 0 sec.no = 1 sec.Name = "solid section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = False sec.Type = SectionOnSolidSectionLine sec.ObjectList = "1" iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModificationJak je již známo z jiných prvků, bude nový řez na konci předán v bloku Prepare-/FinishModification. Jako druhý řez má být vytvořený řez plochou (viz Obrázek 02). K tomu je třeba použít typ "SectionViaSurfacePlane". V případě řezu plochou je nutné kromě zadání vektoru směru řezu vybrat také rovinu zobrazení výsledků. V následujícím příkladu je rovina xy vybrána pomocí nastavení "GlobalPlaneInPositiveX":
' set section on surface sec.EdgePointA.X = 2 sec.EdgePointA.Y = 0 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 3 sec.EdgePointB.Z = 0 sec.no = 2 sec.Name = "surface section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = True sec.Type = SectionViaSurfacePlane sec.ObjectList = "1" sec.Vector.X = 0 sec.Vector.Y = 0 sec.Vector.Z = 1 iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
Výsledky řezu lze dostat také pomocí samostatné metody "GetResultsInSection" rozhraní "IResults2". V následujícím se dostanou smykové síly na řezu plochy. Průběh vnitřních sil se nastaví na "spojitě po ploše" pomocí "ContinuousDistributionWithinObjects":
' get results Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes As IResults2 Set iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) Dim secRes() As RFEM5.SectionResult secRes = iRes.GetResultsInSection(2, AtNo, ShearForceVy,ContinuousDistributionWithinObjects, False)
V příloze najdete makro v Excelu a zkušební soubor pro sledování programu.
Klíčová slova
Dlubal FAQ Řez Section COM ISection Často kladené dotazy FAQ na téma Dlubal Otázka a odpověď o Dlubal
Linky
Napište komentář...
Napište komentář...
- Navštíveno 81x
- Aktualizováno 9. listopadu 2020
Kontakt
Máte dotazy k našim produktům nebo potřebujete pomoc s výběrem produktů pro Vaše projekty? Kontaktujte nás prostřednictvím naší bezplatné e-mailové podpory, chatu nebo na fóru, případně využijte naše FAQ často 24 hodin denně.
