SOLIDWORKS 宏合并执行的问题

arter_2006

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

ryouss

arter_2006 发表于 2018-11-28 16:45
/ k7 N* j) B/ Q' T' s2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

/ T5 F* C1 I* M4 ~2012版本 "引用項目" 作參考,看是否有打勾!

arter_2006

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

4 \/ {, y  E; d2 V% ]打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
, o) {, j3 Y; [' T) v

ryouss

arter_2006 发表于 2018-11-28 18:54
; ?( o# h* Q& v# ]打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

因是2018版沒2012是正常的.

  ]0 E* I4 `! T! P5 g另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
/ Q* c- q- g5 j( [% V$ {
2 v- S0 ^" e( f0 j7 l& C" f7 D4 P
& O7 E9 f: `0 x6 R' N# K

arter_2006

- e- \3 s* Y! m0 X/ R( k) i
" k  z/ _6 V8 Z: E6 a  K* x# `2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
1 ]$ }3 T0 N9 r# i' F9 q. r下面是截屏。

arter_2006

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

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
这一句没有改，
1 F, R! s: S( b: U6 _9 w5 D( s0 f我进行了逐句检查，没有发现问题。
- J$ D, h6 z' n* ~9 m# o后来我把宏的名字改为英文名，但上面的语句改为了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
7 {% H- Q: |- }" h0 v0 @，执行逐句检查，没有再发现问题。
# G: u+ ~$ I$ k& H, k; M0 p- G+ D# h5 l上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。
: t* {9 Q' i, ]5 {
补充一点，我刚刚发现，这几个宏，无论是在sw2014还是2018里，都能够执行”partitionTM.swp“宏里的内容，但另外两个宏里的内容都不能起到任何作用，即不能删除自定义属性、及所有配置属性里的内容。

arter_2006

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

DaveChan

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

1. Option Explicit
   
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   
4. 
   
5. Sub main()
   , O4 w5 @; S; V+ G" @, r6 m# t
6.    Set swApp = Application.SldWorks
   ; r4 s; f2 b! A1 p2 X% u+ k* G
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
   6 X9 {& Y/ i6 S* P8 h
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   ! a; x& n, D8 U
10. End Sub
    ) r5 }6 |  y5 s" N

复制代码

8 O+ n  [6 K: O4 R

arter_2006

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

非常感谢您，成功了
& j; Y; h4 s; P% @4 }, \& W" @5 T