Tak, istnieje możliwość tworzenia zwolnień węzłowych za pomocą interfejsu COM. Oto przykład:
Sub node_release ()
Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Ustaw iApp = GetObject(, "RFEM5.Application")iApp.LockLicense test = iApp.GetModelCountUstaw iModel = iApp.GetModel (0) Dim iModeldata As RFEM5.iModeldataUstaw iModeldata = iModel.GetModelData ' do ustawienia zwolnienia węzłowego wymagane jest zwolnienie przegubu prętowego' obiekt dla układu osi nie może być taki sam jak ze zwolnionymDim NodRel As NodalReleaseNodRel.location = Oryginalny TypLokacjinodRel.AxisSystem = LocalFromLinenodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "przetestuj zwolnienie węzłowe"Przegub Prętowy nr = 1węzełRel.Node = 1NodRel.ReleasedMembers = 1 iModeldata.PrepareModificationiModeldata.SetNodalRelease nodReliModeldata.FinishModification e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source iApp.UnlockLicense
Zakończ sub
Należy pamiętać, że lokalny układ osi może różnić się od tych samych elementów, które są zwalniane.