Respuesta:
Sí, es posible crear las liberaciones en nudo a través de la interfaz COM. Aquí hay un ejemplo:
Subnodal_release ()
Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Establecer iApp = GetObject (, "RFEM5.Application")iApp.LockLicense test = iApp.GetModelCountEstablecer iModel = iApp.GetModel (0) Dim iModeldata As RFEM5.iModeldata Set iModeldata = iModel.GetModelData ' for setting a nodal release a member hinge is needed ' the object for the axis system could not be the same with the released one Dim nodRel As NodalRelease nodRel.Location = OriginalLocationType nodRel.AxisSystem = LocalFromLine nodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "prueba de liberación del nudo" nodRel.MemberHingeNo = 1 nodRel.NodeNo = 1 nodRel.ReleasedMembers = 1 iModeldata.PrepareModification iModeldata.SetNodalRelease nodRel iModeldata.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description`` Err.Source iApp.UnlockLicense
End SubHay que tener en cuenta que el sistema de ejes local puede que no se refiera al mismo elemento que aquellos que se han liberado.
![Vanos basados en la figura 5.2 de [1]](/es/webimage/039540/3493372/01_Abmessungen_EN.png?mw=512&hash=3cc425f1463bd5981b358d5889e3109e07ae1233)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
