479x
002134
28.12.2020

FAQ 004888 | Jak mohu pomocí rozhraní COM použít funkci "Spojit linie/pruty"?

Dotaz:
Jak mohu pomocí rozhraní COM použít funkci "Spojit linie/pruty"?

Odpověď:
Možnost "Spojit linie/pruty" je možné realizovat pomocí funkcí "ConnectLines()" a "ConnectMembers()". Obě funkce očekávají string s čísly linií nebo prutů:

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

V tomto příkladu se tak spojí linie 1 a 2 a v průsečíku se vytvoří uzel. Totéž platí pro pruty 1 a 2, u kterých se také vytvoří nový uzel v průsečíku.



;