393x
004199
8.11.2019

Dotaz

Jak je možné vytvořit imperfekci přes rozhraní COM?


Odpověď:

Imperfekce se považuje za zatížení a předává se přes rozhraní zatěžovacího stavu. Za předpokladu, že rozhraní k modelu již bylo načteno, načte se nyní rozhraní k zatížením (ILoads) a následně rozhraní k zatěžovacímu stavu 1 (ILoadCase), pokud již tento vytvořen:

' set loadcases
Dim iLoads As iLoads
Set iLoads = model.GetLoads
        
' get load case
Dim iLc1 As ILoadCase
Set iLc1 = iLoads.GetLoadCase(1, AtNo)
        
' define imperfection
Dim imperf As Imperfection
imperf.Comment = "test"
imperf.Direction = LocalZType
imperf.Inclination = 200
imperf.no = 1
imperf.ObjectList = 1
imperf.Precamber = 300
imperf.PrecamberActivity = ActivityAccording_EN_1993_1_1
        
' set imperfection
iLc1.PrepareModification
iLc1.SetImperfection imperf
iLc1.FinishModification

Údaje imperfekce (Imperfection) se potom nejdříve vyplní, zde pro prut 1, a potom předají v rámci bloku Prepare-/FinishModification rozhraní zatěžovacího stavu.