|
发表于 2018-11-30 11:11:50
|
显示全部楼层
可使用RunMacro2函数执行外部宏,如下参考- Option Explicit
% X& d' E: o0 i/ L6 G: g1 a - Dim swApp As SldWorks.SldWorks n* g% Y& J, y' C3 r8 z6 u4 d& p+ E; O
- Dim runMacroError As Long
) K. y, @2 X& r* w# @) R
# ?& T: ?3 s7 N _, s- Sub main()
- @) E8 Q9 ~7 g y( [0 o$ z$ ~7 u - Set swApp = Application.SldWorks
. E7 p- @5 h2 p5 ]% @" n) L - swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
$ T5 n) S8 z* \ - swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除自定义属性.swp", "配置1", "main", 0, runMacroError4 F0 t7 \" R7 ~9 }
- swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError1 i1 g. g* \9 v9 D; z
- End Sub
7 |: u! z( [$ p
复制代码 & B8 K9 v O( }, o. k6 x& k
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册会员
×
评分
-
查看全部评分
|