Criar libertações de nós através da interface COM

Sim, é possível criar libertações de nós através da interface COM. Aqui está um exemplo:

1. código.vb#

Sub nodal_release()

1. Dim iApp As RFEM5.Application
2. Dim iModel As RFEM5.model
4. On Error GoTo e
6. Set iApp = GetObject(, "RFEM5.Application")
7. iApp.LockLicense
9. test = iApp.GetModelCount
10. Set iModel = iApp.GetModel(0)
12. Dim iModeldata As RFEM5.iModeldata
13. Set iModeldata = iModel.GetModelData
16. ' for setting a nodal release a member hinge is needed
17. ' the object for the axis system could not be the same with the released one
18. Dim nodRel As NodalRelease
19. nodRel.Location = OriginalLocationType
20. nodRel.AxisSystem = LocalFromLine
21. nodRel.AxisSystemFromObjectNo = 2
22. nodRel.Comment = "test nodal release"
23. nodRel.MemberHingeNo = 1
24. nodRel.NodeNo = 1
25. nodRel.ReleasedMembers = 1
27. iModeldata.PrepareModification
28. iModeldata.SetNodalRelease nodRel
29. iModeldata.FinishModification

e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

1. iApp.UnlockLicense

End Sub
#/code#

Tenha em atenção que o sistema de eixos local não deve referir-se aos mesmos elementos que foram libertados.