solidworks實用宏——多個宏同時執(zhí)行的宏

flooding

有些宏的功能不適合直接做成一個宏執(zhí)行——首先容易出錯；其次不實用，有時候只要其中幾個運行。
現(xiàn)在分享的這段程序就能把各個不同的宏，一次同時執(zhí)行——不需要哪些宏運行的話，可以臨時屏蔽了。下一步準(zhǔn)備做成可選菜單。
2 q6 c6 G% F6 g( {
9 n1 R: f' I. \' s9 u! z; W: k) m

1. Option Explicit
   ; x" S, e4 O* @9 C5 D8 c
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   . k! M) ~2 C% m
4. Sub main()
   , E% S% [: L- s" {8 G$ @
5.     Set swApp = Application.SldWorks
   
6.         swApp.RunMacro2 "J:\Solidworks模板及設(shè)計庫\H 宏\0A 0)變更零件單位g.swp", "Module0A_0變更零件單位g", "main", 0, runMacroError
   
7.         swApp.RunMacro2 "J:\Solidworks模板及設(shè)計庫\H 宏\刪除自定義配置的所有屬性.swp", "刪除自定義配置參數(shù)_", "main", 0, runMacroError
   1 P3 F% C: P) n0 Z+ \
8.         swApp.RunMacro2 "J:\Solidworks模板及設(shè)計庫\H 宏\0A 繪圖標(biāo)準(zhǔn)A2A3A4.swp", "Module0A_繪圖標(biāo)準(zhǔn)A2A3A4", "main", 0, runMacroError
   . V/ O6 Z: M( K6 j$ f! y5 V
9.         swApp.RunMacro2 "J:\Solidworks模板及設(shè)計庫\H 宏\0A 4)圖名分離.swp", "T圖名分離", "main", 0, runMacroError
   - Y6 M' X9 `8 ~: [# A9 `, a
10. End Sub
    

復(fù)制代碼

$ R( N% k" D' u# Z3 D$ W; l7 _4 D8 Z
說明：
+ L0 ]  h& K0 B3 h/ K4 |2 f7 Q2 z第一段 就是需要同時執(zhí)行的宏的文件路徑；
第二段是這個宏的“模塊”名稱；
: i7 B$ P/ {: H5 \# I. g% F: K, H* d第三段是main程序，一般不用改
0 ~. x' |. q) y# m
7 _7 ]$ R+ s# X, W8 j& i8 x8 K

冷月梧桐

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

葉落満空山

感謝分享

flooding

冷月梧桐 發(fā)表于 2020-6-6 21:44
% N( t6 P, u7 G  o5 y1 V不能做成指令的宏不是好宏，粗鄙之人只能是再找一下

宏做成按鈕可以設(shè)置自定義快捷鍵。我感覺這樣子好用些。特別是想修改的時候方便

遠(yuǎn)祥

多謝樓主分享。

冥頑不靈

謝謝分享，樓主大恩大德

冥頑不靈

先下載學(xué)習(xí)了，看怎么使用，

jiacai007

古牧愛我的人要

大俠很忙

好東西

大俠很忙

好東西啊