|
可使用RunMacro2函數(shù)執(zhí)行外部宏,如下參考- Option Explicit
& `' t$ ^; x2 Q0 V9 A# I - Dim swApp As SldWorks.SldWorks$ b% R5 ?% _. p D
- Dim runMacroError As Long9 z9 o, T+ h6 }
6 B. e+ O$ K8 X- Sub main()
, a' [, ]3 D. ~( l7 w: C, J - Set swApp = Application.SldWorks
4 r+ p5 o6 ?1 _# u. H# W& \6 ]. M - swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除所有配置屬性.swp", "配置1", "main", 0, runMacroError
$ f* t F, o, l# E/ u; } - swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\刪除自定義屬性.swp", "配置1", "main", 0, runMacroError3 g6 f0 s3 ^$ v
- swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
: n1 C# w6 k& J X - End Sub
t3 Y6 a8 k# h' x: Y% J
復(fù)制代碼 6 k+ T3 a# J5 d: m) `" @
|
評(píng)分
-
查看全部評(píng)分
|