CAD实验报告 期末大作业.doc

PAGE 制造科学与工程学院实验报告 制造科学与工程学院实验报告 Experiment Report School of Manufacturing Science Engineering 实验课程名称 ( Experiment Course ) CAD程序设计方法 实验项目名称 ( Experiment Item ) CAD程序设计实验报告 姓名 （Name） 学号 （No.） 系别 （Department） 机械设计制造及其自动化 班级 （Class） 实验日期 （Date） 实验地点（Place） 工程设计中心 指导教师 （Superior） 成绩 （Grade） （以下是实验报告需填写的项目，请学生按照实验指导教师的要求在空白处依次填写，不够加附页） 实验步骤及过程（Experiment Steps and Process） CAD程序设计综合实验要求每个同学完成以下工作： １．熟悉ＶＬＩＳＰ的基本函数，掌握ＶＬＩＳＰ调试程序的基本方法． ２．建立某个机械零件的工程数据库． ３．编制工程数据库的管理函数． ４．设置绘图环境，自动选择图框程序. 5．编制某个机械零件的自动绘图程序． 6．编制某个机械零件的自动标注程序． 7．编制某个机械零件的技术要求的程序． 9．将自动绘图的参数化绘图软件程序运行的结果打印一套结果图纸． 选择的图案如下： 二、实验记录及数据处理（Records of Experiment and Data Processing） 附源程序及运行结果 机械零件的工程数据库 (defun data() ;不同尺寸的零件数据库函数 (setq data1((D D1 A B) ((25(25.0 60.0 28.0 8.0)) (30(30.0 75.0 39.0 10.0)) (35(35.0 85.0 39.0 12.0)) (40(40.0 90.0 45.0 15.0)) )))) 零件工程数据库的管理函数 (defun dget(fa lname / lh lst j nn) (setq lh (car (eval (read lname))) ;分离参数表表头 lst (cadr (eval (read lname))) ;分离数值表 j -1) (setq lst (cadr (assoc fa lst))) ;检索 (repeat (length lh) (setq j (1+ j) nn (nth j lh)) (set nn (nth j lst)) ;将检索值赋给参数表中相应参数 )) 图框绘制函数 (defun tk (/ tf l1 k ) (textscr) (princ \n 图纸幅面尺寸) (princ \n 图幅 B L C) (princ \n A0 841 1189 10) (princ \n A1 594 841 10) (princ \n A2 420 594 10) (princ \n A3 297 420 5) (princ \n A4 210 297 5) (princ \n A5 148 210 5) (initget 0 1 2 3 4 5) (setq tf (getkword \n 请选择图幅代号 A(0 - 5)4:)) (if (null tf) (setq tf 4)) (setq tf (atoi tf)) (setq l1 (1189 841 594 420 297 210 148)) (setq tl (nth tf l1) tb (nth (1+ tf) l1)) (if ( tf 3) (setq c 10) (setq c 5)) (initget Y N) (setq k (getkword \n图纸横放吗?Y:)) (if (null k) (setq k Y)) (if (= (strcase k) Y) (setq p1 (0 0) p2 (list