Criar uma imperfeição através da interface COM

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:

1. código.vb#
2. ' set loadcases
3. Dim iLoads As iLoads
4. Set iLoads = model.GetLoads
6. ' get load case
7. Dim iLc1 As ILoadCase
8. Set iLc1 = iLoads.GetLoadCase(1, AtNo)
10. ' define imperfection
11. Dim imperf As Imperfection
12. imperf.Comment = "test"
13. imperf.Direction = LocalZType
14. imperf.Inclination = 200
15. imperf.no = 1
16. imperf.ObjectList = 1
17. imperf.Precamber = 300
18. imperf.PrecamberActivity = ActivityAccording_EN_1993_1_1
20. ' set imperfection
21. iLc1.PrepareModification
22. iLc1.SetImperfection imperf
23. 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.