平键连接autolisp部分说明方案.doc

CAD课程设计说明书 设 计 题 目 （平键传动设计系统） 班 级： 姓 名： 指导老师： AutoLisp部分目录 一、课程设计的任务和目的…………………………………… 3 1.1 课程设计的任务……………………………………………… 3 1.2 课程设计的目的……………………………………………… 3 1.3 课程设计的规划……………………………………………… 3 二、系统结构框图 ------------------------------------------------------------ 3 三、AutoLisp程序流程图 ----------------------------------------------4 四、程序设计关键技术的阐述 ----------------------------------------6 五、设计举例 -------------------------------------------------------------8 六、课程设计的体会 -----------------------------------------------------------10 七、参考文献 ----------------------------------------------------------------------12 一、课程设计的任务和目的 1.1 课程设计的内容： 完成“普通平键连接设计系统” 图形设计部分的程序设计。 1.2 课程设计的目的： 通过“普通平键连接设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。 1.3 课程设计的要求： 完成“普通平键连接设计系统”的开发，根据该设计系统能进行简单的普通平键连接设计。 二、系统结构框图 三、AutoLisp程序流程图 四、程序设计关键技术的阐述 1.整体设定 (command ltscale 5 ) ;线性比例因子设定 (command zoom all) ；全局缩放 (command osnap off) ；对象捕捉，无捕捉点 2. 打开文件函数 (setq txt(openC:\\DocumentsandSettings\\Administrator\\桌面\\0810012008\\keydesign.txt r)) ；，打开数据生成的脚本文件keydesign.txt，r表示读，w表示写。 例：（setq f (open new.txt w)）））(if （条件) （式1) （式2)） 若条件为真，执行式1，为假（NIL），则执行式2 5.分支函数 (cond （条件1 式1 ））） (cond ((= (/ d L) 0.875) (setq p0 (220 125))) ;a4 ((= (/ d L) 0.583) (setq p0 (320 145))) ;a3 ((= (/ d L) 0.412) (setq p0 (249 220))) ;a2 ((= (/ d L) 0.280) (setq p0 (200 325))) ;a1 (( (/ d L) 0.280) (setq p0 (200 325))) (t nil) ) 6.构造图层 7.一些绘图的命令语句 (setq p1 (polar p0 pi (* 0.76 d0)))；根据已知点找点 (command pline p8 p10 p11 p13 p8 )；绘一个闭合的线框。 (command line p9 p12 ) ；绘连接两点的直线。 (command circle p0 r0 ) ；绘圆 (command _trim p6 p7 p5 ) ；剪切命令 (command dimdiameter p32 p33 ) ；标注直径 (command dimlinear p13 p26 p27 ) ；标注线性尺寸 (command _spline p52 p59 p58 p60 p50 )；绘制样条线 (command -bhatch p ansi31 1 0 p14 ) ；绘制剖面线 五、设计举例 1.线框 2.图效 3.轮觳处放大 六、课程设计的体会 通过两个星期的《普通平键连接设计系统》的设计，我对VB和Autolisp程序有了一个更加深刻的理解，特别对于autolisp编程语言更加明晰，还有VB和AutoCAD程序间的接口技