Да, узловые высвобождения можно создавать через интерфейс COM. Вот пример:
Sub nodal_release ()
Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Set iApp = GetObject(, "RFEM5.Application")iApp.LockLicense test = iApp.GetModelCountУстановить iModel = iApp.GetModel (0) Dim iModeldata как RFEM5.iModeldataУстановите iModeldata = iModel.GetModelData ' для установки узлового высвобождения требуется шарнир стержня' объект для системы координат не может совпадать с высвобожденнымТусклый кивокnodRel.Location = OriginalLocationTypenodRel.AxisSystem = LocalFromLinenodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "тестовый высвобождение узла"nodRel.MemberHingeNo = 1nodRel.NodeNo = 1nodRel.ReleasedMembers = 1 iModeldata.PrepareModificationiModeldata.SetNodalRelease nodReliModeldata.FinishModification e: Если Err.Number <> 0, то MsgBox Err.description,, Err.Source iApp.UnlockLicense
End Sub
Обратите внимание, что местная система координат может не относиться к тем же элементам, что и высвобожденные.