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

flooding

有些宏的功能不适合直接做成一个宏执行——首先容易出错；其次不实用，有时候只要其中几个运行。
6 q& u5 I. j9 {* ]9 @现在分享的这段程序就能把各个不同的宏，一次同时执行——不需要哪些宏运行的话，可以临时屏蔽了。下一步准备做成可选菜单。
0 E1 R: W" [! ?
9 e" {7 G$ R3 j9 ], M3 P

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   ( V+ I6 c7 P  P  v/ b6 y6 `
3. Dim runMacroError As Long
   
4. Sub main()
     E( ]% S  X: a9 s& ^+ }
5.     Set swApp = Application.SldWorks
   
6.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 0)变更零件单位g.swp", "Module0A_0变更零件单位g", "main", 0, runMacroError
   # w# I5 I4 w( H, n- M
7.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\删除自定义配置的所有属性.swp", "删除自定义配置参数_", "main", 0, runMacroError
   : h1 {3 f/ m; i2 e
8.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 绘图标准A2A3A4.swp", "Module0A_绘图标准A2A3A4", "main", 0, runMacroError
   
9.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 4)图名分离.swp", "T图名分离", "main", 0, runMacroError
   
10. End Sub
    . H0 G7 X& |/ F# c

复制代码

* v- k' I7 c8 |
说明：
第一段 就是需要同时执行的宏的文件路径；
4 f$ _9 `1 r+ P7 W& o第二段是这个宏的“模块”名称；
) A6 }, d- P$ i! B) D第三段是main程序，一般不用改

; r0 h7 z9 N1 [, ?* [
; B6 S2 c' N( d: c

冷月梧桐

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

叶落満空山

感谢分享

flooding

冷月梧桐 发表于 2020-6-6 21:44
+ O- S9 I' D2 [- n5 w不能做成指令的宏不是好宏，粗鄙之人只能是再找一下

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

远祥

多谢楼主分享。

冥顽不灵

谢谢分享，楼主大恩大德

冥顽不灵

先下载学习了，看怎么使用，
+ f% _) f! B5 k

jiacai007

古牧爱我的人要

大侠很忙

好东西

大侠很忙

好东西啊