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

arter_2006

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

ryouss

arter_2006 發(fā)表于 2018-11-28 16:45
1 S6 \- `* K9 P( v3 E4 B4 Q2014試過了，和2018一樣。但3個宏各自單獨執(zhí)行是沒問題的。不知道問題在哪里

) ?* G5 e7 h# A. \1 J# S$ [2012版本 "引用項目" 作參考,看是否有打勾!
# m6 J% c* H3 ^- f. k

8 r2 U. S* p* i" T) M1 s) G/ Z

arter_2006

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

' O2 C# N% Y  S, z, G2 Y打勾了，只是沒有solidworks 2012的選項，我從上到下都看過了
, D: h( D1 j- m% H9 t

ryouss

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

; N. w  N- G* |+ u因是2018版沒2012是正常的.
' i3 u9 T, n( l# f
# S2 @; v0 _' c- ?# J2 P. O9 M另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
( r- c  }. n! A1 y/ B. n


& k/ p5 y; R+ C2 f- g+ ?1 i

arter_2006

+ P& \, C. L: S" O$ }' ?2018沒有偵錯按鈕，但有“逐語句”按鈕，點了后沒發(fā)現(xiàn)任何問題。
8 q  {; O8 h$ w9 L; B下面是截屏。

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏，及宏的名字為中文名，如”刪除當(dāng)前配置屬性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
6 h+ y/ O7 n' l% ], T! J這一句沒有改，
我進行了逐句檢查，沒有發(fā)現(xiàn)問題。
后來我把宏的名字改為英文名，但上面的語句改為了
& p1 B. [' ~6 v5 A+ VCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補加零件文件的路徑及名稱
，執(zhí)行逐句檢查，沒有再發(fā)現(xiàn)問題。
4 n7 L% n* Q2 c上面的兩個版本在solidworks 2018，及在sw2014里發(fā)現(xiàn)問題的宏，都沒有發(fā)現(xiàn)任何問題。

+ ?) X) e! h; \補充一點，我剛剛發(fā)現(xiàn)，這幾個宏，無論是在sw2014還是2018里，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容，但另外兩個宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內(nèi)容。

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   . i& V$ u9 y1 G& P
4. 
   , X$ i6 v3 B! q
5. Sub main()
   0 W) a6 e! X- m! ?" l. H/ M; c
6.    Set swApp = Application.SldWorks
   2 Y( n, V/ O8 w' S/ W% h
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
     ]$ T2 e. @; S  h
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError
   * L- \. e( c1 Y9 f6 `
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
     s5 i! N# }% K9 R+ \" K
10. End Sub
    

復(fù)制代碼

; Y4 n/ o4 ?2 h% p( V. O

arter_2006

DaveChan 發(fā)表于 2018-11-30 11:11
! ^7 F) e4 `5 j/ E6 e* h& I" h- ~可使用RunMacro2函數(shù)執(zhí)行外部宏，如下參考

- ^( ~; ~9 n, e+ ?* ^- p" w非常感謝您，成功了
, I8 ^, g5 D. L. {