Odpowiedź:
Przekrój jest z reguły elementem, takim jak pręt, i również jest tworzony w ten sam sposób. Po pierwsze, wymagany jest interfejs z obiektami. W przypadku pręta będzie to IModelData, a dla przekrojów będą to ISekcje. Interfejs ten można znaleźć w IModel3:
Sub test_section ()' pobierz interfejs z otwartego modelu i zablokuj licencję/programDim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense W przypadku błędu Idź do E Dim iSecs As RFEM5.ISectionsUstaw iSec = iModel.GetSections ()
Wszystkie utworzone wcześniej przekroje są najpierw usuwane, a następnie tworzone są dwa nowe przekroje.
Pierwszy przekrój powinien być przekrojem pełnym z widoczną powierzchnią przekroju (patrz rysunek 01). Dane są wprowadzane w podobny sposób jak w programie RFEM. Jako typ, wybierany jest "SectionOnSectionalArea", punkty narożne przekroju są ustawiane przy użyciu opcji "EdgePoint", a "Wektor" definiuje kierunek przekroju:
' najpierw usuń wszystkie sekcjeiSecs.PrepareModification iSecs.DeleteObjects („Wszystkie”)iSecs.FinishModification ' ustawić przekrój na bryleDim s Jak w RFEM5.Sectionsek.EdgePointA.X = 2sek.EdgePointA.Y = 5sek.Punkt krawędzi A.Z = 0sek.EdgePointB.X = 2sek.EdgePoint BY = 8sek.Punkt krawędzi B.Z = 0 sek.no = 1sec.Name = "przekrój bryły"sec.Plane = GlobalPlaneInPositiveXsec.ShowValuesInIsolines = Falsesec.Type = SectionOnSolidSectionLinesek.ObjectList = "1" iSecs.PrepareModificationiSecs.SetSection sekiSecs.FinishModificationJak już wiadomo z innych elementów, nowy przekrój zostaje ostatecznie przeniesiony do bloku Prepare-/FinishModification. Jako drugi przekrój należy utworzyć przekrój powierzchni (patrz rysunek 02). W tym celu konieczne jest zastosowanie typu "SectionViaSurfacePlane". Oprócz wektora kierunku przekroju należy wybrać płaszczyznę wyświetlania wyników dla przekroju powierzchni. W poniższym przykładzie płaszczyzna xy jest wybierana poprzez ustawienie „GlobalPlaneInPositiveX”.
' ustawić przekrój na powierzchnisek.EdgePointA.X = 2sek.EdgePointA.Y = 0sek.Punkt krawędzi A.Z = 0sek.EdgePointB.X = 2sek.EdgePoint BY = 3sek.Punkt krawędzi B.Z = 0 sek.no = 2sec.Name = "przekrój powierzchni"sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = Truesek.Typ = przekrój przez płaszczyznę powierzchniowąsek.ObjectList = "1" Wektor.s.X = 0sek.Wektor.Y = 0sek.Wektor.Z = 1 iSecs.PrepareModificationiSecs.SetSection sekiSecs.FinishModification
Istnieje również możliwość pobrania wyników przekroju poprzez osobną metodę "GetResultsInSection" interfejsu "IResults2". Poniżej określane są siły tnące na przekroju. Rozkład sił wewnętrznych jest ustawiony na "Ciągły w powierzchniach" za pomocą opcji "Ciągły rozkład w obiektach":
' uzyskaj wyniki Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes As IResults2Ustaw iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) Dim secRes () As RFEM5.SectionResultsecRes = iRes.GetResultsInSection (2, AtNo,Siła ścinania, Ciągły rozkład wewnątrz obiektów, Fałsz)
W sekcji Pobrane znajduje się makro Excel i plik testowy do oszacowania programu.
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
.png?mw=512&hash=a2d64046b1b82d01d353d39d4a145023e6992bce)
