机械cad作业及答案

《机械cad作业及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一次作业第二次作业第三次作业总分机械CAD大作业班级机械11007班学号201006498姓名郑准20目录第一次作业线图的程序化处理解题思路3程序代码-4-运行结果截图-8-小结-8-第二次作业轴承数据库的建立解题思路-10-运行结果截图-10-小结-15-第三次作业三次BEZIER曲线的绘制解题思路-16-程序代码-16-运行结果截图-19-小结-19-20第一次作业程序化线图处理一．题目线图的程序化处理：上机：将下图编程实现（大作业）二．解题思路本线图为分区域线图，对功率和转速需要进行分段讨论，采用V

2、isualBasci软件可实现匹配类型的功能，使用用if语句实现各个区域分段，而各个区域的分界线为直线和斜线，它们都可以通过解线性方程而获得，以各个分界线列方程用And语句即可实现题目所要求的功能。可将功率的范围分为0.8~1，1~2.6,2.6~4,4~6，6~12,12~23，23~37……220~800等多个区域，然后分别列出各个区域相关的方程组，即可用Visual20Basic编程实现功能。三．程序代码PrivateSubForm_Load()Picture=LoadPicture(App.Path

3、+"1.jpg")EndSubPrivateSubCommand1_Click()DimxAsDoubleDimyAsDoubleIfNotIsNumeric(Text1.Text)ThenMsgBox"请在输入功率时输入数字",,"警告"Text1.Text=""Text1.SetFocusEndIfIfNotIsNumeric(Text2.Text)ThenMsgBox"请输入转速时输入数字",,"警告"Text2.Text=""Text2.SetFocusEndIfx=Text1.Texty=Tex

4、t2.TextIfx<0.8Ory<100ThenMsgBox"数据输入有误，请重新输入!"ElseIfx>=0.8Andx<=1Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=0.8Andx<=1Andy>1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=1Andx<=2.6Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=1Andx<=2.6Andy>=

5、200*(x-0.5)Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"20ElseIfx>=1Andx<=2.6Andy>=1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=2.6Andx<=4Andy<=(1000/18)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=2.6Andx<=4Andy>=(1000/18)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"

6、您选择的类型为B型!"ElseIfx>=2.6Andx<=4Andy>=200*(x-0.5)Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=2.6Andx<=4Andy>=1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=4Andx<=7.6Andy>=4800Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=4Andx<=6Andy>=100Andy<=(1000/1

7、8)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=4Andx<=6Andy>=(1000/18)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=4Andx<=6Andy>=200*(x-0.5)Andy<=4800ThenMsgBox"您选择的类型为A型!"ElseIfx>=6Andx<=12Andy>=100Andy<=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为D型!"ElseIfx>

8、=6Andx<=12Andy<=(500/9)*(x-0.8)Andy>=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为C型!"ElseIfx>=6Andx<=12Andy>=(500/9)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=6Andx<=12Andy>=200*(x-0.5)Andy<=4800ThenMsgBox