《机械CAD技术基础》

《《机械CAD技术基础》》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、实验目的1通过对分级变速主传动系统的设计來巩固课堂学习的相关知识；2了解和掌握CAD的方法，初步学会应用VB来进行AutoCAD二次开发。二、实验内容和步骤实验题目：（参照教材138页）设计一中型机床传动系统，电动机转速1440rpm,要求输出12级转速、最低转速31.5rpm＞最高转速1400rpmo根据题目要求，工作流程如下：第一步：输入设计原始数据。主要包括电动机转速、要求输出的转速级数、输出最低转速、输出最高转速等。第二步：参照教材45页的标准数列表，用写字板等编辑软件，编写标准数列表文件a.dat,并将其存放在程序

2、指定的位置。第三步：生成符合要求的输出转速序列，相应数据以文件outdata.dat形式输出，并将其存放在程序指定的位置。以上第一到第三步通过编写QBASIC程序來完成。第四步：确定传动系统的结构式。第五步：编程绘制转速图，通过VB编程完成。第六步：完成配齿。以上第四步、第六步由同学们参考教材在课后自C完成。第七步：绘制传动系统图。由同学们独立完成，可以手绘，也可以在计算机上完成。由以上介绍可以看出，实验课上完成的内容是除第四步和第六步外的全部内容，我们将这些内容分为三大部分。第一部分，包括第一到第三步的全部内容：即利用QBAS

3、IC编程，通过运算生成符合题FI要求的转速数列ZOJLI二NHOMjogiuuZ#31IHMznsvmdinohoj〃“p•珂科nno：jN3doI1X3N3SH3I二『NEILLugN二(！)uJI191(XLI二！HOJ(£•+(90'DOOT/(I^J)90n)lNI二x(Hu)dX3二！町(J-z)/肌二qu(ZN)00T二肌uiiufj/xEiuu-znzUIfldNIxeiuu:〃xeiuu〃mdNI5山N:〃u!iuu〃mdNIjohouiu!/zjo^oiuu/zmjMIi#asonoaoonI+!二！(!)U

4、'[#IfldNI(DJ03ionmiHMoaI二II#SVIQdNIMOJ〃“P•巩：JN3d0(IS)ZN'(MI)UJNia:±¥i/SiS?9ISV9b。出嗨在虫对兀护P•珥珂nno^'瞬猱騎Nz(k)=n(j)j二j+xWRITE#2,Nz(k)NEXTkCLOSE#2END请注意程序中的一句，OPEN，ze:a.dat，zFORINPUTAS#1,这里说明：a.deit文件是标准数列文件，所谓标准数列见教材45页表2.12。这个文件在程序运行前,要编辑好，并放在相应的地方，程序原句要求将a.dat文件放在E盘的根冃

5、录下。程序正确运彳亍后自动生成的outdata.deit文件内容见下。14401231.545639012518025035550071010001400以上部分即第一部分用2学时完成。第二部分编写VB程序，绘制转速图，就是第五步工作内容。首先进入VB6.0中文系统，分别制作两个窗体，见图1和图2o图2绘图参数输入窗体在图1的窗体中，“输入转速图绘制所需参数”命令按钮的代码如下:PrivateSubCmd输入参数_Click()Form1.ShowEndSub“绘制转速图”命令按钮的代码如下：'进入AutoCADPrivateS

6、ubCmd绘图_Click()OnErrorResumeNextSetacadcipp=GetObject(,，zautocad.application")IfErrThenErr.ClearSetacadapp=CreateObject(z，autocad.application")IfErrThenMsgBox(〃不能运行AutoCAD200#,请检查是否安装了AutoCAD")ExitSubEndIfEndIfacadcipp・Visible=Trueacadcipp.ActiveDocument.ActiveViewpo

7、rt.GridOn二True'画表格DimlineobjAsAcadLineDimstartpointl(0To2)AsDoubleDimendpointl(0To2)AsDoubleDimzAsIntegerz=12startpointl(0)=1#:startpointl(1)=1#:startpointl(2)=0#endpointl(0)=57#:endpointl(1)=1#:endpointl(2)=0#:setlinelobj=acadapp.ActiveDocument.ModelSpace.AddLine(st

8、artpointl,endpoint1)retvall=linelobj.ArrayRectangular(z，1,1,6,0,0)Dimsp(0To2)AsDoubleDimep(0To2)AsDoublesp(0)=1#:sp(l)=1#:sp(2)=0#e