418x
004199
2019-11-08

Pytanie

Jak mogę utworzyć imperfekcję przez interfejs COM?


Odpowiedź:

Imperfekcja jest traktowana jako obciążenie i jest przenoszona przez interfejs przypadku obciążenia. Jeżeli interfejs z modelem został już zaimportowany, interfejs dla obciążeń (ILoads), po którym następuje interfejs dla przypadku obciążenia 1 (ILoadCase), zostanie zaimportowany, jeżeli został już wcześniej utworzony:

' ustaw przypadki obciążeń
Dim iLoads As iLoads
Ustaw iLoads = model.GetLoads
        
' otrzymaj przypadek obciążenia
Dim iLc1 As ILoadCase
Ustaw iLc1 = iLoads.GetLoadCase (1, AtNo)
        
' zdefiniuj imperfekcję
Dim imperf As imperfekcja
imperf.Comment = "test"
imperf.Kierunek = Lokalny TypZ
imperf.Nachylenie = 200
imperf.no = 1
imperf.ObjectList = 1
imperf.Wygięcie wstępne = 300
imperf.PrecamberActivity = ActivityAccording_PL_1993_1_1
        
' ustaw imperfekcję
iLc1.PrepareModification
iLc1.SetImperfekcja imperfekcyjna
iLc1.FinishModyfikacja

Dane imperfekcji są następnie wypełniane najpierw, w tym przypadku dla Prętu 1, a następnie przenoszone w bloku Prepare-/FinishModification przypadku obciążenia Interfejsy.