Pregunta:
¿Cómo puedo utilizar la función "Conectar líneas o barras" a través de la interfaz COM?
Respuesta:
La opción "Conectar líneas/barras" se puede implementar con las funciones "ConnectLines ()" y "ConnectMembers ()". Ambas funciones esperan una cadena con los números de las líneas o barras:
Sub test_connect ()
Dim iMod como modelo RFEM5
Establecer iMod = GetObject (, "RFEM5.Model")
iMod.GetApplication.LockLicense
On Error GoTo e
Dim iModData As RFEM5.IModelData2
Establecer 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
Establecer iMod = Nada
End Sub
En este ejemplo, la línea 1 y la línea 2 están conectadas y se crea un nudo en el punto de intersección. Lo mismo se aplica a la barra 1 y a la barra 2, donde también se crea un nuevo nudo en el punto de intersección.