solidworks实用宏——多个宏同时执行的宏

flooding · 发表于 2020-6-6 16:51:13

有些宏的功能不适合直接做成一个宏执行——首先容易出错；其次不实用，有时候只要其中几个运行。
现在分享的这段程序就能把各个不同的宏，一次同时执行——不需要哪些宏运行的话，可以临时屏蔽了。下一步准备做成可选菜单。

Option Explicit
% [1 _$ l7 C: Q5 b8 j2 Q5 v( a2 t
Dim swApp As SldWorks.SldWorks
) X# k0 w( ^0 ]6 B& }
Dim runMacroError As Long
$ y- B8 _4 U, z; j- o, K
Sub main()
, u0 Y7 ^0 F2 D, X* B7 Y( d
Set swApp = Application.SldWorks- L* J) X! U2 V
swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 0)变更零件单位g.swp", "Module0A_0变更零件单位g", "main", 0, runMacroError
3 V/ }8 ^5 a, T: m8 P8 M, Z6 s
swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\删除自定义配置的所有属性.swp", "删除自定义配置参数_", "main", 0, runMacroError- D8 y/ N! h8 L% \+ Z+ d) ^
swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 绘图标准A2A3A4.swp", "Module0A_绘图标准A2A3A4", "main", 0, runMacroError
8 j7 T! z4 u2 c7 X) d2 [2 M6 q. L
swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 4)图名分离.swp", "T图名分离", "main", 0, runMacroError9 Q2 @/ H! R; d' y9 Y0 m
End Sub" V0 k$ c6 `9 a4 D) \ b# T8 @

复制代码

说明：
第一段就是需要同时执行的宏的文件路径；
第二段是这个宏的“模块”名称；
第三段是main程序，一般不用改

冷月梧桐 · 发表于 2020-6-6 21:44:35

不能做成指令的宏不是好宏，粗鄙之人只能是再找一下

叶落満空山 · 发表于 2020-6-7 16:24:45

感谢分享

flooding · 发表于 2020-6-8 14:06:51

冷月梧桐发表于 2020-6-6 21:44
$ G% |* L8 ]9 n+ C; S) c, L8 H不能做成指令的宏不是好宏，粗鄙之人只能是再找一下

宏做成按钮可以设置自定义快捷键。我感觉这样子好用些。特别是想修改的时候方便

远祥 · 发表于 2020-6-9 13:47:02

多谢楼主分享。

冥顽不灵 · 发表于 2020-8-6 15:33:36

谢谢分享，楼主大恩大德

冥顽不灵 · 发表于 2020-8-6 15:34:29

先下载学习了，看怎么使用，

jiacai007 · 发表于 2020-10-22 23:12:40

古牧爱我的人要

大侠很忙 · 发表于 2021-7-26 14:37:44

好东西

大侠很忙 · 发表于 2021-7-26 14:43:18

好东西啊

		自动登录	找回密码
密码			注册会员