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

arter_2006

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

ryouss

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

0 b& {7 S: F- D0 P2012版本 "引用項(xiàng)目" 作參考,看是否有打勾!
$ _+ x( {: L% L7 ]$ c& U: N1 C8 m3 Y
& x! N5 F! c7 M3 ]& x9 Z' ]/ I
0 h5 X. c' w% i

arter_2006

ryouss 發(fā)表于 2018-11-28 17:11
. T3 ~( O$ `3 e) Z* B2012版本 "引用項(xiàng)目" 作參考,看是否有打勾!

打勾了，只是沒有solidworks 2012的選項(xiàng)，我從上到下都看過了

ryouss

arter_2006 發(fā)表于 2018-11-28 18:54
6 N' {3 [9 M1 O6 u, t打勾了，只是沒有solidworks 2012的選項(xiàng)，我從上到下都看過了

因是2018版沒2012是正常的.
$ n0 Z- A& W  U& S. ?% E
6 T' e7 Y  l% `' n, S另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
4 k9 o; g4 D& }$ Q! _
+ \# l5 j; ~" {5 p9 F' z+ F2 m

arter_2006

' k( _* J1 a4 x' z4 t# @
* P' |* C+ O0 ?8 j4 r) n+ k2018沒有偵錯(cuò)按鈕，但有“逐語句”按鈕，點(diǎn)了后沒發(fā)現(xiàn)任何問題。
5 a, C! e1 l/ o$ \" @下面是截屏。
0 L. f0 w# a1 V3 L6 U

arter_2006

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

arter_2006

對(duì)于solidworks 2014,我試了兩個(gè)宏，一個(gè)是昨天的宏，及宏的名字為中文名，如”刪除當(dāng)前配置屬性.swp“，但
! u! @) F9 W* D"CurCFGname = Part.GetConfigurationNames"
" ^3 R) Y- |( k7 c1 I* w這一句沒有改，
. L0 k) Y" d4 ]# G3 X' G7 g我進(jìn)行了逐句檢查，沒有發(fā)現(xiàn)問題。
后來我把宏的名字改為英文名，但上面的語句改為了
- a" u6 t7 U& ^) sCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
，執(zhí)行逐句檢查，沒有再發(fā)現(xiàn)問題。
上面的兩個(gè)版本在solidworks 2018，及在sw2014里發(fā)現(xiàn)問題的宏，都沒有發(fā)現(xiàn)任何問題。

補(bǔ)充一點(diǎn)，我剛剛發(fā)現(xiàn)，這幾個(gè)宏，無論是在sw2014還是2018里，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容，但另外兩個(gè)宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內(nèi)容。
7 h9 ~3 k7 H  U4 \1 t

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   ( x' x9 O6 I( g8 a- a/ T
3. Dim runMacroError As Long
   
4. 
   3 O2 }" h5 r) F7 T
5. Sub main()
   
6.    Set swApp = Application.SldWorks
   - A7 s" j, M8 x; ^7 W) Q! ?
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   ! J9 q, @! N9 x0 e2 N3 i
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError
   % `% K& h; ?0 T) V/ e
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    5 ^1 e1 O- J' F1 c" z8 \

復(fù)制代碼

; i& q( q$ O6 f& g, V

arter_2006

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

非常感謝您，成功了
3 i2 D. V" r# l* ]$ A, O* P7 M( a' |