---

Hallo mal wieder,

ich suche nach einer Möglichkeit mir per VBA alle Verknüpfungen anzeigen zu lassen. Etwas vergleichbares habe ich schon für Features, da werden Verknüpfungen nur leider nicht mit aufgelistet:

Sub LetztesFeature()
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim theFeature As SldWorks.Feature
Dim thePart As SldWorks.PartDoc
Dim featCount As Long
Dim partCount As Long
Dim featName As String
Dim PartName As String
Dim i As Long
Dim NameArray(0) As String

Dim Suchbegriff As String

    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
   
    Suchbegriff = "Deckungsgleich"
   
    featCount = Part.GetFeatureCount
    For i = featCount To 1 Step -1
        Set theFeature = Part.FeatureByPositionReverse(featCount - i)
        If Not theFeature Is Nothing Then
            featName = theFeature.Name
            If Left(featName, Len(Suchbegriff)) = Suchbegriff Then NameArray(0) = featName
        Debug.Print "Feature " + Str(i) + " is " + featName
        End If
    Next
    MsgBox NameArray(0)
    Set Part = Nothing
End Sub

Wer hat eine Idee wie ich das umschreiben kann? Irgendwie komme ich gerade nicht drauf 

Danke schonmal

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Dazu gibt es zwei Beispiele in der Solidworks-API-Hilfe.

Get Mates and Mate Entities Example (VBA)
Get Mates Example (VBA)

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Tipp... hab dadurch auch andere Beispiele gefunden, die mir anderweitig weiterhelfen konnten 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP