欢迎来到天天文库
浏览记录
ID:15988529
大小:662.00 KB
页数:12页
时间:2018-08-07
《cad课程设计说明书[1]》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、南通大学CAD课程设计说明书设计题目:斜截圆柱面和斜截圆锥面展开图设计系统学院:机械工程学院班级:机10学生姓名:学号:设计日期:2014年1月16日12目录一、课题名称和要求-------------------------------------------------------------------3二、系统结构框图-----------------------------------------------------------------------3三、程序流程图----------------------------------------------
2、-----------------------------4四、程序设计关键技术的阐述----------------------------------------------------5五、设计举例------------------------------------------------------------------------------9六、课程设计的体会和建议-------------------------------------------------------8七、参考文献----------------------------------
3、--------------------------------------------812一、设计课题题目:斜截圆柱面和斜截圆锥面展开图设计系统目的:通过“斜截圆柱面和斜截圆锥面展开图设计系统”的开发,进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。任务:完成“斜截圆柱面和斜截圆锥面展开图设计系统”的开发,根据该系统能进行简单的展开图设计。要求:、完成“斜截圆柱面和斜截圆锥面展开图设计系统”全部程序设计。二、系统结构框图12斜截圆柱面和斜截圆锥面展开图设计系统系统设计VB编程绘图AutoLisp编程开
4、始界面计算界面帮助界面进入系统斜截圆柱面斜截圆锥面生成数据生成数据CAD绘制展开图三、程序流程图:12打开原始界面进入系统斜截圆柱面展开图设计斜截圆锥面展开图设计数据生成数据生成CAD出图CAD出图四、程序设计关键技术(1)VB部分(1)通过12公式计算得出展开图上点的坐标,并进行数据生成加载:Fork=0To100Step0.1a=0.01*k*2*piX(i)=R*a+150Y(i)=S-(D/2)*Cos(a)*(1/Tan(alf))i=i+1NextkOpen"D:1010012010recordsrecord1.txt"ForOutputAs#1'载入相
5、贯线数据Fori=1To1000Print#1,X(i)Print#1,Y(i)NextiPrint#1,X(1)Print#1,Y(1)Close#1Open"D:1010012010shuju.txt"ForOutputAs#6'画矩形Print#6,pi*DPrint#6,hPrint#6,B1Print#6,LClose#6Open"D:1010012010gaodu.txt"ForOutputAs12#7Print#7,hPrint#7,SClose#7(2)OutoLisp部分通过读取文件,在cad上绘制图形:(setqf(open"D:/101001
6、2010/records/record1.txt""r"))(setqx1(atof(read-linef)))(setqy1(atof(read-linef)))(setqx2(atof(read-linef)))(setqy2(atof(read-linef)))(setqp1(listx1y1))(setqpa1p1)(setqx0x1)(while(/=x1x2)(setqp2(listx2y2))(command"pline"p1p2"")(setqp1p2)(setqx2(atof(read-linef)))(setqy2(atof(read-linef)))
7、)(closef)(setqpa2p2)(setqf(open"D:/1010012010/gaodu.txt""r"))(setqh(atof(read-linef)))(setqs(atof(read-linef)))(closef)(setqy0(-sh))(setqpa3(polarpa1(*pi0.5)(-sh)))(setqpa4(polarpa2(*pi0.5)(-sh)))12(setqpa5(polarpa4(*pi0.5)(-10)))(setqpa6(polarpa3(*pi)10))五、设计举例1、进入
此文档下载收益归作者所有