1020x
004888
2020-12-28

Pergunta

Como é que posso utilizar a função "Ligar linhas ou barras" através da interface COM?


Resposta:

A opção "Ligar linhas/barras" pode ser implementada com as funções "ConnectLines()" e "ConnectMemembers()". Ambas as funções esperam uma cadeia com os números das linhas ou barras:

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


Neste exemplo, são ligadas as linhas 1 e 2 e é criado um nó no ponto de intersecção. O mesmo se aplica às barras 1 e 2, onde também é criado um novo nó no ponto de intersecção.