轴的参数化设计说明书.doc

计算机绘图课程作业姓 名： 景琦班 级：机0601-4学 号：20060627完成日期：2008-6-11一、 设计任务及要求 编写轴的参数化绘图函数，除教材中已有的参数化函数外，应至少再增加2个参数化图形函数。将轴的参数化绘图函数加入到菜单中，实现用菜单调用。用所编写的轴的参数化绘图函数，完成一个轴的零件图设计（不得与他人相同），并完成三维建模。二、设计分析1、目标、功能函数能根据用户的要求完成轴的参数化绘图。 函数应从菜单中调用。菜单分级：下拉菜单图像菜单2、解决问题的思路、方法等内容仿照例题，设计两个参数化图形函数，编写菜单文件实现用菜单调用。三、系统结构函数画轴初始化画图框zdzd_1zd_jctuidaocaozd_2tdc_2四、详细设计4.1函数Setup4.1.1功能分析：设置图层和字体4.1.2函数输入/输出分析输出： 4.1.3源代码;初始化绘图环境函数SETUP，设置绘图单位制、线型比例、图幅大小、建立绘图所图谶、线型;和颜色、设置字样，保存系统环境变量。(defun setup() (setq oldrgn (getvar regenmode) oldcmd(getvarcmdecho) oldblp(getvarblipmode) oldmk(getvarlimcheck) oldpck(getvarpickbox) olderr *error* ) (setvarregenmode1) (setvarcmdecho0) (setvarblipmode0) (setvarlimcheck0) (setvarpickbox0) (commandunits2 4 1 0 0 n) (commandlstcale10) (commandlimits (0 0) (420 297)zoom a) (commandlayer n xsx c green xsx n lay0 c red lay0 n lay3 c blue lay3 n xx c yellow xx l dashed xx n dhx c cyan dhx l center dhx n csx s xsx ) (command style hz gbeitc,gbcbig 0.7 ) )4.2函数htk 4.2.1功能分析：（1） 绘制图框线（2） 绘制标题栏（3） 绘制中心线4.2.2函数输入/输出分析输入：输入函数名htk。输出： 4.2.3数学（几何）模型边框左下角点p（0，0）边框右下角点p（420，0），边框左上角点p（0,297），边框右上角点p（420,297）图框左下角点p（25,5），图框右下角点p（415,5），图框右上角点p（415， 292），图框上角左点p（25,292）中心线起点p(120 ,148.5)终点p（270,148.5） 起点(220,140) 终点( 220,297)四条对中符号：1起点p（0,148.5）终点p（30,148.5），2起点p（420， 148.5）终点p（410,148.5），3起点p（210，0）终点p（210,10），4起点p（210,297）终点p（210,287）。4.2.4流程图画边框画图框画对中符号画标题拦 4.2.5函数源代码;程序2：绘制图框、标题栏函数HTK。(defun htk() (commanderase w 0,0(getvarextmax) (commandlayer s xsx ) (commandpline(0 0)(420 0) (420 297)(0 297)c) (commandlayer s csx ) ;以下绘制图框线 (commandpline(25 5)(415 5)(415 292)(25 292)c) ;以下绘制对中符号 (commandline(0 148.5)(30 148.5) (commandline(410 148.5)(420 148.5) (commandline(210 0)(210 5) (commandline(210 287)(210 297) ;以下绘制标题栏 (commandpline(275 5)(275 37)(415 37) (commandlayer s xsx ) (commandline(275 13)(335 13) line(275 21)(415 21) line(335 29)(385 29) line(290 5)(290 21) line(315 5)(315 21) line(335 5)(335 37) line(350 21)(350 37) line(365 21)(365 37) line (385 21) (385 37) ) (commandtextjmc(282.5 17)5 0制图 textjmc(282.5 9)5 0 校核 textjmc(342.5 33)5 0比例 textjmc(342.5 25)5 0重量 textjmc(375 33)5 0共 张 textjmc(375 25)5 0第 张 )4.3函数zd4.3.1功能分析:绘制双倒角轴段4.3.2输入/输出分析输入：sp插入点，d轴径，L轴段长，c倒角宽度m方向码，0表示画右轴段，1表示画左轴段。 输出： 输入插入点计算点坐标画线4.3.4流程图4.3.5函数源代码(DEFUN zd (/sp d l c p1 p2 p3 p4 p5p6)(SETQsp (GETPOINT n插入点:)d (GETDIST n轴径:) l (GETDIST n轴段长:) c (GETDIST n倒角宽度:)m (GETINT n输入画轴段的方向(0-向右；1-向左):) )(SETQp1 (POLAR sp (- (/ PI 2) (/ d 2) p2 (POLAR p1 0 (- l c) p3 (POLAR p2 (/ PI 4) (SQRT (+ (* c c) (* c c) p4 (POLAR p3 (/ PI 2) (- d (* c 2) p5 (POLAR p4 (/ (* PI 3) 4) (SQRT (+ (* c c) (* c c)p6 (POLAR p5 PI (- l c)(COMMAND layer s csx )(COMMAND pline p1 p2 p3 p4 p5 p6 c)(SETQ s (SSGET l)(COMMAND pline p2 p5 )(SSADD (ENTLAST) s)(IF (= m 1) (COMMAND mirror s p1 p6 y)4.4函数td_1 4.4.1功能分析：绘制一端倒角轴段4.4.2输入/输出分析sp插入点，d轴径，L轴段长，;c倒角宽度，m方向码，0表示画右轴段，1表示画左轴段。表示画右轴段，1表示画左轴段)。输出 4.4.4流程图输入插入点计算点坐标画线4.4.5函数源代码(DEFUN zd_1 (/sp d l c p1 p2 p3 p4 p5p6) (SETQsp (GETPOINT n插入点:)d (GETDIST n轴径:)l (GETDIST n轴段长:)c (GETDIST n倒角宽度:)m (GETINT n输入画轴段的方向(0-向右；1-向左):) )(SETQp1 (POLAR sp (- (/ PI 2) (/ d 2)p2 (POLAR p1 0 (- l c)p3 (POLAR p2 (/ PI 4) (SQRT (+ (* c c) (* c c)p4 (POLAR p3 (/ PI 2) (- d (* c 2)p5 (POLAR p4 (/ (* PI 3) 4) (SQRT (+ (* c c) (* c c)p6 (POLAR p5 PI (- l c) ) (COMMAND layer s csx ) (COMMAND pline p1 p2 p3 p4 p5 p6 c) (SETQ s (SSGET l) (COMMAND pline p2 p5 )(SSADD (ENTLAST) s) (IF (= m 1) (COMMAND mirror s p1 p6 y) )4.5函数zd_jc4.5.1功能分析：带键槽的轴段4.5.2输入/输出分析输入：插入点sp，轴径d，轴段长l，倒角宽度c，键槽长度l1， 键槽定位尺寸l2。输出： 4.5.3流程图输入插入点计算点坐标画线4.6函数 4.6.1功能分析：带退刀槽的轴段4.6.2输出：4.6菜单函数4.7.1功能分析：建立绘制轴段的菜单 4.7.2输入/输出分析输出： 4.7.3函数源代码*POP11机械图-绘图环境装入(load 20060627_3.lsp) 图层初始化(setup) = d 6) (= d 8) (SETQ b 2)(= d 10) (SETQ b 3)(= d 12) (SETQ b 4)(= d 17) (SETQ b 5)(= d 22) (SETQ b 6)(= d 30) (SETQ b 8)(= d 38) (SETQ b 10)(= d 44) (SETQ b 12)(= d 50) (SETQ b 14)(= d 58) (SETQ b 16)(= d 65) (SETQ b 18)(= d 75) (SETQ b 20)(= d 85) (SETQ b 22)(= d 95) (SETQ b 25)(= d 3) (= d 4) (setq b 1) (= d 6) (SETQ b 1.5)(= d 10) (SETQ b 2)(= d 12) (SETQ b 2.5)(= d 18) (SETQ b 3) (= d 22) (SETQ b 4)(= d 32) (SETQ b 5)(= d 6) (= d 8) (SETQ b 2)(= d 10) (SETQ b 3)(= d 12) (SETQ b 4)(= d 17) (SETQ b 5)(= d 22) (SETQ b 6)(= d 30) (SETQ b 8)(= d 38) (SETQ b 10)(= d 44) (SETQ b 12)(= d 50) (SETQ b 14)(= d 58) (SETQ b 16)(= d 65) (SETQ b 18)(= d 75) (SETQ b 20)(= d 85) (SETQ b 22)(= d 95) (SETQ b 25)(= d 6) (= d 8) (SETQ h 2)(= d 10) (SETQ h 3)(= d 12) (SETQ h 4)(= d 17) (SETQ h 5)(= d 22) (SETQ h 6)(= d 30) (SETQ h 7)(= d 38) (SETQ h 8)(= d 44) (SETQ h 8)(= d 50) (SETQ h 9)(= d 58) (SETQ h 10)(= d 65) (SETQ h 11)(= d 75) (SETQ h 12)(= d 85) (SETQ h 14)(= d 95) (SETQ h 14)(= d 110) (SETQ h 16) ) (SETQp1 (POLAR p (/ PI 2) (- (/ d 2) c)p2 (POLAR p1 (/ PI 4) (SQRT (+ (* c c) (* c c)p3 (POLAR p2 0 (- l (+ c a)p4 (POLAR p3 (- (/ PI 2) (/ (- d e) 2)p5 (POLAR p4 0 a)p6 (POLAR p5 (- (/ pi 2) e)p7 (POLAR p6 PI a)p8 (POLAR p7 (- (/ PI 2) (/ (- d e) 2)p9 (POLAR p8 PI (- l (+ c a)p10 (POLAR p9 (/ (* PI 3) 4) (SQRT (+ (* c c) (* c c)p11 (list (+ px (/ (- l f) 2) (+ py (/ d 2)p12 (polar p11 0 f)p13 (polar p12 (- (/ pi 2) h)p14 (polar p13 pi f)p15 (list (+ px (/ (- l f) 2) (- py (/ d 2)p16 (polar p15 0 f)p17 (polar p16 (- (/ pi 2) (- h)p18 (polar p17 pi f)p0 (list (+