SOLIDWORKS 宏合并执行的问题

arter_2006

2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

ryouss

arter_2006 发表于 2018-11-28 16:45
' O& `4 K" F. Y/ l) l* q2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

2012版本 "引用項目" 作參考,看是否有打勾!
, c$ E1 {, T) n: R7 d

! g. m3 f% d2 |2 O/ E1 g. Y

arter_2006

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

打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
& T% C& x, ?7 V# {4 o  P

ryouss

arter_2006 发表于 2018-11-28 18:54
) f# c8 {6 s+ b3 y打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

因是2018版沒2012是正常的.
% ^' f) B3 P- `* M/ l( A) T
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
3 e, h2 I2 d( ^) @5 }

2 Q' Q. E+ o7 M
: b# [2 H# o' Z: @  y  |* x5 i

arter_2006

; }0 j, F: v4 H- Y
1 @2 _7 B  P, l: \& @, o2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
下面是截屏。

arter_2006

又用solidworks 2014试了下，发现问题：

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
+ r& ?3 u5 v5 Y  G这一句没有改，
" q5 Z+ Z& i: Z我进行了逐句检查，没有发现问题。
; l* O/ y' m: |  z后来我把宏的名字改为英文名，但上面的语句改为了
# Y% g3 K. w, ~1 T" u. fCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
# F5 Q7 B4 P+ ?- ^，执行逐句检查，没有再发现问题。
上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。

补充一点，我刚刚发现，这几个宏，无论是在sw2014还是2018里，都能够执行”partitionTM.swp“宏里的内容，但另外两个宏里的内容都不能起到任何作用，即不能删除自定义属性、及所有配置属性里的内容。
6 `, A. u, ]6 A' S& [. j2 f  \7 `

arter_2006

@ryouss,谢谢，让您费心了。

DaveChan

可使用RunMacro2函数执行外部宏，如下参考

1. Option Explicit
   ' \0 [& f* I; P( g( ~6 n9 H0 m% ~
2. Dim swApp As SldWorks.SldWorks
   6 X0 I  i+ Y; G- C( n* E! O
3. Dim runMacroError As Long
   $ ?4 o' Z& |7 X& v! U5 k8 _
4. 
   5 U: n0 f6 C5 o0 t7 f
5. Sub main()
   $ h2 P' e% X5 P1 \. w8 A6 S% g
6.    Set swApp = Application.SldWorks
   2 [2 `% D5 z: d1 m4 ?
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
   ' o# g+ X& q5 s# L7 ?6 t4 R
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
    - O! f+ p4 Y( X, h' s

复制代码

, I. z% @8 J9 J# Q

arter_2006

DaveChan 发表于 2018-11-30 11:11
1 y; c. Q8 X+ U+ A) G可使用RunMacro2函数执行外部宏，如下参考

( [- H- f! _, a! z非常感谢您，成功了
" {' ]/ ]- @0 N