Interfejs COM w języku VBA | 4.2 Optymalizacja ramek

Proces optymalizacji

Celem jest przeniesienie do obliczeń RF-/STEEL EC3 tylko prętów o określonym przekroju. W poniższym przykładzie wszystkie pręty o przekroju „IPE 300” powinny zostać zoptymalizowane. Zakłada się, że numery prętów są znane.

• 3D Viewer | Google
• 3D Viewer | Babylon
• Wirtualna rzeczywistość

Układ

Optymalizacja w programie RF-STEEL EC3 jest przeprowadzana na podstawie sił wewnętrznych obliczonych wcześniej w programie RFEM. Oznacza to, że zmienione sztywności w wyniku zmian przekroju w module nie są uwzględniane. Ma to tę zaletę, że optymalizacja jest przeprowadzana bez ponownego obliczania konstrukcji; dzięki czemu można to zrobić bardzo szybko. Wadą jest to, że ze względu na zmodyfikowaną sztywność może wystąpić redystrybucja, która może prowadzić do znacznie zmodyfikowanych sił wewnętrznych. Tym samym zoptymalizowany przekrój może zostać przeciążony.

W celu efektywnej optymalizacji warto zawsze zoptymalizować tylko kilka przekrojów w module, a następnie przesłać nowe przekroje do programu RFEM i ponownie sprawdzić wynik w module.

Aktywacja optymalizacji w RF-STEEL EC3

Aby zoptymalizować przekrój w module, należy aktywować tę opcję dla pojedynczego przekroju. W przeciwieństwie do ręcznej obsługi programu nie można wybrać sposobu przeprowadzenia optymalizacji; możliwe jest tylko wybranie, czy optymalizacja ma zostać przeprowadzona. Aby aktywować tę opcję, należy wyszukiwać przekroje zgodnie z opisem. Alternatywnie można też oczywiście wyszukać numer przekroju. W przypadku znalezienia dopasowania odpowiedni przekrój jest modyfikowany i przenoszony do modułu. Następnie pętla zostaje przerwana, ponieważ w tym przypadku badany jest tylko jeden przekrój.

'Ustawić optymalizację dla żądanego przekroju

Dim iStec3_cs As STEEL_EC3.CROSS_SECTION
count = iStec3Case.moGetCrossSectionsCount
Dim crsc_ec3_idx As Long
crsc_ec3_idx = -1

Jeżeli chcesz zadać krótkie pytanie techniczne, i = 0 To liczba - 1
iStec3_cs = iStec3Case.moGetCrossSection (i, AT_INDEX)
If InStr (Lasera (iStec3_cs.Description), Laza (crsc_desc))> 0 Więc
iStec3_cs.Optimization = Prawda
iStec3Case.moSetCrossSection i, AT_INDEX, iStec3_cs
crsc_ec3_idx = i
Wyjdź dla
End If
Następny i

'Ustawić optymalizację dla żądanego przekroju
iStec3Case.moCalculate

Po aktywowaniu optymalizacji rozpoczyna się obliczenie przypadku modułu.

Przesyłanie przekroju do RFEM

Przekrój przenoszony jest za pomocą numeru przekroju. W tym celu należy uzyskać interfejs przekroju programu RFEM, a następnie wprowadzić nowy TextID lub nowy identyfikator przekroju. Program RFEM rozpoznaje identyfikator i po przeniesieniu pobiera odpowiedni przekrój z biblioteki.

'Przenieść przekrój do programu RFEM
„Otrzymać nowy opis przekroju od RF-STEEL EC3
iStec3_cs = iStec3Case.moGetCrossSection (crsc_ec3_idx, AT_INDEX)

'Pobierz program RFEM z interfejsu przekroju i jego właściwości
Dim iCrsc As RFEM5.ICrossSection
Ustawić iCrsc = iModelData.GetCrossSection (crsc_no, AtNo)
Dim crsc As RFEM5.CrossSection
crsc = iCrsc.GetData

„Zmiana przekroju na nowy przekrój przez RF-STEEL EC3
crsc.Description = ""
crsc.TextID = iStec3_cs.Description

'Przenosić właściwości przekroju
iModelData.PrepareModification
iCrsc.SetData crsc
iModelData.FinishModification

Podsumowanie

W szczególności w przypadku powtarzających się konstrukcji opcja optymalizacji w RF-/STEEL EC3 zapewnia doskonałe ułatwienie pracy. Ważne jest sprawdzenie konstrukcji przy użyciu zoptymalizowanych przekrojów, poprzez ponowne obliczenie w programie RFEM. Iteracyjny proces byłby łatwy do zrealizowania przy użyciu interfejsu COM. W ten sposób zautomatyzowana optymalizacja może znacznie ułatwić i przyspieszyć pracę.