原创力文档- 1、本文档共7页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
CAD程序设计实验报告,cad实验报告,电子线路cad实验报告,cad上机实验报告,cad实验报告总结,c程序设计实验报告,程序设计实验报告,vb程序设计实验报告,java程序设计实验报告,web程序设计实验报告
制造科学与工程学院实验报告
Experiment Report
School of Manufacturing Science Engineering
实验课程名称
(Experiment Course) CAD程序设计 实验项目名称
(Experiment Item) CAD程序设计综合实验报告 姓 名
(Name) 学号
(N.o.) 系 别
(Department) 班级
(Class) 实验日期
(Date) 实验地点
(Place) 校工程设计中心 实验学时
(Hour) 10 指导教师
(Superior) 成 绩
(Grade) 室主任签名
(Director)
实验目的（Experiment Objectives）
通过上机编程练习,掌握CAD程序设计基本方法,达到能独立设计常用CAD程序的目的
主要实验仪器（Main Experiment Apparatus）
校工程设计中心,装有AutoCADR2004以上版本，且配有VLISP及VBA的编程环境的150台微机上进行上机实验
实验原理（Experiment Principles）
利用VLISP的基本函数，调试并编制工程CAD运用程序．CAD程序设计综合实验要求每个同学完成一套某个机械零件自动绘图的参数化绘图软件，并将程序运行的结果打印一套结果．
实验内容及步骤（Experiment Contents,Experiment Steps）
CAD程序设计综合实验要求每个同学完成以下工作：
熟悉VLISP的基本函数，掌握VLISP调试程序的基本方法．
建立某个机械零件的工程数据库．
编制工程数据库的管理函数．
编制某个机械零件的自动绘图程序．
编制某个机械零件的自动标注程序．
编制某个机械零件的自动标注技术要求的程序．
将自动绘图的参数化绘图软件程序运行的结果打印一套结果图纸．
以下是某个零件的例图，每个同学可另选其它零件
【建立某个机械零件的工程数据库】
深沟球轴承的尺寸
轴承
基本尺寸／mm
安装尺寸／mm
代号
d
D
B
6000
10
26
8
0.3
12.4
23.6
0.3
6001
12
28
8
0.3
14.4
25.6
0.3
6002
15
32
9
0.3
17.4
29.6
0.3
6003
17
35
10
0.3
19.4
32.6
0.3
6004
20
42
12
0.6
25
37
0.6
建立单变量数据库提取函数如下：
(defun zhch (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))
lst)
)
******单变量提取函数******
(defun data ()
(setq data1 ((d D B ra da Da ras)
((6000 (10 26 8 0.3 12.4 23.6 0.3))
(6001 (12 28 8 0.3 14.4 25.6 0.3))
(6002 (15 32 9 0.3 17.4 29.6 0.3))
(6003 (17 35 10 0.3 19.4 32.6 0.3))
(6004 (20 42 12 0.6 25 37 0.6))
)))
)
【绘图环境】
1）环境的设置
(defun c:TXSZ ()
(command ltscale 10
dim dimtih off dimtoh off dimtad 1
dimtxt 3 dimasz 3.5 dimexe 2.5 dimexo 0
exit
layer n 1 n 2 n 3 c 7 0 c 1 1 c 2 2 c 3 3
n 4 n 5 n 6 n 7 c 4 4 c 5 5 c 6 6 c 7 7
l center 1 l phantom 5 l dashed
文档评论（0）