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

arter_2006

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

ryouss

arter_2006 發(fā)表于 2018-11-28 16:45
2014試過(guò)了,，和2018一樣。但3個(gè)宏各自單獨(dú)執(zhí)行是沒(méi)問(wèn)題的,。不知道問(wèn)題在哪里

- J+ F3 X/ J4 _# o, t2012版本 "引用項(xiàng)目" 作參考,看是否有打勾!
& J( w! j+ [* ^- n

arter_2006

ryouss 發(fā)表于 2018-11-28 17:11
' E$ L) {) v- x' r6 \+ Q+ O2012版本 "引用項(xiàng)目" 作參考,看是否有打勾!

) {) }( M5 W. C2 l) X打勾了,，只是沒(méi)有solidworks 2012的選項(xiàng),，我從上到下都看過(guò)了
& N. V1 ]0 R0 C% k4 \/ r! o

ryouss

arter_2006 發(fā)表于 2018-11-28 18:54
打勾了,，只是沒(méi)有solidworks 2012的選項(xiàng)，我從上到下都看過(guò)了

因是2018版沒(méi)2012是正常的.
4 l4 s! l$ w% V) x8 l/ i9 w& g
另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲(chóng)就要用到"逐步執(zhí)行")
9 ^" Q% ^" L8 V5 C6 ^/ e* }


8 ~7 F7 P8 q/ y  @

arter_2006

& u2 J7 F, \% @$ V4 Z
2018沒(méi)有偵錯(cuò)按鈕，但有“逐語(yǔ)句”按鈕，點(diǎn)了后沒(méi)發(fā)現(xiàn)任何問(wèn)題,。
下面是截屏,。

arter_2006

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

arter_2006

對(duì)于solidworks 2014,我試了兩個(gè)宏,，一個(gè)是昨天的宏，及宏的名字為中文名,，如”刪除當(dāng)前配置屬性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
! ~9 ^% Y/ G8 g$ ?: y8 I+ ]8 X這一句沒(méi)有改,，
) I6 z& c) i( H: r我進(jìn)行了逐句檢查,，沒(méi)有發(fā)現(xiàn)問(wèn)題。
后來(lái)我把宏的名字改為英文名,，但上面的語(yǔ)句改為了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
,，執(zhí)行逐句檢查，沒(méi)有再發(fā)現(xiàn)問(wèn)題,。
上面的兩個(gè)版本在solidworks 2018,，及在sw2014里發(fā)現(xiàn)問(wèn)題的宏，都沒(méi)有發(fā)現(xiàn)任何問(wèn)題,。
+ @6 {1 G; o9 O" g( L$ a
補(bǔ)充一點(diǎn),，我剛剛發(fā)現(xiàn)，這幾個(gè)宏,，無(wú)論是在sw2014還是2018里,，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容，但另外兩個(gè)宏里的內(nèi)容都不能起到任何作用,，即不能刪除自定義屬性,、及所有配置屬性里的內(nèi)容。
7 s( u) p" H4 M* U4 Q0 x

arter_2006

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

DaveChan

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

1. Option Explicit
     @# z2 y9 a1 ?/ ~: k# \
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   2 W( J* g# u8 l3 H4 `! q& P: B$ Z
4. 
   
5. Sub main()
   
6.    Set swApp = Application.SldWorks
   ( N- a3 N1 a8 E* V3 b
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
    3 i( [- H* |$ r# l, g' Q

復(fù)制代碼

7 a& R& e& [% I9 c& a# w; Q

arter_2006

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

非常感謝您,，成功了
8 x8 {& R0 {0 l+ g$ J0 h