图4 齿轮齿廓形状
2.2.2 齿轮参数的定义与计算
程序中首先定义非圆齿轮的各项参数,并据齿轮计算公式进行计算,得出绘制齿轮所需参数。
Dim m As single//定义齿轮模数
Dim z As Integer//定义齿轮齿数
Dim e As single //定义椭圆齿轮偏心率
Dim n As Integer//定义椭圆齿轮阶数
......
xg=r*cos(seita)//计算非圆齿轮齿廓点
yg=r*sin(seita)
xr=xg+s*cos(alfaN)*cos(q)
yr=yg+s*cos(alfaN)*sin(q)
beita=bei(xr,yr)
ra=A*(1-e*e)/(1-e*cos(N*beita))+M分页l=sqrt(xr*xr+yr*yr)
......
2.2.3 VB程序与SolidWorks接口的实现
调用VB与SolidWorks的开发接口,建立VB与SolidWorks的联系,部分代码如下:
Dim swApp As Object
Dim NewPart As Object
Set swApp=CreatObject(SldWorks.Application)
swApp=True
......
完成应用程序后,将应用程序嵌入SolidWorks中。使用SolidWorks中的宏操作命令直接调用编译好的可执行程序,其过程如下:选择菜单“工具/宏操作/录制”-停止录制,以文件名称feiyuanchilun.swp.保存宏文件-选择菜单“工具/宏操作/编辑”,把宏文件论证的内容删掉,并输入下面的程序:
Sub main()
MyAppID=shell(“D:\feiyuanchilun.exe",1)
AppActivate MyApplD
End Sub
保存并返回到SolidWorks环境。在SolidWorks中指定宏命令的文件位置,并定制工具栏,将所执行的宏操作按钮添加到指定位置,以后在SolidWorks中单击相应的图标就可以直接执行应用程序了。
该文来源于