393x
004199
2019-11-08

Вопрос

Как можно с помощью интерфейса COM создать несовершенство?


Ответ:

Несовершенство рассматривается как нагрузка и передается через интерфейс загружения. При условии, что интерфейс модели уже был импортирован, затем будет импортирован интерфейс нагрузок (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.