SOLIDWORKS 宏合并執行的問題

arter_2006

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

ryouss

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

" M- }$ {3 n! ?' F, l. A' h2012版本 "引用項目" 作參考,看是否有打勾!
) |5 x! @9 b; V0 z! W

1 N  |& O% N$ \8 {

arter_2006

ryouss 發表于 2018-11-28 17:11
6 ^; c6 X- F. T2012版本 "引用項目" 作參考,看是否有打勾!

打勾了，只是沒有solidworks 2012的選項，我從上到下都看過了
2 d( T$ |9 K4 V# m5 r

ryouss

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

, |" }, ?4 h# l: e% P# ^) M2 W因是2018版沒2012是正常的.

) \" ^! e$ }3 c0 R另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
9 \7 ^. B$ w! h* Q& ^$ M


7 K- g, N7 z  `2 ^$ U$ P

arter_2006

3 b; B) z/ c. G
2018沒有偵錯按鈕，但有“逐語句”按鈕，點了后沒發現任何問題。
下面是截屏。

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏，及宏的名字為中文名，如”刪除當前配置屬性.swp“，但
2 T# F- a5 u* M. w"CurCFGname = Part.GetConfigurationNames"
$ e0 G$ E. e9 J! z- ]$ X這一句沒有改，
, }& g0 J! S8 N/ Z4 N' ]* ]* X我進行了逐句檢查，沒有發現問題。
+ b: c: H" r9 g7 ]( k1 E  ~后來我把宏的名字改為英文名，但上面的語句改為了
" Y5 y9 w& e# ?) d/ M8 [3 F, p% lCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補加零件文件的路徑及名稱
，執行逐句檢查，沒有再發現問題。
- _6 O( r9 v3 K0 z( g: e: q5 F$ _上面的兩個版本在solidworks 2018，及在sw2014里發現問題的宏，都沒有發現任何問題。
& Q; t4 u5 V/ q
補充一點，我剛剛發現，這幾個宏，無論是在sw2014還是2018里，都能夠執行”partitionTM.swp“宏里的內容，但另外兩個宏里的內容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內容。

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   ! c- U" I+ W# s% d; v1 H
3. Dim runMacroError As Long
   
4. 
   1 f2 m0 A2 O. B0 u: b- W6 D1 d( y
5. Sub main()
   ) @0 ^8 n2 Z# S7 k8 o" N
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
   
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    $ u- }. l0 j' m# P& n- N: [7 c

復制代碼

* j/ ]" n9 O. c9 a" C$ l

arter_2006

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

非常感謝您，成功了