Domanda:
Come posso utilizzare la funzione "Collega linee o aste" tramite l'interfaccia COM?
Risposta:
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.model
Imposta iMod = GetObject ("RFEM5.Model")
iMod.GetApplication.LockLicense
On Error GoTo e
Dim iModData come RFEM5.IModelData2
Imposta 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
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.
