Ich versuche ein Makro zu erstellen, das die Sichtbarkeit aller ausgewählten Bauteile in einer Assembly wechselt. Ich scheitere jedoch schon an der Schleife, die die SelectSet.Item durchlaufen soll. Er schaltet immer nur das erste ausgewählte Bauteil um.
Public Sub PartVisible()
Dim oDoc As Inventor.AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oCompDef As Inventor.ComponentDefinition
Set oCompDef = oDoc.ComponentDefinition
Dim sMsg As String
Dim iLeafNodes As Long
Dim iSubAssemblies As Long
Dim xCounter As Long
Dim oOccurrence As ComponentOccurrence
On Error Resume Next
For xCounter = 1 To ThisApplication.ActiveDocument.SelectSet.Count
MsgBox xCounter
Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(xCounter)
If oOccurrence.Visible = True Then
oOccurrence.Visible = False
Else
oOccurrence.Visible = True
End If
Next xCounter
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP