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