solidworks的api帮助还是很全面的，里面有好多见简单而有效的程序，成天在api帮助里泡着，现在做程序的速度是越来越快。好像当年成天在excel中录制宏看代码的感觉。下面的程序是api帮助里的，它用来显示装配体的所有零部件。我给我的同事们用，他们觉得不错 ：）。程序使用了一个简单的递归方法遍历了装配体。

Make All Assembly Components Visible Example (VB)

This example shows how to make all assembly components visible.

'---------------------------------------

'

' Preconditions: An assembly document is open.

'

' Postconditions: Any hidden assembly components are made visible.

'

'---------------------------------------

Option Explicit

Public Enum swComponentVisibilityState_e

    swComponentHidden = 0

    swComponentVisible = 1

End Enum

Sub TraverseComponent _

( _

    swComp As SldWorks.Component2, _

    nLevel As Long _

)

    Dim vChildCompArr               As Variant

    Dim vChildComp                  As Variant

    Dim swChildComp                 As SldWorks.Component2

    Dim swCompConfig                As SldWorks.Configuration

    Dim sPadStr                     As String

    Dim i                           As Long

    For i = 0 To nLevel - 1

        sPadStr = sPadStr + "  "

    Next i

    vChildCompArr = swComp.GetChildren

    For Each vChildComp In vChildCompArr

        Set swChildComp = vChildComp

        Debug.Print sPadStr & swChildComp.Name2 & " <" & swChildComp.ReferencedConfiguration & ">"

        If swComponentHidden = swChildComp.Visible Then

            swChildComp.Visible = swComponentVisible

        End If

        TraverseComponent swChildComp, nLevel + 1

    Next

End Sub

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swAssy                      As SldWorks.AssemblyDoc

    Dim swConf                      As SldWorks.Configuration

    Dim swRootComp                  As SldWorks.Component2

    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swConf = swModel.GetActiveConfiguration

    Set swRootComp = swConf.GetRootComponent

    Debug.Print "File = " & swModel.GetPathName

    TraverseComponent swRootComp, 1

End Sub