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

arter_2006

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

ryouss

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

2012版本 "引用項目" 作參考,看是否有打勾!
6 W/ |- r0 E$ r' j2 H

arter_2006

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

打勾了,，只是沒有solidworks 2012的選項,，我從上到下都看過了
5 B& Q) T5 J& F0 K% W4 g9 ]

ryouss

arter_2006 發(fā)表于 2018-11-28 18:54
& ]. l3 V5 z3 J' t6 Q打勾了,，只是沒有solidworks 2012的選項，我從上到下都看過了

, ]% ?2 A+ V7 M+ g" _" R因是2018版沒2012是正常的.
9 D) J3 r7 c3 `- c1 L+ p: x: G
" a; ~5 [; P" c) A$ Y$ ^; a另試 "逐步執(zhí)行" 看程式如何執(zhí)行!(一搬在抓程式臭蟲就要用到"逐步執(zhí)行")
9 U/ p2 h& {3 h2 W
  m4 u0 p( @* y% n: E; B1 N  n, M

! z3 _9 q9 n/ e% r

arter_2006

2 \  `0 ?! W1 B1 F; I
2018沒有偵錯按鈕，但有“逐語句”按鈕,，點了后沒發(fā)現(xiàn)任何問題,。
3 T* j4 R# `& ^下面是截屏。

arter_2006

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

arter_2006

對于solidworks 2014,我試了兩個宏，一個是昨天的宏,，及宏的名字為中文名,，如”刪除當(dāng)前配置屬性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
3 Y! Y, t; a* l7 N這一句沒有改,，
我進(jìn)行了逐句檢查,，沒有發(fā)現(xiàn)問題。
; u0 n1 V7 x/ x# g5 p! K" a+ F! G后來我把宏的名字改為英文名,，但上面的語句改為了
, M8 T8 x) o  Y4 q% e# aCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
,，執(zhí)行逐句檢查，沒有再發(fā)現(xiàn)問題,。
' K2 `  O( u+ @4 }% ^上面的兩個版本在solidworks 2018,，及在sw2014里發(fā)現(xiàn)問題的宏，都沒有發(fā)現(xiàn)任何問題,。
3 i5 f& I0 n8 ?: Z1 n
, w8 s+ r! I7 b9 e3 W2 s補(bǔ)充一點,，我剛剛發(fā)現(xiàn),，這幾個宏，無論是在sw2014還是2018里,，都能夠執(zhí)行”partitionTM.swp“宏里的內(nèi)容,，但另外兩個宏里的內(nèi)容都不能起到任何作用，即不能刪除自定義屬性,、及所有配置屬性里的內(nèi)容,。

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   - h3 g' a  b( T& e
3. Dim runMacroError As Long
   9 `+ u; o" Q: U6 d
4. 
   
5. Sub main()
   . n* ~  ]+ p0 W  Q' t( p7 `0 w: U
6.    Set swApp = Application.SldWorks
   
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
   . t) c8 L/ Z( D- O( `# c" |6 D
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
      F( C: M+ i& M% h

復(fù)制代碼

  e* n! F5 g8 g8 [

arter_2006

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

# u, E+ _  Y1 h2 c- S, a5 a非常感謝您,，成功了