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