基于VB的轴系机构设计系统开发2Word格式文档下载.docx
《基于VB的轴系机构设计系统开发2Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《基于VB的轴系机构设计系统开发2Word格式文档下载.docx（21页珍藏版）》请在冰豆网上搜索。
\solidworks二次开发\数据\数据库97.mdb"
'
与数据库连接
sql="
select*from深沟球轴承where型号="
+Combo1.Text
rst.CursorLocation=adUseClient
rst.Opensql,con,adOpenKeyset,adLockOptimistic
Text1.Text=rst.Fields（"
d1"
）'
轴承内径
Text2.Text=rst.Fields（"
d2"
轴外径
Text3.Text=rst.Fields（"
B"
轴承宽度
Text4.Text=rst.Fields（"
r"
圆角
rst.Close
con.Close
EndSub
PrivateSubCommand1_Click（）
DimPartAsObject
DimstrfilenameAsString
DimlongstatusAsLong
DimD1AsSingle,D2AsSingle,D3AsSingle,D4AsSingle,D5AsSingle
DimD6AsSingle,D7AsSingle,DimD8AsSingle,D9AsSingle
DimD10AsSingle,D11AsSingle,rAsSingle,mAsInteger
IfDir（strfilename）="
"
Then
MsgBox（"
文件不存在，请检查路径：
&
vbCrLf&
strfilename）
ExitSub
EndIf
strfilename="
/solidworks二次开发/模型/轴承1.sldprt"
SetswApp=CreateObject（"
sldworks.application"
swApp.Visible=ture
SetPart=swApp.OpenDoc4（strfilename,1,0,"
longstatus）
SetPart=swApp.ActivateDoc（"
轴承1"
D1=Val（Text1.Text）/2'
计算草图中个尺寸与四个参数的关系
D4=Val（Text2.Text）/2
D5=Val（Text3.Text）:
r=Val（Text4.Text）
ProgressBar1.Value=4
D8=（D1+D4）/2:
D2=（D1+（D4-D1）/3）:
D3=（D4-（D4-D1）/3）
D6=（D4-D1）/2:
D7=D5/2：
D9=D7
D10=D8:
D11=D6+0.1:
m=Int（2.2/（（D11/2）/D8））
Debug.PrintD1,D4,D5,r,D6,D2,D3,D7,D8,D9,D10,D11,m
@轴承1.sldprt"
运用尺寸驱动绘制三维模型
Part.Parameter（"
D1@草图1"
strfilename）.SystemValue=D1/1000
D2@草图1"
strfilename）.SystemValue=D2/1000
D3@草图1"
strfilename）.SystemValue=D3/1000
D4@草图1"
strfilename）.SystemValue=D4/1000
D5@草图1"
strfilename）.SystemValue=D5/1000
ProgressBar1.Value=30
D6@草图1"
strfilename）.SystemValue=D6/1000
D7@草图1"
strfilename）.SystemValue=D7/1000
D8@草图1"
strfilename）.SystemValue=D8/1000
D9@草图2"
strfilename）.SystemValue=D9/1000
D10@草图2"
strfilename）.SystemValue=D10/1000
D11@草图2"
strfilename）.SystemValue=D11/1000
r@圆角1"
strfilename）.SystemValue=r/1000
m@阵列（圆周）1"
strfilename）.SystemValue=m
Part.EditRebuild
SetPart=Nothing
SetswApp=Nothing
ProgressBar1.Value=100
StatusBar1.Panels
（1）.Text="
建模成功"
PrivateSubCommand2_Click（）
form2.Hide'
关闭当前窗体
Form1.Show'
返回窗体1
PrivateSubForm_Load（）
Combo1.Text="
选择深沟球轴承型号：
控件初始化
Text1.Text="
:
Text2.Text="
Text3.Text="
Text4.Text="
Picture1=LoadPicture（"
\solidworks二次开发\图片\深沟球轴承.jpg"
DimconAsNewADODB.Connection:
rstAsNewADODB.Recordset
DimsqlAsString:
connAsString
数据库连接
select型号from深沟球轴承"
DoWhileNotrst.EOF
Combo1.AddItemrst.Fields（"
型号"
）&
"
rst.MoveNext
Loop
2.效果图
图4-2所示为轴承型号6007的效果图：
图42轴承6007效果图
4.2凸缘联轴器建模过程分析
4.2.1设计过程
凸缘联轴器的三维模型建立基本步骤是：
绘出如图4-3所示的草图并旋转，绘制一个螺栓孔并切除拉伸，阵列螺栓孔，绘制键槽的草图并拉伸切除。
凸缘联轴器的基本三维模型是一样的，所以建立了图4-3的基本草图，然后在基本三维模型的基础上生成不同型号联轴器的不同尺寸特征，如圆角、倒角等，就可以得到不同型号联轴器的三维模型。
图43凸缘联轴器基本草图
因为此零件为标准件，只有某些特征尺寸不是标准尺寸，其他都为标准尺寸。
其驱动尺寸如下：
D1、D2、D3、D4、键槽的宽度和螺栓的数量、直径。
其他尺寸与驱动尺寸在程序中也建立了相互的关系，从而达到尺寸驱动。
4.2.2部分程序及效果图
1.与数据库的链接程序
select*from联轴器where型号="
+str1
许用转矩"
）:
Text2.Text=rst.Fields（"
许用转速（铁）"
轴孔直径（（铁）"
Text4.Text=rst.Fields（"
轴孔直径（钢）"
Text5.Text=rst.Fields（"
轴孔长度（Y型）"
Text7.Text=rst.Fields（"
D"
Text6.Text=rst.Fields（"
轴孔长度（J、J1型）"
）；
Text10.Text=rst.Fields（"
螺栓直径"
Text8.Text=rst.Fields（"
D0"
Text9.Text=rst.Fields（"
螺栓数量"
下图为型号为YL607的效果图：
图44型号YL607三维图
4.3轴承端盖（透盖）建模过程分析
4.3.1设计过程
轴承端盖（透盖）为标准件，其尺寸为标准尺寸，三维模型建立的基本过程：
绘制如图4-5所示的草图并旋转，绘制螺栓孔并拉伸切除，阵列螺栓孔。
图45轴承端盖（透盖）基本草图
轴承端盖（透盖）模型生成中，驱动尺寸为D1（轴承的外径）、螺栓孔的直径D0和数量K、D6。
其他尺寸与驱动尺寸有入选关系：
D2=D1－0.25D0
D3=D1－（5～8）
D4=D1+2.5D0
D5=D1+1.75D0
D7=1.2D0
其中D6为轴的直径加1mm，此值从数据库读入。
4.3.2部分程序及效果图
1.建模程序
/solidworks二次开发/模型/轴承端盖（透盖）.sldprt"
swApp.Visible=True
轴承端盖（透盖）"
D9=Val（Text1.Text）/2:
D1=1.2*Val（Text3.Text）
D2=D9+2.5*Val（Text3.Text）:
D4=Val（Text6.Text）/2
D5=Val（Text5.Text）/2:
D8=D9-0.25*Val（Text3.Text）
D6=D8+1:
D7=D9–5:
D10=Val（Text2.Text）
D16=Val（Text7.Text）:
D21=Val（Text3.Text）+1
D22=Val（Text1.Text）+2.5*Val（Text3.Text）
D23=D1:
K=Val（Text4.Text）
If0<
D9AndD9<
=16Then
D17=5
Else
D17=8
=21Then
D30=6
D30=12
Debug.PrintD1,D2,D4,D5,D6,D7,D8,D9,D10,D16,D17,D21,D22,D23,D30,K
ProgressBar1.Value=10
@轴承端盖（透盖）.sldprt"
PartParameter（"
Part.Parameter（"
D9@草图1"
D10@草图1"
D16@草图1"
strfilename）.SystemValue=D16/1000
D17@圆角2"
strfilename）.SystemValue=D17/1000
D21@草图2"
strfilename）.SystemValue=D21/1000
ProgressBar1.Value=50
D22@草图2"
strfilename）.SystemValue=D22/1000
D23@切除-拉伸1"
strfilename）.SystemValue=D23/1000
D30@圆角1"
strfilename）.SystemValue=D30/1000
K@阵列（圆周）1"
strfilename）.SystemValue=K
Part.EditRebuild
图46轴承端盖（透盖）效果图
4.4直齿圆柱齿轮建模过程分析
4.4.1设计分析
直齿圆柱齿轮建模比较复杂，一般的的方法是绘制一齿轮的草图并拉伸即可，但是这样的拉伸很有可能使齿的形状发生改变，及不规则模型。
本文用以下方法建模：
绘制如图4-7所示的草图并拉伸，然后在齿面绘制如图4-8所示的草图，并做拉伸，拉伸的长度和前面拉伸的长度一样。
这样就避免了在拉伸过程中草图之间的互相干扰带来的齿畸形。
图47基本草图
图48直齿草图
在上述两草图中，ΦD1为齿轮的齿根圆直径，RD1为齿根圆半径，RD2为基圆半径，RD3为分度圆半径，RD4为齿顶圆半径，D5为单齿在分度圆的夹角的1/2倍。
设齿数为Z，模数为m，压力角为a，齿顶系数为C，齿根系数为C*。
直齿圆柱齿轮的驱动尺寸为：
齿数，模数，齿宽系数，轴孔直径。
其他尺寸与四个驱动尺寸有以下关系：
ΦD1=2×
RD1=（Z-2×
C-C*）×
m
RD2=（Z×
m×
Cosa）/2
RD3=Z×
m/2
RD4=（Z+2×
C）×
D5=90°
/Z
4.4.2部分程序及效果图
1.数据判断程序
D1=Val（Combo2.Text）/2
D2=Val（Text5.Text）*0.5+0.3
D3=Val（Text4.Text）:
D4=（Val（Text3.Text）-2.5）*Val（Combo1.Text）
D5=Val（Text2.Text）*Val（Text3.Text）*Val（Combo1.Text）
D6=90/Val（Text3.Text）:
D7=D4/2
D9=Val（Text3.Text）*Val（Combo1.Text）:
D8=D9*0.9397
D10=（（Val（Text3.Text）+2）*Val（Combo1.Text））/2
D11=D5:
K=Val（Text3.Text）
If2*D7>
D8Then
齿根圆直径大于基圆直径，数据不合理。
Command1.Enabled=False
IfVal（Combo2.Text）>
D4Then
齿根圆直径小于轴孔直径，数据不合理。
MsgBox（"
数据合理。
Command1.Enabled=True
图49直齿圆柱齿轮效果图
4.5轴承端盖（闷盖）建模过程分析
4.5.1设计分析
轴承端盖（闷盖）的设计过程相对比较简单，其三维模型建立步骤：
绘制如图4-10所示的基本草图并旋转，绘制螺栓孔草图并拉伸切除，阵列螺栓孔。
图410轴承端盖（闷盖）基本草图
轴承端盖（闷盖）的三维模型建立中的驱动尺寸为：
D1（轴承的外径）、螺栓孔的直径D0和数量，其他尺寸与驱动尺寸有以下关系：
D2=D1－0.25D0
D6=1.2D0
通过以上尺寸关系，在程序中建立相应关系，从而达到尺寸驱动的效果。
4.5.2部分程序及效果图
DimswAppAsObject,PartAsObject,boolstatusAsBoolean
DimstrfilenameAsString,longstatusAsLong,longwarningsAsLong
DimD1AsSingle,D2AsSingle,D3AsSingle,D4AsSingle,D5AsSingle
DimD6AsSingle,D7AsSingle,D8AsSingle,D9AsSingle,D10AsSingle
DimD11AsSingle,D12AsSingle,D13AsSingle,D14AsSingle
DimD15AsSingle,KAsInteger
/solidworks二次开发/模型/轴承端盖（闷盖）.sldprt"
轴承端盖（闷盖）"
D4=Val（Text1.Text）/2:
D6=Val（Text2.Text）:
D14=Val（Text3.Text）+1
K=Val（Text4.Text）:
D1=D4+2.5*D14:
D2=D4-1
D3=1.2*Val（Text3.Text）:
D5=D3:
D7=2:
D8=D3:
D9=D4-5
D13=Val（Text1.Text）+2.5*Val（Text3.Text）:
D15=D5
D4AndD4<
D10=6
D10=10
Deb
升级会员 