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
