SOLIDWORKS 宏合并执行的问题

arter_2006

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

ryouss

arter_2006 发表于 2018-11-28 16:45
: X4 \% ]4 H5 c1 w) j2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

: U; R8 B- o6 T# n& e2012版本 "引用項目" 作參考,看是否有打勾!

- J: `9 i. B4 `7 |3 a! l6 w

arter_2006

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

打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

ryouss

arter_2006 发表于 2018-11-28 18:54
! m( V  I# k# k, R1 Z7 x1 X打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

/ z2 g* |7 i( z  d: m* ]3 }% p因是2018版沒2012是正常的.
7 I% \( u2 w. C9 L
3 S7 I- W3 S3 Y; Q另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")

4 O& X; h+ Y- F

$ o) F5 r5 g$ m3 c

arter_2006

' d& g5 }; \1 O
2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
下面是截屏。
: O- k2 m8 p& p/ U3 A7 P; D

arter_2006

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

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
  ^1 Z4 F( U# v2 g0 G1 D; i"CurCFGname = Part.GetConfigurationNames"
这一句没有改，
- u7 J& K3 K" g! V* ^6 `8 n" P我进行了逐句检查，没有发现问题。
后来我把宏的名字改为英文名，但上面的语句改为了
/ P3 Q' J0 E( _# A3 R, JCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
，执行逐句检查，没有再发现问题。
上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。

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

arter_2006

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

DaveChan

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

1. Option Explicit
   9 ]* G1 m  q( d- x* o
2. Dim swApp As SldWorks.SldWorks
   + k6 T; w9 B3 J
3. Dim runMacroError As Long
   
4. 
   
5. Sub main()
   ( F- o5 m6 E7 Q  f; R7 h
6.    Set swApp = Application.SldWorks
   8 i5 N% m; s4 C' u0 h1 o
7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
     e% o2 w9 @- L7 a/ A
8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除自定义属性.swp", "配置1", "main", 0, runMacroError
   ( R/ I* b6 e: F0 H" e
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    

复制代码

, v7 o* k; s3 d% p

arter_2006

DaveChan 发表于 2018-11-30 11:11
可使用RunMacro2函数执行外部宏，如下参考

非常感谢您，成功了
2 ^) Q* _# {; ]  D* u2 M: \) ~