SOLIDWORKS 宏合并執行的問題

arter_2006

2014試過了，和2018一樣。但3個宏各自單獨執行是沒問題的。不知道問題在哪里

ryouss

arter_2006 發表于 2018-11-28 16:45
. q  ~$ Y8 C9 r% O9 ^, e2014試過了，和2018一樣。但3個宏各自單獨執行是沒問題的。不知道問題在哪里

5 U) ~* N7 W1 w- m8 d; K4 f2012版本 "引用項目" 作參考,看是否有打勾!
0 _8 j1 u1 H; h  o- @8 {
3 K6 `! V% E, i; L4 i9 i1 `

arter_2006

ryouss 發表于 2018-11-28 17:11
! i2 l$ b0 R7 l0 q" r' s2012版本 "引用項目" 作參考,看是否有打勾!

- d- z; P0 @  U0 B- D6 J* n# G打勾了，只是沒有solidworks 2012的選項，我從上到下都看過了
. O* ]' J1 ^7 A# f

ryouss

arter_2006 發表于 2018-11-28 18:54
打勾了，只是沒有solidworks 2012的選項，我從上到下都看過了

* E5 q" T. R) [: `因是2018版沒2012是正常的.
- R, k9 M: o: y3 L  t5 o# v
% w! h/ F9 M$ f5 T8 h, o另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")

  a% j8 a9 Q+ s6 v% n
) Z/ }3 m8 j" n) x+ y2 X% L

arter_2006

$ A5 P+ s/ j. a0 Q* q9 v6 I2018沒有偵錯按鈕，但有“逐語句”按鈕，點了后沒發現任何問題。
下面是截屏。
1 k! M1 P6 E: ~8 x% ?* H$ A

arter_2006

又用solidworks 2014試了下，發現問題：

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏，及宏的名字為中文名，如”刪除當前配置屬性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
這一句沒有改，
- {* u0 k5 `2 ?: U; n我進行了逐句檢查，沒有發現問題。
- C1 e: A2 n0 C* w后來我把宏的名字改為英文名，但上面的語句改為了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補加零件文件的路徑及名稱
" y& p8 A  T6 l，執行逐句檢查，沒有再發現問題。
2 n, G8 t' ^! K$ A& Z* u  a1 \上面的兩個版本在solidworks 2018，及在sw2014里發現問題的宏，都沒有發現任何問題。

1 T$ |# ~( q; R3 T補充一點，我剛剛發現，這幾個宏，無論是在sw2014還是2018里，都能夠執行”partitionTM.swp“宏里的內容，但另外兩個宏里的內容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內容。
: l- [- g$ z7 {  u' T$ z( N6 x

arter_2006

@ryouss,謝謝，讓您費心了。

DaveChan

可使用RunMacro2函數執行外部宏，如下參考

1. Option Explicit
   ) d) s: q2 k# k
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   * ^9 I9 [4 j! M! M: ^, [
4. 
   
5. Sub main()
   % o6 b. w, g8 n3 \. j
6.    Set swApp = Application.SldWorks
   
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError
   7 v* \/ C& j" Z' w0 _6 [3 G$ }
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    8 q+ C. a0 D! T! o% G

復制代碼

arter_2006

DaveChan 發表于 2018-11-30 11:11
可使用RunMacro2函數執行外部宏，如下參考

非常感謝您，成功了
! G( N, o2 R9 l; P8 |/ |- r* W