Risposta:
Di solito, un profilo è fondamentalmente un elemento, come un'asta, ed è anche creata nello stesso modo. Innanzitutto, è necessaria l'interfaccia per gli oggetti. Per un asta, questo sarebbe IModelData, e per le sezioni, sarebbe ISections. Questa interfaccia si trova in IModel3:
Sub test_section ()' get interface from the opened model and lock the licence/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense On Error GoTo E Dim iSecs As RFEM5.ISectionsSet iSecs = iModel.GetSections()
Tutte le sezioni create in precedenza vengono prima eliminate e vengono create due nuove sezioni.
La prima sezione dovrebbe essere una sezione solida con un'area della sezione visibile (vedi la Figura 01). I dati vengono inseriti in modo simile a RFEM. Come tipo, è selezionato "SectionOnSectionalArea", i punti d'angolo della sezione sono impostati utilizzando "EdgePoint" e un "Vettore" definisce la direzione della sezione:
' prima elimina tutte le sezioniiSecs.PrepareModification iSecs.DeleteObjects ("Tutti")iSecs.FinishModifica ' imposta la sezione sul solidoDim sec Come RFEM5.Sectionsec.PuntoMargineA.X = 2sec.PuntoMargineA.Y = 5sec.PuntoMargineA.Z = 0sec.PuntoBordiB.X = 2sec.PuntoBordiB.Y = 8sec.PuntoBordiB.Z = 0 sec.no = 1sec.Name = "sezione solida"sec.Plane = GlobalPlaneInPositiveXsec.ShowValuesInIsolines = Falsesec.Type = SectionOnSolidSectionLinesec.ObjectList = "1" iSecs.PrepareModificationiSecs.SetSection seciSecs.FinishModificaCome già noto da altri elementi, la nuova sezione viene finalmente trasferita in un blocco Prepare-/FinishModification. Come seconda sezione, deve essere creata una sezione di superficie (vedere la Figura 02). Per questo, è necessario utilizzare il tipo "SectionViaSurfacePlane". Oltre al vettore della direzione della sezione, è necessario selezionare il piano di visualizzazione dei risultati per la sezione della superficie. Nell'esempio seguente, il piano xy viene selezionato impostando "GlobalPlaneInPositiveX".
' imposta la sezione sulla superficiesec.PuntoMargineA.X = 2sec.PuntoMargineA.Y = 0sec.PuntoMargineA.Z = 0sec.PuntoBordiB.X = 2sec.PuntoBordiB.Y = 3sec.PuntoBordiB.Z = 0 nr.sec = 2sec.Name = "sezione della superficie"sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = Truesec.Type = SectionViaSurfacePlanesec.ObjectList = "1" sec.Vettore.X = 0sec.Vettore.Y = 0sec.Vettore.Z = 1 iSecs.PrepareModificationiSecs.SetSection seciSecs.FinishModifica
È anche possibile ottenere i risultati di una sezione utilizzando il metodo separato "GetResultsInSection" dell'interfaccia "IResults2". Di seguito, si ottengono le forze di taglio sulla sezione della superficie. La distribuzione delle forze interne è impostata su "Continua nelle superfici" tramite "Distribuzione continua entro gli oggetti":
' ottieni risultatiOscura iCalc come ICalcolo2Imposta iCalc = iModel.GetCalculation Dim iRes As IResults2Imposta iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) Dim secRes() As RFEM5.SectionResultsecRes = iRes.GetResultsInSection(2, AtNo,ShearForceVy,Distribuzionecontinuaall'interno diOggetti,Falso)
Sotto Download, puoi trovare la macro di Excel e il file di prova per comprendere il programma.
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
