Francis wrote:
lssxll兄 的热情,实在令闷人感动,
其实“第一剑”简单不过,
只是方便了在“快捷键”可有双向功能,
从而让“快捷键”更能有效及直观运用。
内码如下:
Dim swApp As Object
Dim AsmDoc As Object
Dim SelMgr As Object
Sub main()
Set swApp = Application.SldWorks
Set AsmDoc = swApp.ActiveDoc
If AsmDoc.GetType <> 2 Then '检查是否装配件
End '不是--离开
End If
Set SelMgr = AsmDoc.SelectionManager '收集所选
If SelMgr.GetSelectedObjectCount = 0 Then '检查是否有收集
AsmDoc.EditAssembly '没有收集--编辑装配件
Else
AsmDoc.EditPart '有收集--编辑所选的零件
End If
End Sub