solidworks實用宏——多個宏同時執行的宏

flooding

有些宏的功能不適合直接做成一個宏執行——首先容易出錯；其次不實用，有時候只要其中幾個運行。
現在分享的這段程序就能把各個不同的宏，一次同時執行——不需要哪些宏運行的話，可以臨時屏蔽了。下一步準備做成可選菜單。

! i' u' T4 V5 u' V/ }

1. Option Explicit
   % e3 B* V# H- z, X( O) v5 E
2. Dim swApp As SldWorks.SldWorks
   8 A& b; T* p0 b6 y: h6 P
3. Dim runMacroError As Long
   : g5 j9 D; X" ~/ V) F: h3 F
4. Sub main()
   3 W# B% o2 N$ C0 @# \! I
5.     Set swApp = Application.SldWorks
   / |! X3 |- E6 ~! R/ o. i
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
     p% j8 `- G) _, P# M
8.         swApp.RunMacro2 "J:\Solidworks模板及設計庫\H 宏\0A 繪圖標準A2A3A4.swp", "Module0A_繪圖標準A2A3A4", "main", 0, runMacroError
   6 a' c- q* _: ~" w/ p+ d% [
9.         swApp.RunMacro2 "J:\Solidworks模板及設計庫\H 宏\0A 4)圖名分離.swp", "T圖名分離", "main", 0, runMacroError
   
10. End Sub
    

復制代碼

3 v5 }' L, J& |9 ~" F* U) I
說明：
( E# [4 O8 j) J0 ^9 e第一段 就是需要同時執行的宏的文件路徑；
* ]5 \( E5 d/ K1 w第二段是這個宏的“模塊”名稱；
+ F3 |9 Q, J/ Q, u6 E第三段是main程序，一般不用改
: Q2 M5 e$ W$ Z9 m4 [6 K

( }, f7 |; P5 I

冷月梧桐

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

葉落満空山

感謝分享

flooding

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

$ n8 {( A- u+ k( y( F/ H宏做成按鈕可以設置自定義快捷鍵。我感覺這樣子好用些。特別是想修改的時候方便

遠祥

多謝樓主分享。

冥頑不靈

謝謝分享，樓主大恩大德

冥頑不靈

先下載學習了，看怎么使用，
4 P5 O  B! f6 [9 e

jiacai007

古牧愛我的人要

大俠很忙

好東西

大俠很忙

好東西啊