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

flooding

有些宏的功能不适合直接做成一个宏执行——首先容易出错；其次不实用，有时候只要其中几个运行。
现在分享的这段程序就能把各个不同的宏，一次同时执行——不需要哪些宏运行的话，可以临时屏蔽了。下一步准备做成可选菜单。
# }, A& `% i1 x2 Y$ E! m
& s: T4 ^7 |  s2 r7 E' e

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   * q) v) b2 m- D' S6 [) D
3. Dim runMacroError As Long
   
4. Sub main()
   
5.     Set swApp = Application.SldWorks
   
6.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 0)变更零件单位g.swp", "Module0A_0变更零件单位g", "main", 0, runMacroError
   
7.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\删除自定义配置的所有属性.swp", "删除自定义配置参数_", "main", 0, runMacroError
   
8.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 绘图标准A2A3A4.swp", "Module0A_绘图标准A2A3A4", "main", 0, runMacroError
   7 g0 \9 u& _1 X6 p% S# P
9.         swApp.RunMacro2 "J:\Solidworks模板及设计库\H 宏\0A 4)图名分离.swp", "T图名分离", "main", 0, runMacroError
   4 P( v# o, d) K
10. End Sub
    " a: U2 `/ a& I* o8 n( V

复制代码

说明：
3 v. a* F5 D* b" w8 d/ h第一段 就是需要同时执行的宏的文件路径；
* [- U: N! }  U8 s2 G1 i第二段是这个宏的“模块”名称；
  }0 h8 ^5 x0 B' r6 ~第三段是main程序，一般不用改


  l! f/ g0 n1 w$ |! D9 I. d1 K

冷月梧桐

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

叶落満空山

感谢分享

flooding

冷月梧桐 发表于 2020-6-6 21:44
不能做成指令的宏不是好宏，粗鄙之人只能是再找一下

! ~; w* B& F* B! n  G3 O宏做成按钮可以设置自定义快捷键。我感觉这样子好用些。特别是想修改的时候方便

远祥

多谢楼主分享。

冥顽不灵

谢谢分享，楼主大恩大德

冥顽不灵

先下载学习了，看怎么使用，
( W* K+ s: t) M9 q# p' c

jiacai007

古牧爱我的人要

大侠很忙

好东西

大侠很忙

好东西啊