L'opzione "Collega linee/aste" può essere implementata con le funzioni "Collega linee ()" e "Collega aste ()". Entrambe le funzioni prevedono una stringa con i numeri delle linee o delle aste:
Sub test_connect()
Dim iMod As RFEM5.modelImposta iMod = GetObject ("RFEM5.Model")
iMod.GetApplication.LockLicense
On Error GoTo e
Dim iModData come RFEM5.IModelData2Imposta iModData = iMod.GetModelData()
iModData.PrepareModificationiModData.ConnectLines ("3,4")iModData.ConnectMembers ("1,2")iModData.FinishModification
e:
Se Err.Number <> 0 allora MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseSet iMod = Nothing
End Sub
In questo esempio, la linea 1 e la linea 2 sono collegate e viene creato un nodo nel punto di intersezione. Lo stesso vale per l'asta 1 e 2, dove viene creato anche un nuovo nodo nel punto di intersezione.