闷人大师的"编辑零件"也就是孤独九剑的第一剑.<BR>内码如下: <BR> <BR> Dim swApp As Object <BR> Dim AsmDoc As Object <BR> Dim SelMgr As Object <BR> <BR> Sub main() <BR> <BR> Set swApp = Application.SldWorks <BR> Set AsmDoc = swApp.ActiveDoc <BR> If AsmDoc.GetType &lt;&gt; 2 Then '检查是否装配件 <BR> End '不是--离开 <BR> End If <BR> Set SelMgr = AsmDoc.SelectionManager '收集所选 <BR> If SelMgr.GetSelectedObjectCount = 0 Then '检查是否有收集 <BR> AsmDoc.EditAssembly '没有收集--编辑装配件 <BR> Else <BR> AsmDoc.Edit<FONT color=red>Part</FONT> '有收集--编辑所选的零件 <BR> End If <BR> End Sub