GearTrax 2001在Solidworks环境中的调用
GEARTRAX2001安装后在其目录下有一个AddingGearTraxToMenu.doc文件,里边介绍了如何在SW中调用GEARTRAX2001的方法。而其原理实际也就是在SW调用Macro,不过在该文件的原程序中,GEARTRAX2001的路径还未更新,因此还需修改一下。
具体过程如下:
1. 在SW目录下建立一个Macro目录。(作为与其它目录的区分,便于记忆所以选Macro。)
2. 可以用UltraEdit建立一个名为GearTrax.swb的宏命令文件。(SW中有两种格式的宏命令格式文件,还有一种是SWP)。
3. 编辑GearTrax.swb文件,使里边包含有如下程序,不过要注意的是GearTrax的EXE可执行文件,根据不同的版本与安装目录,其程序名称及路径要与系统里具体的程序一致。
Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
myappid = Shell("C:\Program Files\GearTrax 2001\GearTrax2001.exe", 1)
rem AppActivate myappid
End Sub