Verknüpfen von Sprechblasentext mit der von VBA angegebenen Tabelle

2D plans
1

Hallo 

Ich möchte in der Lage sein, in mein Konfigurationsauswahlmakro die Tatsache zu integrieren, dass ich die Option "Den Sprechblasentext mit der angegebenen Tabelle verknüpfen" aktivieren kann.

Können Sie mir bitte die Reihenfolge in VBA mitteilen?

Vielen Dank


capture-coche.jpg
2

Hallo. Der Befehl lautet SetKeepLinkedToBOM

Beispiel:

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 „Gefällt mir“
3

Vielen Dank für Ihre Antwort,

Das werde ich so schnell wie möglich testen.