|
可使用RunMacro2函数执行外部宏,如下参考
- Option Explicit
- Dim swApp As SldWorks.SldWorks
- Dim runMacroError As Long
- Sub main()
- Set swApp = Application.SldWorks
- swApp.RunMacro2 "C:UsersAdministratorDesktopMacros删除所有配置属性.swp", "配置1", "main", 0, runMacroError
- swApp.RunMacro2 "C:UsersAdministratorDesktopMacros删除自定义属性.swp", "配置1", "main", 0, runMacroError
- swApp.RunMacro2 "C:UsersAdministratorDesktopMacrospartitionTM.swp", "partitionTM1", "main", 0, runMacroError
- End Sub
复制代码
|
|