Lier le texte de bulle à la table spécifiée VBA

2D plans
1

Bonjour, 

Je souhaiterai pourvoir intégrer dans ma macro de sélection de configuration le fait de cocher l'option "Lier le texte de bulle à la table spécifiée"

Pouvez-vous m'indiquer la commande en VBA svp?

Merci


capture-coche.jpg
2

Bonjour. La commande est SetKeepLinkedToBOM

Exemple:

Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swBOMtbl As SldWorks.BomFeature
Dim swView As SldWorks.View
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Dim i As Long
For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
    If swSelMgr.GetSelectedObjectType3(i, -1) = swSelDRAWINGVIEWS Then
        Set swView = swSelMgr.GetSelectedObject6(i, -1)
    ElseIf swSelMgr.GetSelectedObjectType3(i, -1) = swSelBOMFEATURES Then
        Set swBOMtbl = swSelMgr.GetSelectedObject6(i, -1)
    End If
Next i
If swView Is Nothing Or swBOMtbl Is Nothing Then
    MsgBox "Sélectionner une vue et une table dans l'arbre"
    Exit Sub
End If
MsgBox "Lier la vue: " & swView.Name & vbCr & "à la table: " & swBOMtbl.Name & vbCr & swView.SetKeepLinkedToBOM(True, swBOMtbl.Name)
End Sub

 

1 « J'aime »
3

Merci de votre réponse,

Je testerais ça dès que possible.