SOLIDWORKS 宏合并执行的问题

arter_2006

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

ryouss

arter_2006 发表于 2018-11-28 16:45
5 V- C% ~1 T- s, B2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

# E$ ]- S6 ^# ~9 t6 z& K' O2012版本 "引用項目" 作參考,看是否有打勾!
. _% e1 K$ w& X
% _" z6 \9 _/ n2 P

arter_2006

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

打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
& r, M6 i1 Q  X7 G

ryouss

arter_2006 发表于 2018-11-28 18:54
8 Z0 b. d& [, i9 ^$ @  _+ i打勾了，只是没有solidworks 2012的选项，我从上到下都看过了

因是2018版沒2012是正常的.
+ j" c  C% O. K9 o
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")

, I; g9 {9 N  [" @; ?) l9 ^' c) r

arter_2006

$ E6 I2 F2 N# L" h0 ?2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
( i  Y0 M# Q: _! T8 ?下面是截屏。
, {, \" f' l' n9 n* @

arter_2006

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

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
这一句没有改，
我进行了逐句检查，没有发现问题。
& I/ Y& n1 e9 ~' I# c+ `  t后来我把宏的名字改为英文名，但上面的语句改为了
, @. j4 h, H0 @) XCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
' z1 }% s: k; T+ l, D- W$ D+ S，执行逐句检查，没有再发现问题。
上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。
7 a% g/ d* S4 ^( F
补充一点，我刚刚发现，这几个宏，无论是在sw2014还是2018里，都能够执行”partitionTM.swp“宏里的内容，但另外两个宏里的内容都不能起到任何作用，即不能删除自定义属性、及所有配置属性里的内容。
! X7 [% i' [3 x2 \- d2 [

arter_2006

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

DaveChan

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

1. Option Explicit
   3 ^* n6 y1 D7 t# {+ o# D$ t
2. Dim swApp As SldWorks.SldWorks
   
3. Dim runMacroError As Long
   
4. 
   
5. Sub main()
   ) L1 x+ O/ S7 `5 z+ N- `3 O6 Q' P6 p
6.    Set swApp = Application.SldWorks
   : M1 U$ a1 \/ i. x' ?
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
   ) |' K! K0 p1 J
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    % K, D! G2 M$ ?! |( n- k2 R

复制代码

arter_2006

DaveChan 发表于 2018-11-30 11:11
8 w2 V" `  S1 s' Y0 x可使用RunMacro2函数执行外部宏，如下参考

1 K1 z% J+ B8 p) u7 G& v  d9 Z非常感谢您，成功了