L'option « Connecter les lignes/barres » peut être implémentée à l'aide des fonctions « ConnectLines () » et « ConnectMembers () ». Les deux fonctions attendent une chaîne avec les numéros des lignes ou des barres :
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 Sub
Im Beispiel werden somit die Linien 1 und 2 verbunden und ein Knoten am Schnittpunkt erzeugt. Il en va de même pour les barres 1 et 2, où un nouveau nœud est créé au point d'intersection.