433x
003570
2019-09-10

Вопрос

Можно ли через интерфейс COM создавать узловые высвобождения?


Ответ:

Да, узловые высвобождения можно создавать через интерфейс COM. Вот пример:

Sub nodal_release ()

Dim iApp As RFEM5.Application
Dim 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 = OriginalLocationType
nodRel.AxisSystem = LocalFromLine
nodRel.AxisSystemFromObjectNo = 2
nodRel.Comment = "тестовый высвобождение узла"
nodRel.MemberHingeNo = 1
nodRel.NodeNo = 1
nodRel.ReleasedMembers = 1
        
iModeldata.PrepareModification
iModeldata.SetNodalRelease nodRel
iModeldata.FinishModification
        
        
e: Если Err.Number <> 0, то MsgBox Err.description,, Err.Source
    
iApp.UnlockLicense


End Sub


Обратите внимание, что местная система координат может не относиться к тем же элементам, что и высвобожденные.