SOLIDWORKS 宏合并执行的问题

arter_2006

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

ryouss

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

( F) T7 Q8 e6 o) Y7 z2012版本 "引用項目" 作參考,看是否有打勾!

2 s4 k( q6 p% c

arter_2006

ryouss 发表于 2018-11-28 17:11
1 r) G' h' b) }/ y0 \: h  ]2012版本 "引用項目" 作參考,看是否有打勾!

打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
9 n" w9 g, B, h( |# g6 h( K' b

ryouss

arter_2006 发表于 2018-11-28 18:54
8 H* x$ `1 u6 b; f3 d% P" m打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

5 }- B/ `, @. B: x因是2018版沒2012是正常的.

另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
/ W5 Y2 f2 K4 I' [6 z
* P9 Q- x1 A2 J  y% V4 B. f

! S" \- f3 N$ N) g

arter_2006

- B( \2 ^, ?2 l8 |% g: Q. p1 E6 X
2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
下面是截屏。
$ E% P. r$ s3 }3 U# g& @

arter_2006

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

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
" [0 Y3 e+ j5 `: _' b: M"CurCFGname = Part.GetConfigurationNames"
, T$ ~4 q" z! i% ^) W% V这一句没有改，
0 W% p3 f0 @6 Y3 o3 m" F我进行了逐句检查，没有发现问题。
后来我把宏的名字改为英文名，但上面的语句改为了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
，执行逐句检查，没有再发现问题。
9 K* L( E% z% }1 n4 E9 I, X上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。

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

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   
4. 
   " Z; h9 `5 r7 W1 V9 e
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
   7 Y! O" Y' t* g2 m4 c! N2 T
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   9 X! {) c5 w7 s) ]  L
10. End Sub
    

复制代码

arter_2006

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

非常感谢您，成功了