SOLIDWORKS 宏合并执行的问题

arter_2006

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

ryouss

arter_2006 发表于 2018-11-28 16:45
: c# Z! C9 Z; m- t2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

4 P' i# {$ R$ P2012版本 "引用項目" 作參考,看是否有打勾!

7 @. |' @5 ^3 b, ^
% w( s7 x# P& L' Y/ {3 U% J: B! P

arter_2006

ryouss 发表于 2018-11-28 17:11
4 z$ b+ V' P  L2 y: t2012版本 "引用項目" 作參考,看是否有打勾!

打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
) k7 P/ V# Y# S# r

ryouss

arter_2006 发表于 2018-11-28 18:54
打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

4 Q- w; u  i+ J8 A因是2018版沒2012是正常的.
7 h" F) p: D* J/ D2 h* [
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
8 ]% k; @2 @2 T6 T


/ y5 X5 q& P0 T- ~5 C7 Z: j+ }+ B" Z

arter_2006

+ W: `0 p8 l& {  J
' E: {5 D# I1 r6 C2 ?2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
. i6 k" u8 ^" [7 _" L下面是截屏。

arter_2006

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

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
这一句没有改，
( B6 M) z) P( R  p我进行了逐句检查，没有发现问题。
后来我把宏的名字改为英文名，但上面的语句改为了
- [# o: h! S2 o1 B  x  k' dCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
7 U* y7 b. I0 x& S1 c，执行逐句检查，没有再发现问题。
上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。
5 t& |2 ^* r  F, X  ~7 [
补充一点，我刚刚发现，这几个宏，无论是在sw2014还是2018里，都能够执行”partitionTM.swp“宏里的内容，但另外两个宏里的内容都不能起到任何作用，即不能删除自定义属性、及所有配置属性里的内容。
6 a4 t# }* A# h  x( x

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   
4. 
   
5. Sub main()
   
6.    Set swApp = Application.SldWorks
   
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
    , E% g; p  G6 q8 d. J6 }+ n

复制代码

arter_2006

DaveChan 发表于 2018-11-30 11:11
0 b5 ^4 U) Y# a: T2 f) E8 g可使用RunMacro2函数执行外部宏，如下参考

& _( s0 S0 X2 t. Y- |2 p9 }非常感谢您，成功了