autocad二次开发╠╠参数化绘制带轮设计.rar
autocad二次开发――参数化绘制带轮设计,autocad二次开发╠╠参数化绘制带轮设计2.1万字 72页包括任务书，设计说明书，程序代码，dcl、lsp、sld文件资料摘 要目前，我国cad技术的应用取得了较好的成绩，但由于cad技术涉及面广，影响因素多，在实际应用方面还不可能完全满足要求。二次开发是cad技术应用取得实效的关键环节，因此，结合具体专业的cad...
该文档为压缩文件,包含的文件列表如下:
内容介绍
原文档由会员 刘瑞 发布
AutoCAD二次开发――参数化绘制带轮设计
2.1万字 72页
包括任务书，设计说明书，程序代码，dcl、lsp、sld文件资料
摘 要
目前，我国CAD技术的应用取得了较好的成绩，但由于CAD技术涉及面广，影响因素多，在实际应用方面还不可能完全满足要求。二次开发是CAD技术应用取得实效的关键环节，因此，结合具体专业的CAD二次开发更具有实际意义。
本次设计主要以带轮为研究对象，介绍了用AUTO CAD二次开发对其进行设计的过程，用Visual Lisp语言编制程序，设计对话框的样式和驱动程序、图像的绘制和标注的编写。
关键词：AUTO CAD二次开发，带轮，Visual Lisp语言编程
ABSTRCT
With the progress of the society and keen competition of market economy, having put forward higher, newer request for engineering design, CAD is exactly the result meeting the needs of this one. At present, the application of CAD technology of our country makes better achievements, but because CAD technology involves a wide range of knowledge, influencing the factor may not totally meet the demands in actual application more. Secondary development CAD key link that technical application achieve tangible results, so combine concrete specialized CAD secondary development have a actual meaning even more.
This design mainly takes pulley as the research object, introduced Redevelop-
ments carried on the design with AUTO CAD to it the process. Then with Visual the Lisp language coding, the design dialog box style and the driver, the image plan and the sign note compilation, synthesized the university to study the knowledge。
Key words: Redevelopments with AUTO CAD，pulley，Visual Lisp language
process
目 录
目 录 - 1 -
第一章 AUTOCAD二次开发概述 - 2 -
1.1 AUTOCAD简介 - 2 -
1.2 AUTOCAD二次开发语言及工具简介 - 3 -
1.2.1 AutoLISP - 3 -
1.2.2 ADS - 3 -
1.2.3 ObjectARX - 4 -
1.2.4 VisualLISP - 4 -
1.2.5 VBA - 5 -
1.2.6 Visual Java - 5 -
1.3 AUTOLISP语言与DCL简介 - 5 -
1.3.1 AutoLISP简介 - 5 -
1.3.2 AutoLISP的特点 - 6 -
1.3.3 DCL简介 - 7 -
1.4 参数化绘图系统简介 - 7 -
1.4.1 概 述 - 7 -
1.4.2 理解参数化设计 - 8 -
1.4.3 设计参数化系统的基本要素 - 9 -
第二章 用绘图工具的开发设计 - 10 -
2.1 概述 - 10 -
2.2设置绘图环境设计 - 10 -
2.2.1设计思想及流程 - 11 -
2.2.2 设计实施与程序设计 - 11 -
2.2.3 图框的绘制 - 15 -
2.2.4 绘制标题栏 - 18 -
2.2.5 倒角标注 - 23 -
2.2.6 基准符号 - 24 -
2.2.7 技术要求可视化输入 - 26 -
2.2.8 粗糙度符号 - 28 -
第三章 三角带轮参数化绘图设计 - 33 -
3.1总体设计思想 - 33 -
3.2参数化绘图程序的实现 - 34 -
3.2.1带轮绘图参数的确定 - 34 -
3.2.2参数的是输入 - 35 -
3.2.3带轮零件图的绘图功能模块 - 37 -
3.2.4零件图的生成 - 38 -
3.3本章小结 - 46 -
结 论 - 45-
参考文献 - 47 -
致 谢 - 48 -
附录表 - 49 -
参考文献
[1] 肖世德，熊鹰，王小强. 机械工程CAD应用与开发[M].成都：西南交通大学出版社，2002.2
[2] 符纯华.计算机辅助设计[M].四川：四川理工学院，2005.6
[3] 成大先.机械设计手册.单行本.轴承[M].北京：化学工业出版社，2004.1
[4] Liangyue Cao.Practical method for determining the minimum embedding dimension of
a scalar time series[J].Physica D 110(1997)
[5]华楚生 机械制造技术基础[M].重庆大学出版社 2003.7
[6]胡任喜 胡星.AUTOLISP 机械设计 高级应用实例[M]. 机械工业出版社.2005.1
[7]郭朝勇. AUTOCAD R14（中文版）二次开发技术[M].北京：青华大学出版社.1999.4
[8] 李学志.AUTO LISP程序设计（AUTOCAD 2006）[M].青华大学出版社.2006.5
[9] 刘瑞新.AUTOCAD 2000应用教程[M].电子工业出版社.2003.7
附录表
附录表I
标题栏源程序：
;;updatex装弹出列表
(defun updata1()
(start_list "sjz")
(mapcar 'add_list sjz_list)
(end_list)
)
(defun updata2()
(start_list "ljxh")
(mapcar 'add_list ljxh_list)
(end_list)
)
(defun updata3()
(start_list "bl")
(mapcar 'add_list bl_list)
(end_list)
)
......
附录表II
行为公差标注源程序：
(defun c:tolerance1 (pt)
(setq stm_data1
(entmake '(
(0 . "TOLERANCE")
(100 . "AcDbEntity")
(8 . "标注层")
(100 . "AcDbFcf")
(3 . "STANDARD")
(10 100.0 100.0 0.0)
(1 . "{Fgdt;h}%%v0.3%%v%%vA%%v%%v")
(210 0.0 0.0 1.0)
(11 1.0 0.0 0.0)
)) ;entmake
......
2.1万字 72页
包括任务书，设计说明书，程序代码，dcl、lsp、sld文件资料
摘 要
目前，我国CAD技术的应用取得了较好的成绩，但由于CAD技术涉及面广，影响因素多，在实际应用方面还不可能完全满足要求。二次开发是CAD技术应用取得实效的关键环节，因此，结合具体专业的CAD二次开发更具有实际意义。
本次设计主要以带轮为研究对象，介绍了用AUTO CAD二次开发对其进行设计的过程，用Visual Lisp语言编制程序，设计对话框的样式和驱动程序、图像的绘制和标注的编写。
关键词：AUTO CAD二次开发，带轮，Visual Lisp语言编程
ABSTRCT
With the progress of the society and keen competition of market economy, having put forward higher, newer request for engineering design, CAD is exactly the result meeting the needs of this one. At present, the application of CAD technology of our country makes better achievements, but because CAD technology involves a wide range of knowledge, influencing the factor may not totally meet the demands in actual application more. Secondary development CAD key link that technical application achieve tangible results, so combine concrete specialized CAD secondary development have a actual meaning even more.
This design mainly takes pulley as the research object, introduced Redevelop-
ments carried on the design with AUTO CAD to it the process. Then with Visual the Lisp language coding, the design dialog box style and the driver, the image plan and the sign note compilation, synthesized the university to study the knowledge。
Key words: Redevelopments with AUTO CAD，pulley，Visual Lisp language
process
目 录
目 录 - 1 -
第一章 AUTOCAD二次开发概述 - 2 -
1.1 AUTOCAD简介 - 2 -
1.2 AUTOCAD二次开发语言及工具简介 - 3 -
1.2.1 AutoLISP - 3 -
1.2.2 ADS - 3 -
1.2.3 ObjectARX - 4 -
1.2.4 VisualLISP - 4 -
1.2.5 VBA - 5 -
1.2.6 Visual Java - 5 -
1.3 AUTOLISP语言与DCL简介 - 5 -
1.3.1 AutoLISP简介 - 5 -
1.3.2 AutoLISP的特点 - 6 -
1.3.3 DCL简介 - 7 -
1.4 参数化绘图系统简介 - 7 -
1.4.1 概 述 - 7 -
1.4.2 理解参数化设计 - 8 -
1.4.3 设计参数化系统的基本要素 - 9 -
第二章 用绘图工具的开发设计 - 10 -
2.1 概述 - 10 -
2.2设置绘图环境设计 - 10 -
2.2.1设计思想及流程 - 11 -
2.2.2 设计实施与程序设计 - 11 -
2.2.3 图框的绘制 - 15 -
2.2.4 绘制标题栏 - 18 -
2.2.5 倒角标注 - 23 -
2.2.6 基准符号 - 24 -
2.2.7 技术要求可视化输入 - 26 -
2.2.8 粗糙度符号 - 28 -
第三章 三角带轮参数化绘图设计 - 33 -
3.1总体设计思想 - 33 -
3.2参数化绘图程序的实现 - 34 -
3.2.1带轮绘图参数的确定 - 34 -
3.2.2参数的是输入 - 35 -
3.2.3带轮零件图的绘图功能模块 - 37 -
3.2.4零件图的生成 - 38 -
3.3本章小结 - 46 -
结 论 - 45-
参考文献 - 47 -
致 谢 - 48 -
附录表 - 49 -
参考文献
[1] 肖世德，熊鹰，王小强. 机械工程CAD应用与开发[M].成都：西南交通大学出版社，2002.2
[2] 符纯华.计算机辅助设计[M].四川：四川理工学院，2005.6
[3] 成大先.机械设计手册.单行本.轴承[M].北京：化学工业出版社，2004.1
[4] Liangyue Cao.Practical method for determining the minimum embedding dimension of
a scalar time series[J].Physica D 110(1997)
[5]华楚生 机械制造技术基础[M].重庆大学出版社 2003.7
[6]胡任喜 胡星.AUTOLISP 机械设计 高级应用实例[M]. 机械工业出版社.2005.1
[7]郭朝勇. AUTOCAD R14（中文版）二次开发技术[M].北京：青华大学出版社.1999.4
[8] 李学志.AUTO LISP程序设计（AUTOCAD 2006）[M].青华大学出版社.2006.5
[9] 刘瑞新.AUTOCAD 2000应用教程[M].电子工业出版社.2003.7
附录表
附录表I
标题栏源程序：
;;updatex装弹出列表
(defun updata1()
(start_list "sjz")
(mapcar 'add_list sjz_list)
(end_list)
)
(defun updata2()
(start_list "ljxh")
(mapcar 'add_list ljxh_list)
(end_list)
)
(defun updata3()
(start_list "bl")
(mapcar 'add_list bl_list)
(end_list)
)
......
附录表II
行为公差标注源程序：
(defun c:tolerance1 (pt)
(setq stm_data1
(entmake '(
(0 . "TOLERANCE")
(100 . "AcDbEntity")
(8 . "标注层")
(100 . "AcDbFcf")
(3 . "STANDARD")
(10 100.0 100.0 0.0)
(1 . "{Fgdt;h}%%v0.3%%v%%vA%%v%%v")
(210 0.0 0.0 1.0)
(11 1.0 0.0 0.0)
)) ;entmake
......
