三维建模VB程序文件.docVIP

. . . . . Public I As Single Public i0 As Single Public i1 As Single Public i2 As Single Public i3 As Single Public h As Single Public b As Single Public r As Single Public r0 As Single Pub1ic rr As Single Public w As Single Public d As Single Public d0 As Single Public dl As Single Public l As Single Public al As Single Public e As Single Public intStru As Integer ’选择哪种凸轮机构形式 Public intCreate As Integer ’选择哪种轮廓生成模式 Public intUPFunc As Integer ’选择哪种升程 Public intDownFunc As Integer ’选择哪种回程 Public Const Pi As Single = 3.979 Public strStruFunc() As String ’机构形式公式 Public objEXP As New ClsFunExp ’公式对象 Public sngS(359) As Single ’距离 Public sngV(359) As Single ’速度 Public sngA(359) As Single ’加速度 Public sngPreDat() As Single ’批量计算得到的结果 Public sngXY() As Single ’坐标 Public sngPoint() As Single ’离散点 Public Sub Init() ’初始化,数组及公式 Erase sngS Erase sngV Erase sngA ReDim sngXY(359，l) ’默认为360个点 ReDim strStruFunc(3，l) ’机构形式公式 ’偏置尖顶直动从动件 strstruFunc(0，0)=”e*Cos(i*pi/180)+(Sqr(r*r-e*e)+s)*Sin(i*pi/180)” strstruFunc(0，1)=”-e*Sin(i*pi/180)+(Sqr(r*r-e*e)+s)*Cos(i*pi/180)” ’偏置滚子直动从动件 ’对心平底直动从动件 ’摆动滚子从动件对心平底直动从动件 ’摆动滚子从动件 EndSub ’升程等速运动规律 Public Functtion Nomal_UP_EQ(ByVal w As Single,ByVal h As Single, ByVal i0 As Single ) As Boolean Dim i As Integer Dim i As Integer t=Int(i0) On Error Resume Next For i= 0 To t sngS(i)=i*h/10 sngV(i)=w*h/10 sngA(i)=0 If Err Then Err.Clear sngS(i)=0 sngV(i)=0 End If Next If Err Then Err.Clear Nomal_UP_EQ =False Else Normal_UP_EQ=True End If End Function ’升程等加速等减速运动规律 ’升程余弦加速运动规律 ’升程正弦加速运动规律 ’远休程 Public Function Far_NoMove (ByVal h As Single,ByVal i0 As Single, ByVal i1 As