|
发表于 2018-11-30 11:11:50
|
显示全部楼层
可使用RunMacro2函数执行外部宏,如下参考- Option Explicit. B8 N; q/ Z0 G# L) h& z+ ?3 O
- Dim swApp As SldWorks.SldWorks6 B! \/ q0 u% ^2 A2 ^4 L/ t4 X1 }
- Dim runMacroError As Long
# B" D3 W3 {+ L. b - 4 Q. k% k/ }% g& e% D: A) w1 Q2 M
- Sub main()* O% A6 u2 N8 k. t! s: S1 R
- Set swApp = Application.SldWorks6 S7 d- X9 R# {
- swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
6 c) U& U& W# m/ G. { W - swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除自定义属性.swp", "配置1", "main", 0, runMacroError
' a& t7 m. ^7 L+ G2 g4 f" e - swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
6 e; F: D9 Q) U4 Z+ G' u - End Sub. _6 y7 J+ \* E/ {% M. R% O f
复制代码 " W( u- m" B+ P7 o: ]
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册会员
×
评分
-
查看全部评分
|