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

arter_2006

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

ryouss

arter_2006 發(fā)表于 2018-11-28 16:45
9 G4 E' d) E( A# u/ j2014試過了，和2018一樣。但3個宏各自單獨執(zhí)行是沒問題的。不知道問題在哪里

. `* a$ `; c7 H7 w4 l( J2012版本 "引用項目" 作參考,看是否有打勾!
: M' h' M" l- U; v% n+ [
7 K' X5 b2 [# h4 b! `* m7 S# m

arter_2006

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

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

ryouss

arter_2006 發(fā)表于 2018-11-28 18:54
& M8 D/ c. l7 }( N. z打勾了，只是沒有solidworks 2012的選項，我從上到下都看過了

因是2018版沒2012是正常的.
" ~8 l- G/ Q" O7 ~- i$ e3 B
) @# x: A( R( q另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
4 e$ r+ Z5 C* Q, D! W


0 ^7 e3 S1 D2 H! V

arter_2006

( E! ^" z  O! F) Z2018沒有偵錯按鈕，但有“逐語句”按鈕，點了后沒發(fā)現(xiàn)任何問題。
下面是截屏。
! }) i# q9 A0 }4 h2 J1 ~% k

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏，及宏的名字為中文名，如”刪除當前配置屬性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
* B# g, ]2 G( W5 y9 q" b這一句沒有改，
3 m0 N2 k3 n( }& t我進行了逐句檢查，沒有發(fā)現(xiàn)問題。
: x2 `# M9 m( }& f2 o, C# b后來我把宏的名字改為英文名，但上面的語句改為了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補加零件文件的路徑及名稱
& m$ y) }* t; ^2 Q: c# Y6 _# O6 N9 _，執(zhí)行逐句檢查，沒有再發(fā)現(xiàn)問題。
6 P6 S9 W, L; g' A: [5 N上面的兩個版本在solidworks 2018，及在sw2014里發(fā)現(xiàn)問題的宏，都沒有發(fā)現(xiàn)任何問題。

" n4 T/ ]- M/ E' P6 ]  [5 D+ c補充一點，我剛剛發(fā)現(xiàn)，這幾個宏，無論是在sw2014還是2018里，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容，但另外兩個宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性、及所有配置屬性里的內(nèi)容。
- |, R4 d8 c5 I$ C3 I7 t) U

arter_2006

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

DaveChan

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

1. Option Explicit
   ( E( D, z7 S# Y" n" P
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   : Z/ H' h# C6 [
4. 
   : O6 x; c' y. |% Z
5. Sub main()
   
6.    Set swApp = Application.SldWorks
   * x$ O* }7 ]" C% u! t3 }' i( n
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
    

復制代碼

! {. Z! h' l. P5 e& j8 X" a

arter_2006

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

" t+ a' ~  }; E/ J4 r非常感謝您，成功了