Несовершенство рассматривается как нагрузка и передается через интерфейс загружения. При условии, что интерфейс модели уже был импортирован, затем будет импортирован интерфейс нагрузок (ILoads), за которым следует интерфейс загружения 1 (ILoadCase), если он уже был создан ранее:
' установить загружения Затемнить iLoads как iLoads Задайте iLoads = model.GetLoads ' получить загружение Dim iLc1 как ILoadCase Установите iLc1 = iLoads.GetLoadCase (1, AtNo) ' определить несовершенство Тусклое несовершенство как несовершенство 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 ' установить несовершенство iLc1.PrepareModification iLc1.SetImperfection несовершенство iLc1.FinishModification
Данные несовершенства затем сначала заполняются, здесь для стержня 1, а затем переносятся в блок Prepare-/FinishModification загружения Interfaces.