列举外部参考设置成快捷键，能不能设置成快捷，不要鼠标每次去右键，如何设置？

用以下代碼製作宏，再賦予快捷鍵。

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   + O- E. B# A8 h! j9 `) h
4. Set swApp = Application.SldWorks
   # ~$ S% u9 W! G+ Z6 R
5. swApp.RunCommand 1055, ""
   1 p4 E( U! p& y! C
6. End Sub
   ( X0 m- \, S& n- z' N0 _' o

复制代码

大鹿 发表于 2017-5-20 10:57 static/image/common/back.gif
0 ]9 `. M! N# \2 r# k  w% Q6 y7 U用以下代碼製作宏，再賦予快捷鍵。

8 u4 g& D. i- m, h我看不懂语法，楼上能帮忙写好，保存成宏格式吗？谢谢

# j$ I  ~! `7 N3 Z" e

chkbq 发表于 2017-5-20 16:28
我看不懂语法，楼上能帮忙写好，保存成宏格式吗？谢谢

首先谢谢大鹿先生分享好代码~~~

下面说一下我将代码保存到宏的方法：

1.菜单/工具/宏/录制
' D- k. F8 l, ?# }2.随便录点内容，比如在绘图窗口点下鼠标......
4 S' N) p( W5 ?% C& k* z3.菜单/工具/宏/停止，停止时会提示保存文件，记住位置，保存。
4.菜单/工具/宏/编辑，将代码窗口内容全部删除，将你要的代码复制其中，保存即可。
/ G( |! ]3 q$ w- `2 I3 a) E注意复制代码后，会亮红，原因是论坛会在文本后自动加入乱码，
对照我们在论坛页面所看到的内容，将乱码删除。

qiminger 发表于 2017-5-21 13:13
首先谢谢大鹿先生分享好代码~~~
! C1 p- e3 c9 N! R" i5 e1 e4 I) a7 E
下面说一下我将代码保存到宏的方法：

大师兄把你的宏上传唄！！

chkbq 发表于 2017-5-22 17:02
大师兄把你的宏上传唄！！

+ Q) S4 s8 R3 H4 m' r首先在设计树点击零件，再执行宏。
列举外部参考.rar (5.89 KB, 下载次数: 3)

2017-5-24 07:37 上传

点击文件名下载附件