Sì, è possibile creare gli svincoli nodali tramite l'interfaccia COM. Ecco un esempio:
Sub nodal_release()
Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Imposta iApp = GetObject(, "RFEM5.Application")iApp.LockLicense test = iApp.GetModelCountImposta iModel = iApp.GetModel(0) Dim iModeldata As RFEM5.iModeldataImposta iModeldata = iModel.GetModelData ' per impostare uno svincolo nodale è necessaria una cerniera dell'asta' l'oggetto per il sistema di assi non potrebbe essere lo stesso con quello rilasciatoDim nodRel As NodalReleasenodRel.Location = OriginalLocationTypenodRel.AxisSystem = LocalFromLinenodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "verifica rilascio nodale"nodRel.MemberHingeNo = 1nodRel.NodeNo = 1nodRel.ReleasedMembers = 1 iModeldata.PrepareModificationiModeldata.SetNodalRelease nodReliModeldata.FinishModification e: Se Err.Number <> 0 allora MsgBox Err.description, , Err.Source iApp.UnlockLicense
End Sub
Si prega di notare che il sistema di assi locale potrebbe non fare riferimento agli stessi elementi di quelli che vengono rilasciati.