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

arter_2006

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

ryouss

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

2012版本 "引用項目" 作參考,看是否有打勾!


- n1 Q6 R* N3 m

arter_2006

ryouss 發(fā)表于 2018-11-28 17:11
* r2 h' F: ~, P: v/ v2012版本 "引用項目" 作參考,看是否有打勾!

) L5 M  y3 _3 o$ n7 N  U1 q打勾了,，只是沒有solidworks 2012的選項,，我從上到下都看過了

ryouss

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

因是2018版沒2012是正常的.

  O# w& A0 E2 |7 F另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
; m! y+ r$ q) e6 C7 L

% I3 D* t$ K$ \+ R6 E! [
2 u- {$ [2 o8 s5 S% Z  \

arter_2006

7 G7 R# `* h( e/ T
' f1 W! T0 J) _" a3 {" f3 e2018沒有偵錯按鈕，但有“逐語句”按鈕,，點了后沒發(fā)現(xiàn)任何問題,。
8 T! \9 `. L. C; \1 F) T下面是截屏。
* c. i* K- c9 O9 Q1 c, C& ]

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏,，及宏的名字為中文名,，如”刪除當(dāng)前配置屬性.swp“，但
/ @1 T3 ^& `" S" Q"CurCFGname = Part.GetConfigurationNames"
( b/ M$ m5 G* I1 Z& R這一句沒有改,，
我進行了逐句檢查,，沒有發(fā)現(xiàn)問題。
后來我把宏的名字改為英文名,，但上面的語句改為了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補加零件文件的路徑及名稱
/ B' O3 K* L' N: U3 s,，執(zhí)行逐句檢查，沒有再發(fā)現(xiàn)問題,。
上面的兩個版本在solidworks 2018,，及在sw2014里發(fā)現(xiàn)問題的宏，都沒有發(fā)現(xiàn)任何問題,。
2 I8 Y6 C4 N1 Q
$ H- n4 B* y2 o0 P5 {補充一點,，我剛剛發(fā)現(xiàn)，這幾個宏，無論是在sw2014還是2018里,，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容,，但另外兩個宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性,、及所有配置屬性里的內(nèi)容,。

arter_2006

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

DaveChan

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

1. Option Explicit
   5 W  F3 q$ r( @( N6 Q" d6 n
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   6 O/ Y& V0 u: o. B& {0 \- x9 g
4. 
   
5. Sub main()
   : I( D" u! @+ S
6.    Set swApp = Application.SldWorks
   
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   $ z4 e# A0 f0 _% [8 Z9 _
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
    % b7 C6 K) ^1 j; K+ T

復(fù)制代碼

2 N( t) x6 i7 L: U" y

arter_2006

DaveChan 發(fā)表于 2018-11-30 11:11
3 V/ P$ o9 W' L( K. H可使用RunMacro2函數(shù)執(zhí)行外部宏，如下參考

1 z( l- U* b# E% O% k9 Z非常感謝您,，成功了
6 M' q" P7 i' O1 C4 W6 v: n" X