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