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

arter_2006

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

ryouss

arter_2006 發(fā)表于 2018-11-28 16:45
# p3 E2 j7 E# E0 Y. {0 u; w2014試過了，和2018一樣,。但3個(gè)宏各自單獨(dú)執(zhí)行是沒問題的。不知道問題在哪里

2012版本 "引用項(xiàng)目" 作參考,看是否有打勾!

arter_2006

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

打勾了,，只是沒有solidworks 2012的選項(xiàng)，我從上到下都看過了
. q  e" F  r" B

ryouss

arter_2006 發(fā)表于 2018-11-28 18:54
% s% t. m0 t* J, B打勾了，只是沒有solidworks 2012的選項(xiàng),，我從上到下都看過了

: O2 s" `/ L$ _5 Z* m9 y( p% t) U' c! @因是2018版沒2012是正常的.

$ G6 s* ?7 b2 x9 \. w另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
8 h2 P$ ]/ O$ ]8 i/ n
" Z+ s0 s1 O/ m: `! [( z7 {
9 R" s" C: [' c) g( S7 T6 w& |! w

arter_2006

* Y+ [. H& [8 Q+ x0 i- }+ z
# Y5 m! N2 f( |8 M; R* l9 a2 g9 _5 _, _2018沒有偵錯(cuò)按鈕,，但有“逐語句”按鈕,，點(diǎn)了后沒發(fā)現(xiàn)任何問題。
) _' Z4 a! }$ j' W( S2 N下面是截屏,。
9 N& S& C+ h* `( Q! Y( M, z6 e; d+ Z+ m

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個(gè)宏,，一個(gè)是昨天的宏，及宏的名字為中文名,，如”刪除當(dāng)前配置屬性.swp“,，但
9 r3 x* A0 H6 {" U( C8 Q3 O"CurCFGname = Part.GetConfigurationNames"
這一句沒有改，
我進(jìn)行了逐句檢查,，沒有發(fā)現(xiàn)問題,。
' {) \0 y$ x) J7 B, {; S后來我把宏的名字改為英文名，但上面的語句改為了
) }& e& M" w* q" T( d' a: K6 ]CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
,，執(zhí)行逐句檢查,，沒有再發(fā)現(xiàn)問題。
上面的兩個(gè)版本在solidworks 2018,，及在sw2014里發(fā)現(xiàn)問題的宏,，都沒有發(fā)現(xiàn)任何問題。

9 N8 U. f, `& A2 W8 j) n9 U' R補(bǔ)充一點(diǎn),，我剛剛發(fā)現(xiàn),，這幾個(gè)宏，無論是在sw2014還是2018里,，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容,，但另外兩個(gè)宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性,、及所有配置屬性里的內(nèi)容,。

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   , M, ~/ F6 z7 T5 A  `' I" p( O  _
4. 
   
5. Sub main()
   7 S- i$ T+ j) |; c1 m: W; O2 n
6.    Set swApp = Application.SldWorks
   
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   / R" y6 t- ^' G& o9 f3 r+ ~& v
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError
   8 x; u  p" r$ |, {8 _+ s
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   / T1 P! u* v4 V7 O
10. End Sub
    

復(fù)制代碼

arter_2006

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

9 q' Q" y) `# R: w  S' C0 y非常感謝您，成功了