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

arter_2006

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

ryouss

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

, T1 t* n- w, n9 U  j% E: |2012版本 "引用項目" 作參考,看是否有打勾!

# |; ?$ n5 Y/ G* {
8 Y4 f- |; h8 A0 ]2 `

arter_2006

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

7 ~  t& v- A4 b$ T$ m3 X, W; J" z" R打勾了,，只是沒有solidworks 2012的選項,，我從上到下都看過了

ryouss

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

: A: I- w- h5 Q5 H7 v& t5 x/ b3 O因是2018版沒2012是正常的.

另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
! W" f$ S$ Z2 B$ `; ]2 d0 k


- W! m* J' D2 p" M) l( S' N

arter_2006

# M% V/ S) O5 ~! K$ P
& [! Q& C# ]7 B4 j0 ]1 B7 u2018沒有偵錯按鈕,，但有“逐語句”按鈕，點了后沒發(fā)現(xiàn)任何問題,。
( d2 e' @6 J& r8 r+ f: j6 v% [下面是截屏,。
( N+ ]8 R0 L! ~

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏,，一個是昨天的宏，及宏的名字為中文名,，如”刪除當(dāng)前配置屬性.swp“,，但
"CurCFGname = Part.GetConfigurationNames"
, n' y, u! y, a$ F這一句沒有改，
我進(jìn)行了逐句檢查,，沒有發(fā)現(xiàn)問題,。
后來我把宏的名字改為英文名，但上面的語句改為了
6 b- o4 o: V% \* p/ uCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
,，執(zhí)行逐句檢查,，沒有再發(fā)現(xiàn)問題。
! g, M7 ?" ^6 J! @6 `( _- L( A8 H* v上面的兩個版本在solidworks 2018,，及在sw2014里發(fā)現(xiàn)問題的宏,，都沒有發(fā)現(xiàn)任何問題。
6 [# M8 [; I9 Q' ?5 G
補(bǔ)充一點,，我剛剛發(fā)現(xiàn),，這幾個宏，無論是在sw2014還是2018里,，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容,，但另外兩個宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性,、及所有配置屬性里的內(nèi)容,。
5 D+ X6 @- n. \# Y

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   - R, R+ j' o. l' J) C8 y4 b
3. Dim runMacroError As Long
   + Z  A/ m$ |5 q
4. 
   
5. Sub main()
   
6.    Set swApp = Application.SldWorks
   
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   ; R; ^( J' V& }0 a7 _2 V
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError
   ( f, U) H- }& {9 z0 J; S4 S
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   / V+ d' S* Y. u% x
10. End Sub
    5 ~8 x& y% X  e5 M! X# ]4 ]

復(fù)制代碼

arter_2006

DaveChan 發(fā)表于 2018-11-30 11:11
* f" [" B4 t% v, o) w可使用RunMacro2函數(shù)執(zhí)行外部宏,，如下參考

非常感謝您，成功了
& `) q0 h7 e+ V' `* o