418x
004199
2019-11-08

Pergunta

Como é que se cria uma imperfeição através da interface COM?


Resposta:

Uma imperfeição é considerada uma carga e é transferida através da interface do caso de carga. Se a interface para o modelo já tiver sido importada, é importada a interface para as cargas (ILoads) e, em seguida, a interface para o caso de carga 1 (ILoadCase), caso este tenha sido criado antes:

' 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

Os dados da imperfeição (Imperfection) são primeiro preenchidos, aqui para a barra 1, e depois transferidos dentro de um bloco Prepare-/FinishModification da interface do caso de carga.