994x
004888
28.12.2020

Question

Comment puis-je utiliser la fonction « Connecter les lignes ou les barres » via l'interface COM ?


Réponse:

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.model
Set iMod = GetObject(, « RFEM5.Model »)

iMod.GetApplication.LockLicense

On Error GoTo e

Dim iModData As RFEM5.IModelData2
Set 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


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.