Inventor 宏代码优化：遍历所有零件并设置可见性

Sub visableAll Dim doc As AssemblyDocument Set doc = ThisApplication.ActiveDocument

Dim comp As ComponentOccurrence
On Error Resume Next ' 忽略错误
For Each comp In doc.ComponentDefinition.Occurrences
    comp.Visible = True
Next comp
On Error GoTo 0 ' 恢复错误处理

End Sub