VBA: Skizzen abwechselnd sichtbar und unsichtbar schalten

Mehr zum Thema VBA-Programmieren: Inventor automatisieren: Programmieranleitungen (VBA & API)

Private Sub Skizzensichtbarkeit()
Dim osketch As Sketch
Dim v As Boolean

    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveEditDocument
    If oDoc.ComponentDefinition.Sketches.Item(1).Visible Then
      v = 0
    Else
      v = 1
    End If
    For Each osketch In oDoc.ComponentDefinition.Sketches
        On Error GoTo naechste
        osketch.Visible = v
        osketch.VisibleBelowEndOfPart = v
naechste:
    Next

ThisApplication.ActiveView.Update

End Sub