SOLIDWORKS 宏合并执行的问题

arter_2006

是这样的，想做一个宏，通过这个宏，会先后调用其它的宏，请问如何编写？非常感谢。 ; F4 y5 o% H* Q宏的名称分别是： % c9 T/ k3 R3 U5 s& }, e: Z# O删除所有配置属性.swp 8 g0 {( ?% h. R* _$ ]+ ^删除自定义属性.swp partitionTM.swp 0 f$ D, F1 \9 t3 F0 B) e4 R

1 d* w/ G. S  S

de0830

谢谢，太好了

hdgd501

好好学习下，谢谢楼主

arter_2006

DaveChan 发表于 2018-11-30 11:11
1 d1 r, p9 }  _" T. q9 ^6 X: v% V可使用RunMacro2函数执行外部宏，如下参考

  B4 C9 D5 C2 k9 S$ W. z8 q9 Y! O非常感谢您，成功了
1 s8 h0 @0 @: y/ ]! z

DaveChan

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

1. Option Explicit
   0 g+ M5 [2 x" f) x8 J- b1 R+ F
2. Dim swApp As SldWorks.SldWorks
   - [: `" T% W& K. n2 \1 g
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
   & u2 W, c# Y3 V; v& {6 r: j5 ~
9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
   
10. End Sub
    : q: A1 @, I7 H; \2 N  s

复制代码

! {7 O5 W: |( i

arter_2006

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

arter_2006

对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
8 v& W% z2 u' |8 j" R这一句没有改，
我进行了逐句检查，没有发现问题。
+ b6 P* I3 W- G$ P后来我把宏的名字改为英文名，但上面的语句改为了
* o, F$ S8 C$ C, zCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
9 f1 N4 y6 a4 `，执行逐句检查，没有再发现问题。
上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。

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

arter_2006

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

arter_2006

( W# a  g  q3 ~2 h
2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
下面是截屏。

ryouss

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

因是2018版沒2012是正常的.
% w/ ~; s3 N1 ?/ e. T
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")



4 H+ U/ Z- ~5 y, c