Interfaccia COM in VBA | 4.2 Ottimizzazione dei frame

Processo di ottimizzazione

L'obiettivo è trasferire solo le aste di una determinata sezione trasversale al progetto RF-/STEEL EC3. Nel seguente esempio, tutte le aste con sezione trasversale "IPE 300" dovrebbero essere ottimizzate. Si presume che i numeri dei membri siano noti.

• 3D Viewer | Google
• 3D Viewer | Babylon
• Realtà virtuale

Sistema

L'ottimizzazione in RF ‑ STEEL EC3 viene eseguita sulla base delle forze interne calcolate precedentemente in RFEM. Ciò significa che le rigidezze modificate a causa delle modifiche della sezione trasversale nel modulo non vengono prese in considerazione. Questo ha il vantaggio che l'ottimizzazione viene eseguita senza ricalcolare la struttura; quindi, può essere fatto molto rapidamente. Lo svantaggio è che a causa della rigidezza modificata, può verificarsi una ridistribuzione, che può anche portare a forze interne significativamente modificate. Pertanto, la sezione trasversale ottimizzata può essere sovraccaricata.

Per un'ottimizzazione efficiente, è sempre utile ottimizzare solo alcune sezioni trasversali nel modulo, quindi trasferire le nuove sezioni trasversali in RFEM e controllare di nuovo il risultato nel modulo.

Attivazione dell'ottimizzazione in RF-STEEL EC3

Per ottimizzare una sezione trasversale nel modulo, è necessario attivare questa opzione per la singola sezione trasversale. Contrariamente al funzionamento manuale del programma, è impossibile selezionare come eseguire l'ottimizzazione; è solo possibile selezionare se l'ottimizzazione deve essere eseguita. Per attivare questa opzione, è necessario cercare le sezioni trasversali secondo la descrizione. In alternativa, è possibile cercare anche il numero della sezione trasversale. Se viene trovata una corrispondenza, la rispettiva sezione trasversale viene modificata e trasferita al modulo. Quindi, il loop viene interrotto, poiché in questo caso viene esaminata solo una sezione trasversale.

'Impostare l'ottimizzazione per la sezione trasversale desiderata

Dim iStec3_cs As STEEL_EC3.CROSS_SECTION
count = iStec3Case.moGetCrossSectionsCount
Dim crsc_ec3_idx Più a lungo
crsc_ec3_idx = -1

Per i = 0 To conteggio - 1
iStec3_cs = iStec3Case.moGetCrossSection (i, AT_INDEX)
If InStr (LCase (iStec3_cs.Description), LCase (crsc_desc))> 0 Quindi
iStec3_cs.Optimization = Vero
iStec3Case.moSetCrossSection i, AT_INDEX, iStec3_cs
crsc_ec3_idx = i
Esci per
End If
Successivo i

'Impostare l'ottimizzazione per la sezione trasversale desiderata
iStec3Case.moCalculate

Dopo aver attivato l'ottimizzazione, inizia il calcolo del caso del modulo.

Trasferimento della sezione trasversale a RFEM

La sezione trasversale viene trasferita utilizzando il numero della sezione trasversale. Per questo, è necessario ottenere l'interfaccia della sezione trasversale di RFEM, quindi inserire un nuovo TextID o un nuovo identificatore della sezione trasversale. RFEM riconosce l'identificativo e ottiene la sezione trasversale corrispondente dalla libreria dopo il trasferimento.

'Trasferire la sezione trasversale in RFEM
'Ottieni una nuova descrizione della sezione trasversale da RF ‑ STEEL EC3
iStec3_cs = iStec3Case.moGetCrossSection (crsc_ec3_idx, AT_INDEX)

'Ottieni l'interfaccia della sezione trasversale e le proprietà da RFEM
Dim iCrsc As RFEM5.ICrossSection
Set iCrsc = iModelData.GetCrossSection (crsc_no, AtNo)
Dim crsc As RFEM5.CrossSection
crsc = iCrsc.GetData

"Modifica della sezione trasversale di una nuova sezione trasversale di RF ‑ STEEL EC3
crsc.Description = ""
crsc.TextID = iStec3_cs.Description

'Trasferisci le proprietà della sezione trasversale
iModelData.PrepareModification
iCrsc.SetData crsc
iModelData.FinishModification

Sommario

In particolare nel caso di strutture ricorrenti, l'opzione di ottimizzazione in RF-/STEEL EC3 fornisce un'eccellente facilitazione del lavoro. È importante verificare la struttura con le sezioni trasversali ottimizzate ricalcolandola in RFEM. Un processo iterativo sarebbe facilmente realizzabile utilizzando l'interfaccia COM. In questo modo, l'ottimizzazione automatizzata può facilitare e velocizzare notevolmente il flusso di lavoro.