1016x
004888
2020-12-28

Вопрос

Как с помощью интерфейса COM использовать функцию «Соединить линии/стержни»?


Ответ:

Функцию «Соединить линии/стержни» можно использовать с помощью команды «ConnectLines()» или «ConnectMembers()». В обеих командах требуется затем указать строку с номерами требуемых линий или стержней:

Sub test_connect()

Dim iMod As RFEM5.model
Set iMod = GetObject(, "RFEM5.Model")

iMod.GetApplication.LockLicense

On Error GoTo e

Dim iModData As RFEM5.IModelData2
Set iModData = iMod.GetModelData()

iModData.PrepareModification
iModData.ConnectLines ("3,4")
iModData.ConnectMembers ("1,2")
iModData.FinishModification


e:

If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Set iMod = Nothing

End Sub


В данном примере так соединятся Линия 1 и Линия 2, и в точке пересечения будет создан узел. То же относится к Стержню 1 и Стержню 2, где в точке пересечения тоже создастся новый узел.