Antwort:
Die Option "Linien/Stäbe verbinden" lässt sich mit den Funktionen "ConnectLines()" und "ConnectMemembers()" realisieren. Beide Funktionen erwarten eine Zeichenkette mit den Nummern der Linien oder Stäbe:
Sub test_connect()
Dim iMod As RFEM5.modelSet iMod = GetObject(, "RFEM5.Model")
iMod.GetApplication.LockLicense
On Error GoTo e
Dim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData()
iModData.PrepareModificationiModData.ConnectLines ("3,4")iModData.ConnectMembers ("1,2")iModData.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseSet iMod = Nothing
End SubIm Beispiel werden somit die Linien 1 und 2 verbunden und ein Knoten am Schnittpunkt erzeugt. Gleiches gilt für die Stäbe 1 und 2, bei denen ebenfalls ein neuer Knoten im Schnittpunkt angelegt wird.
![Stützweiten anhand Bild 5.2 aus [1]](/de/webimage/039540/3493371/01_Abmessungen_DE.png?mw=512&hash=58b2bdc31c41aaa1922dee58cf4edd3750292f7b)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
