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.