SOLIDWORKS 宏合并執(zhí)行的問題

arter_2006

2014試過了，和2018一樣。但3個(gè)宏各自單獨(dú)執(zhí)行是沒問題的。不知道問題在哪里

ryouss

arter_2006 發(fā)表于 2018-11-28 16:45
  }' @& v0 @1 }0 s- h2014試過了，和2018一樣。但3個(gè)宏各自單獨(dú)執(zhí)行是沒問題的。不知道問題在哪里

7 W3 b; f! h5 X% O0 b2012版本 "引用項(xiàng)目" 作參考,看是否有打勾!

( v+ T  H& s6 h* R" Y

arter_2006

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

' E5 x1 g3 |5 U  u' V0 ?7 e打勾了，只是沒有solidworks 2012的選項(xiàng)，我從上到下都看過了

ryouss

arter_2006 發(fā)表于 2018-11-28 18:54
1 w. g  g1 ^, Q. @打勾了，只是沒有solidworks 2012的選項(xiàng)，我從上到下都看過了

1 S: f' V& [9 F( L* z因是2018版沒2012是正常的.
7 A' I4 t0 ]/ r% l. z4 T2 f
另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
5 Z% I- V7 ^+ J& l& L3 M
9 X2 q' I  d/ j3 u

$ C3 w, G3 D( b

arter_2006

2018沒有偵錯(cuò)按鈕，但有“逐語句”按鈕，點(diǎn)了后沒發(fā)現(xiàn)任何問題。
下面是截屏。
/ }6 _2 D$ ]# i. H

arter_2006

又用solidworks 2014試了下，發(fā)現(xiàn)問題：

arter_2006

對(duì)于solidworks 2014,我試了兩個(gè)宏，一個(gè)是昨天的宏，及宏的名字為中文名，如”刪除當(dāng)前配置屬性.swp“，但
) X6 ^) M" V% ^"CurCFGname = Part.GetConfigurationNames"
這一句沒有改，
4 ^6 s/ [8 `2 _& T我進(jìn)行了逐句檢查，沒有發(fā)現(xiàn)問題。
. n  s  y% }( P后來我把宏的名字改為英文名，但上面的語句改為了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
，執(zhí)行逐句檢查，沒有再發(fā)現(xiàn)問題。
上面的兩個(gè)版本在solidworks 2018，及在sw2014里發(fā)現(xiàn)問題的宏，都沒有發(fā)現(xiàn)任何問題。
2 F) r+ W! U9 L" k) b+ W5 N( z
  n' Z- c/ F8 i' h: |/ f補(bǔ)充一點(diǎn)，我剛剛發(fā)現(xiàn)，這幾個(gè)宏，無論是在sw2014還是2018里，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容，但另外兩個(gè)宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內(nèi)容。
* K. ?: T5 E3 s% E; Y

arter_2006

@ryouss,謝謝，讓您費(fèi)心了。

DaveChan

可使用RunMacro2函數(shù)執(zhí)行外部宏，如下參考

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   
4. 
   
5. Sub main()
   
6.    Set swApp = Application.SldWorks
   . K! P( K' L" p. b6 C$ g
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   , g" y5 h2 @3 k: ~2 }
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError
   5 {2 l' X$ O/ z" [+ v' w  b
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    

復(fù)制代碼

+ L* x! U: f. v2 n: s

arter_2006

DaveChan 發(fā)表于 2018-11-30 11:11
$ c7 L  G& o3 D可使用RunMacro2函數(shù)執(zhí)行外部宏，如下參考

5 |4 h$ e4 E4 _* U非常感謝您，成功了
6 L) E- n! h# q9 t5 S8 |% [% O