【求助】闷人大师的“编辑零件”快捷键是怎么定义的?

lssxll 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.EditAsmDoc '有收集--编辑所选的零件
End If
End Sub

谢谢闷人大师的指导帮助,我去试试看.(我经常要从装配体里编辑零件,再转回编辑装配体,就是没法定义这双向的快捷键)不过如要改宏的内码还是第一次呀.

请闷人大师帮助呀,按你提供的内码改了后,能从编辑零件状态下返回编辑装配体,但还是不能双向编辑功能.我错在什么地方啦??
按宏命令后的提示是:

再按调试按钮后打开的:

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

谢谢闷人大师和路過蜻蜓版主，到这里总算圆满解决，感谢大家的帮助.
有想法才会有行动,有追求才会有收获.我会继续努力的!!!

lssxll wrote:
谢谢闷人大师和路過蜻蜓版主，到这里总算圆满解决，感谢大家的帮助.  
  有想法才会有行动,有追求才会有收获.我会继续努力的!!!

小弟公司从proe转到solidworks，有很多不懂，在这里先问一个问题：是不是在一个新建零件下定义好的快捷键会自动保存，并运用到同一台电脑上打开的所有的solidworks零件文件？谢谢！