SOLIDWORKS 宏合并執行的問題

arter_2006

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

ryouss

arter_2006 發表于 2018-11-28 16:45
2014試過了，和2018一樣。但3個宏各自單獨執行是沒問題的。不知道問題在哪里

* [6 Z4 r, K- ]( m8 k2012版本 "引用項目" 作參考,看是否有打勾!
' v: D0 L1 b( W3 g
% ~1 D9 v# M3 t
3 g/ E# R- E5 |

arter_2006

ryouss 發表于 2018-11-28 17:11
2012版本 "引用項目" 作參考,看是否有打勾!

, J. Q0 y5 H. }1 J. w打勾了，只是沒有solidworks 2012的選項，我從上到下都看過了
) _" h7 N0 j0 O+ \; r

ryouss

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

' i4 E3 \) q* E1 p/ H因是2018版沒2012是正常的.

7 P" X. ]) X* [! E8 P$ w另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
! o% _7 E/ t/ C; q" A9 q& ^
2 |, o& N& D( S% T. z

% K5 R. }0 G& ]! h1 `- L

arter_2006

6 D" R6 U1 m3 U" r9 Y1 _0 t4 {
' b9 q! \2 J$ Z( A2018沒有偵錯按鈕，但有“逐語句”按鈕，點了后沒發現任何問題。
+ v! p6 l3 o: c( @! h4 \( z下面是截屏。

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏，及宏的名字為中文名，如”刪除當前配置屬性.swp“，但
/ G! y, F9 I* {, a! |"CurCFGname = Part.GetConfigurationNames"
這一句沒有改，
我進行了逐句檢查，沒有發現問題。
4 i7 _# s% ?  J& W: k后來我把宏的名字改為英文名，但上面的語句改為了
4 `( k/ @' k5 T3 bCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補加零件文件的路徑及名稱
6 s, C8 o7 f- `% y/ E6 N* U0 r，執行逐句檢查，沒有再發現問題。
上面的兩個版本在solidworks 2018，及在sw2014里發現問題的宏，都沒有發現任何問題。

補充一點，我剛剛發現，這幾個宏，無論是在sw2014還是2018里，都能夠執行”partitionTM.swp“宏里的內容，但另外兩個宏里的內容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內容。

arter_2006

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

DaveChan

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

1. Option Explicit
   ; |; Z" v# D7 ~
2. Dim swApp As SldWorks.SldWorks
   . L( u/ y" w# o8 I6 f
3. Dim runMacroError As Long
   
4. 
   
5. Sub main()
   
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
   6 p! f# a2 f9 X2 h* `6 s; g! q
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   $ D& c; }0 i' q4 A0 N" n) {
10. End Sub
    4 z) q+ f5 z& t) p0 Z( `

復制代碼

( v5 i( ?  K0 ^& E6 m

arter_2006

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

6 z7 A& P9 l' f非常感謝您，成功了