回复:
缺陷相当于一种荷载，通过与荷载工况的接口传递缺陷。 Mit der Voraussetzung, dass das Interface zum Modell bereits geholt wurde, wird nun das Interface zu den Lasten (ILoads) und danach das Interface zum Lastfall 1 (ILoadCase) geholt, insofern dieser bereits angelegt wurde:
' 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.FinishModificationDie Daten der Imperfektion (Imperfection) werden danach zuerst ausgefüllt, hier für Stab 1, und dann innerhalb eines Prepare-/FinishModification Blocks des Lastfall Interfaces übergeben.