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
|