下载文档原格式
用LISP语言自定义AutoCAD命令LISPAutoCADAutoLISP语言作为AutoCAD的二次开发工具，虽然在功能、运行速度和保密性等方面比起ARX等工具要逊色一些，但由于它易学易用，交互性好，灵活性强，对于那些经常使用AutoCAD进行绘图的普通用户来说，不失为一种理想的开发工具。
下面就介绍用AutoLISP语言自定义的几个AutoCAD绘图命令，可以起到简化操作、提高作图效率的作用。
一、键槽尺寸视图的绘制命令“jct”在绘制轴、齿轮或带轮等零件图时，经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图，比较麻烦；由于键槽的尺寸随轴径的变化而变化，所以我们可以用LISP程序来实现自动绘图。
加载下面的程序，在命令行中键入”jct”并回车，通过人机交互的形式输入有关参数，可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。
代码示例如下所示。
(defun C:jct ()(setq pt0 (getpoint "\n 请输入视图的中心位置点:"))(initget 7)(setq loop T)(while loop(setq d (getreal "\n 请输入键槽处的轴径(12<d<130)(mm):"))(if(or (< d 12) (> d 130))(alert "轴径数据输入错误!\n\n请重新输入!")(setq loop nil));if);while(cond;根据轴径检索键槽尺寸((and (> d 12) (<= d 17)) (setq b 5 t1 3.0 t2 2.3));b表示键槽的宽度((and (> d 17) (<= d 22)) (setq b 6 t1 3.5 t2 2.8));t1表示轴上键槽的深度((and (> d 22) (<= d 30)) (setq b 8 t1 4.0 t2 3.3));t2表示轮毂上键槽的高度((and (> d 30) (<= d 38)) (setq b 10 t1 5.0 t2 3.3))((and (> d 38) (<= d 44)) (setq b 12 t1 5.0 t2 3.3))((and (> d 44) (<= d 50)) (setq b 14 t1 5.5 t2 3.8))((and (> d 50) (<= d 58)) (setq b 16 t1 6.0 t2 4.3))((and (> d 58) (<= d 65)) (setq b 18 t1 7.0 t2 4.4))((and (> d 65) (<= d 75)) (setq b 20 t1 7.5 t2 4.9))((and (> d 75) (<= d 85)) (setq b 22 t1 9.0 t2 5.4))((and (> d 85) (<= d 95)) (setq b 25 t1 9.0 t2 5.4))((and (> d 95) (<= d 110)) (setq b 28 t1 10.0 t2 6.4))((and (> d 110) (<= d 130)) (setq b 32 t1 11.0 t2 7.4)))(command "circle" pt0 "d" d)(command "zoom" "a")(setq s1 (ssget "l" ))(setq di (-(* (/ d 2.0) (/ d 2.0)) (* (/ b 2.0) (/ b 2.0)))dx (sqrt di)dy (/ b 2.0)pt1 (list (+ (car pt0) dx) (+ (cadr pt0) dy)))(initget "Zc Lc");Zc表示画轴键槽的剖视图,Lc表示画轮毂键槽的端面视图(setq zrl (getkword "\n 画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?"))(if (= zrl "Zc")(progn;计算轴键槽上点的坐标(setq pt2 (list (+ (car pt0) (-(/ d 2.0) t1)) (+ (cadr pt0) dy)) pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 0 (- dx (- (/ d 2.0) t1)))));progn);if(if (= zrl "Lc")(progn;计算轮毂键槽上点的坐标(setq pt2 (list (+ (car pt0) (+(/ d 2.0) t2)) (+ (cadr pt0) dy)) pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 (- pi) (- (+ (/ d 2.0) t2) dx))));progn);if(command "pline" pt1 pt2 pt3 pt4 "");画键槽(setq s2 (ssget "l"))(command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")(command "ltscale" 8)(command "line" (polar pt0 (- pi) (+ (/ d 2.0) 10));画中心线(polar pt0 0 (+ (/ d 2.0) 10)) "")(command "line" (polar pt0 (-(/ pi 2.0)) (+ (/ d 2.0) 10))(polar pt0 (/ pi 2.0) (+ (/ d 2.0) 10)) "")(command "layer" "s" 0 "")(if (= zrl "Zc")(progn(setq s3 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s3 "");修剪形成键槽(command "hatch" "U" "45" "2" "n" s1 s2 ""));画轴上键槽处剖视图的剖面线);if(if (= zrl "Lc")(progn(setq s4 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s4 "");修剪形成键槽(command "rotate" s1 s2 "" pt0 90));将轮毂键槽的端面视图旋转90度);if);end defun二、螺纹孔剖视图的绘制命令“lwk”在绘制机械零件图时，经常要画螺纹孔的剖视图，同样由于螺纹孔的有关尺寸都随螺纹的公称直径而变化，我们可以用下面的程序自动完成其剖视图的绘制。
基于Visual LISP语言的AUTOCAD参数化设计摘要本系统是以模块化设计和参数化设计为指导思想,以Visual LISP为编程语言和开发工具,对AutoCAD软件进行的二次开发。
研制出了界面友好的标准件图库系统和标准图幅调用系统，实现了设置绘图环境的自动化和绘制标准滚动轴承，从而提高绘图的质量和效率。
本文介绍了构建此系统所用到的CAD二次开发的主要方法和关键技术，包括CAD的Visual LISP集成开发技术，Visual BASIC对话框设计，Visual LISP 与VBA的交互式编程技术。
用户通过人机交互界面设置滚动轴承的关键参数，系统自动计算出绘制图块所需要的各点的坐标，调用绘图程序进行绘图；通过标准图幅调用系统，用户可以在交互界面设置所需要的图纸类型，绘图比例，系统将参数传输给调用模型，调用事先绘制好的标准图幅块并设置全局性比例，然后按1：1打印即可完成打印出图。
系统优点：标准图幅库是可编辑的，可以在AutoCAD环境下设置，使其符合企业的特殊要求；滚动轴承参数化模型完全按照国标要求编制，尺寸系列摘自国标不需要用户再查手册，也可以自定义。
关键词：Visual LISP；参数化绘图；二次开发；VBA；交互式编程；标准图幅；标准件库；滚动轴承参数化模型基于VisualLISP语言的AutoCAD参数化设计PARAMETRIC DESIGN AUTOCAD BASEDon Visual LISP LANGUAGEABSTRACTThe system is based on modular design and parametric design as the guiding ideology, as in Visual LISP programming language and development tools for the secondary development of AutoCAD software. Developed a user-friendly standard parts library system and the standard drawing system, which can automatically set the graphics environment and draw the standard rolling bearing, thereby enhancing the quality and efficiency of drawing.This article will describe the main methods and the major key technologies of CAD's secondary development including Visual LISP Integrated Development Technology, Visual BASIC dialog design and Visual LISP and VBA programming interactive. Users only need to enter the key parameters in the human-computer interaction interface, the system will calculate the necessary points coordinates which is needed in drawing and then draw the drawing. Through the drawing system, the user can select the required drawing frame, set the ratio of the drawing in the dialog box, the system automatically draw out the drawing frame and set overall ratio. Then, in accordance with the 1:1 print a drawing to complete the print. System Benefits: Standard Drawing Library is open source, can be set up in the AutoCAD environment, to meet the specific requirements of enterprises; rolling bearing models in full accordance with the requirements of the preparation of GB, GB size range from requiring users to re-check the manual, but also required to custom; procedures for open-source, standard parts library can be filled follow-up.KEYWORDS:Visual LISP；Parametric Drawing；The secondary development；VBA；Standard drawing frame目录1．绪论 (1)1.1课题背景及研究的目的和意义 (1)1.2目前国内外研究进展概述 (2)1.2.1AutoCAD发展趋势 (2)1.2.2CAD二次开发研究热点 (3)1.2.3 本文主要研究内容 (4)2．AUTOCAD二次开发工具 (6)2.1VISUALLISP编程方法 (6)2.1.1VisualLISP语言概要 (6)2.1.2AutoLISP基本函数 (6)2.1.3参数化绘图程序设计技术 (9)2.2VBA编程方法 (10)2.2.1VisualBasic语言概要 (10)2.2.2VBA IDE集成编程环境 (13)2.3VISUALLISP与VBA的交叉编程方法 (14)3．绘图环境的设置 (17)3.1设置图层、文字样式、标注样式 (17)3.1.1创建新图层 (17)3.1.2定义字样 (17)3.1.3 设置尺寸标注 (18)3.2绘制标准图框模板 (20)3.2.1绘制标准图幅 (20)3.2.2设置块属性 (21)3.3VBA制作绘图模板调用窗口及V ISUAL LISP编制调用程序.. 22基于VisualLISP语言的AutoCAD参数化设计3.3.1VBA制作调用窗口 (23)3.3.2Visual LISP编制调用程序 (28)4．VISUALLISP参数化编程 (30)4.1参数化图形的特点及应用 (30)4.2VISUALLISP编制标准滚动轴承参数化模型程序库 (30)4.3VBA编制标准件调用窗口 (34)4.4VBA与VISUALLISP交叉编程应用 (37)5．程序设计综合应用 (39)5.1程序检查和调试中的问题 (39)5.2VBA编程与VISUALLISP编程的数据传递 (40)5.3有关系统变量的应用举例 (42)5.4自定义工具栏应用举例 (43)结论 (46)参考文献 (46)致谢 (47)1．绪论1.1课题背景及研究的目的和意义众所周知，AutoCAD 是目前在Windows95/ 98/ 2000/ NT /XP环境下应用最广泛、使用人数最多的CAD 软件, 以其完善的绘图功能、良好的用户界面、易学易用的特点，受到了广大工程技术人员的普遍欢迎。
基于AutoLISP语言的参数化设计绘图系统
王盛智
【期刊名称】《辽宁石油化工大学学报》
【年(卷),期】2003(023)001
【摘要】介绍使用AutoLISP语言做为开发工具的计算机辅助机械设计开发系统,系统除具备通常交互式绘图软件所有的二维绘图功能外,还提供了常用的三维零件参数化建模及使用AutoLISP语言开发计算机辅助机械设计应用系统所必需的函数库.增加了系统初始化设置、比例计算、图纸幅面、绘图比例、线型设置、标题栏处理、明细表处理、符号标注、标准件图库等函数库.编制了常用的几何作图及圆弧连接函数,为用户编写参数化绘图程序提供了必要的条件.增加了通用数据输入对话框,用户不必掌握DCL语言也可编写出人机交互性较好的应用程序.使用该系统可以最简捷的方法快速地开发出极具有专业化的AutoCAD应用产品.
【总页数】4页(P69-72)
【作者】王盛智
【作者单位】辽宁石油化工大学机械学院,辽宁抚顺,113001
【正文语种】中文
【中图分类】TH126.2
【相关文献】
1.基于AutoLISP语言参数化绘图的实现 [J], 黄淑娟
2.基于AutoLISP语言的参数化绘图设计 [J], 周华勇;张红梅;王录林
3.利用AutoLISP语言为AutoCAD系统配设专用辅助绘图工具库 [J], 李达莱
4.基于AutoLISP的渐开线圆柱齿轮参数化设计及绘图系统 [J], 王永;郭钢;蒋晶;黄红涛;潘军远
5.基于Pro/E的参数化设计及绘图系统的开发 [J], 陶宇;平雪良;董宁;叶晶
因版权原因，仅展示原文概要，查看原文内容请购买。
基于Auto LISP的参数化绘图技术与实例分析摘要：AutoCAD 是一款通用的绘图软件，Auto LISP是嵌入AutoCAD的二次开发工具，参数化绘图是其典型的应用。
文章探讨了参数化绘图设计原理及步骤，并以轴承参数化绘图为例，介绍了Auto LISP的参数化绘图技术。
关键词：参数化；AutoCAD；Auto LISPAutoCAD是由Autodesk公司发行的一款应用于多领域的设计辅助和图形处理软件。
在机械行业得到了广泛应用。
AutoCAD虽然功能强大，但在专业应用上还是有不足之处，如何让通用的CAD系统更适合行业需要，必须对其要进行二次开发。
AutoCAD在30多年时间里相继推出了Auto LISP、ADS、Visual LISP、VBA、Object ARX、几种不同层次的二次开发工具。
“其中Auto LISP是唯一的一种以解释方式运行于AutoCAD内部的解释性程序设计语言，Auto LISP把数据和程序统一表达为表结构，所以它既可以把程序当作数据来处理，还可以把数据当作程序来执行”。
其语言规则简单，直接针对AutoCAD，易学易用，AutoCAD的绝大多数命令可直接调用，参数化绘图是其典型的应用之一。
1 参数化绘图设计原理及步骤所谓参数化就是将图形的有关几何关系、约束关系有机地结合起来，从而构成一个完整的参数化模型。
当设计人员改变图形的某一参数时，模型能根据尺寸及几何约束等自动计算出满足约束关系的工程图形。
参数化编程方法的实质，就是将图形信息记录在程序中。
它用一组变量记录图形的几何参数，用一些约束条件或者赋值语句来表达几何参数与结构参数之间的关系，再用一些绘图语句来表述图形的拓扑关系。
参数化方法快捷、高效，参数化绘图程序编写步骤是：①先进行图形结构特征分析，一般绘制一个零件的图样，需要很多尺寸，这就需要我们分析这个零件，确定图形中的关健几何尺寸及图形对象之间的依赖关系。
②从设计角度具体分析，确立不仅能体现零件的结构特征，又可以推导出其它尺寸的基本尺寸作为图形参数，并明确尺寸与图形参数之间的关系。
在AutoCAD图形平台中用Visual LISP语言编程对双曲线冷却塔筒壁模板分节进行计算摘要：完善了双曲线冷却塔筒壁模板分节施工数据的计算方法，回避曲线方程和解联立方程组。
AutoCAD和LISP交互工作，使该数据能更加精确地模拟筒壁外形曲线。
不论上环梁、下环梁采用指数变厚、线性变厚等不同设计情况，该程序均能完美解决。
关键词：AutoCAD；Visual LISP；双曲线冷却塔；分节计算；样条曲线一AutoCAD 和Visual LISP简介AutoCAD从1982首发到至今的AutoCAD 2019版本，广泛用于二维绘图、详细绘制，现已经成为国际上广为流行的绘图工具。
是一个较为成熟的绘图平台，它除了具有强大的编辑功能外，还具有图数互访的功能，图即是数，数即是图，矢量方式表达，虽经多极放大或缩小，仍能保持精度不变。
AutoLISP 是为二次开发AutoCAD而专门设计的，起源于LISP语言，是LISP语言和AutoCAD有机结合的产物，嵌入在AutoCAD内，针对AutoCAD增加了许多功能，具有AutoCAD强大的图形编辑功能的特点。
在AutoCAD 2000开始集成了Visual LISP语言，提供了更开放的二次开发环境。
它与AutoLISP完全兼容，又提供了AutoLISP的所有功能,能够访问AutoCAD的多文档环境，非常适合于图形的应用和计算。
它可以把AutoLISP程序和AutoCAD的绘图命令透明地结合起来，使设计和绘图完全融为一体，利用AutoLISP语言可以进行各种工程分析计算、自动绘制复杂的图形。
二分节计算冷却塔是火力发电厂中一个重要的水工构筑物。
目前大多数火力发电厂都采用双曲型自然通风冷却塔。
这种冷却塔的外形是由内、外筒壁表面曲线绕冷却塔中心轴旋转形成的壳体，其纵截面中心线（母线）就是双曲线。
筒壁模板施工是由底部逐渐向上循环交替进行的，直至塔顶，一般塔顶最后一节是非标准节。
基于Visual LISP语言的AUTOCAD参数化设计摘要本系统是以模块化设计和参数化设计为指导思想,以Visual LISP为编程语言和开发工具,对AutoCAD软件进行的二次开发。
研制出了界面友好的标准件图库系统和标准图幅调用系统，实现了设置绘图环境的自动化和绘制标准滚动轴承，从而提高绘图的质量和效率。
本文介绍了构建此系统所用到的CAD二次开发的主要方法和关键技术，包括CAD的Visual LISP集成开发技术，Visual BASIC对话框设计，Visual LISP 与VBA的交互式编程技术。
用户通过人机交互界面设置滚动轴承的关键参数，系统自动计算出绘制图块所需要的各点的坐标，调用绘图程序进行绘图；通过标准图幅调用系统，用户可以在交互界面设置所需要的图纸类型，绘图比例，系统将参数传输给调用模型，调用事先绘制好的标准图幅块并设置全局性比例，然后按1：1打印即可完成打印出图。
系统优点：标准图幅库是可编辑的，可以在AutoCAD环境下设置，使其符合企业的特殊要求；滚动轴承参数化模型完全按照国标要求编制，尺寸系列摘自国标不需要用户再查手册，也可以自定义。
关键词：Visual LISP；参数化绘图；二次开发；VBA；交互式编程；标准图幅；标准件库；滚动轴承参数化模型基于VisualLISP语言的AutoCAD参数化设计PARAMETRIC DESIGN AUTOCAD BASEDon Visual LISP LANGUAGEABSTRACTThe system is based on modular design and parametric design as the guiding ideology, as in Visual LISP programming language and development tools for the secondary development of AutoCAD software. Developed a user-friendly standard parts library system and the standard drawing system, which can automatically set the graphics environment and draw the standard rolling bearing, thereby enhancing the quality and efficiency of drawing.This article will describe the main methods and the major key technologies of CAD's secondary development including Visual LISP Integrated Development Technology, Visual BASIC dialog design and Visual LISP and VBA programming interactive. Users only need to enter the key parameters in the human-computer interaction interface, the system will calculate the necessary points coordinates which is needed in drawing and then draw the drawing. Through the drawing system, the user can select the required drawing frame, set the ratio of the drawing in the dialog box, the system automatically draw out the drawing frame and set overall ratio. Then, in accordance with the 1:1 print a drawing to complete the print. System Benefits: Standard Drawing Library is open source, can be set up in the AutoCAD environment, to meet the specific requirements of enterprises; rolling bearing models in full accordance with the requirements of the preparation of GB, GB size range from requiring users to re-check the manual, but also required to custom; procedures for open-source, standard parts library can be filled follow-up.KEYWORDS:Visual LISP；Parametric Drawing；The secondary development；VBA；Standard drawing frame目录1．绪论 (1)1.1课题背景及研究的目的和意义 (1)1.2目前国内外研究进展概述 (2)1.2.1AutoCAD发展趋势 (2)1.2.2CAD二次开发研究热点 (3)1.2.3 本文主要研究内容 (4)2．AUTOCAD二次开发工具 (6)2.1VISUALLISP编程方法 (6)2.1.1VisualLISP语言概要 (6)2.1.2AutoLISP基本函数 (6)2.1.3参数化绘图程序设计技术 (9)2.2VBA编程方法 (10)2.2.1VisualBasic语言概要 (10)2.2.2VBA IDE集成编程环境 (13)2.3VISUALLISP与VBA的交叉编程方法 (14)3．绘图环境的设置 (17)3.1设置图层、文字样式、标注样式 (17)3.1.1创建新图层 (17)3.1.2定义字样 (17)3.1.3 设置尺寸标注 (18)3.2绘制标准图框模板 (20)3.2.1绘制标准图幅 (20)3.2.2设置块属性 (21)3.3VBA制作绘图模板调用窗口及V ISUAL LISP编制调用程序.. 22基于VisualLISP语言的AutoCAD参数化设计3.3.1VBA制作调用窗口 (23)3.3.2Visual LISP编制调用程序 (28)4．VISUALLISP参数化编程 (30)4.1参数化图形的特点及应用 (30)4.2VISUALLISP编制标准滚动轴承参数化模型程序库 (30)4.3VBA编制标准件调用窗口 (34)4.4VBA与VISUALLISP交叉编程应用 (37)5．程序设计综合应用 (39)5.1程序检查和调试中的问题 (39)5.2VBA编程与VISUALLISP编程的数据传递 (40)5.3有关系统变量的应用举例 (42)5.4自定义工具栏应用举例 (43)结论 (46)参考文献 (46)致谢 (47)1．绪论1.1课题背景及研究的目的和意义众所周知，AutoCAD 是目前在Windows95/ 98/ 2000/ NT /XP环境下应用最广泛、使用人数最多的CAD 软件, 以其完善的绘图功能、良好的用户界面、易学易用的特点，受到了广大工程技术人员的普遍欢迎。
但AutoCAD 提供给我们的只是一般的通用CAD功能,如绘图、编辑、标注等，难以满足机械行业的一些特殊要求。
AutoCAD之所以得到广泛应用，另一个重要原因在于它具有开放式的结构体系和众多的系列化产品,并为用户提供了多种二次开发的工具和方法。
使用AutoCAD 二次开发工具,用户可将项目中的计算和绘图过程通过高级语言编制相应的程序,运行该程序，则计算和绘图过程自动完成,不仅大大提高了设计效率,而且通过开发工具可定制出满足行业需要的专业化模块,如国内建筑行业的天正CAD 软件、机械行业的大恒CAD 系统等都是用AutoCAD 开发工具实现的。
因此为了使AutoCAD 真正适用于某一具体领域,或让其经常完成一些重复性的工作,最好利用AutoCAD 的开发工具对其进行二次开发。
我们在开始工程绘图前总要对绘图环境和绘图比例进行设置，每次都做重复的工作势必降低绘图效率；在一张复杂的工程图样中，往往包含着许多形状相似但参数不同的各类标准件，这使得设计中不可避免的要进行大量的标准件绘制工作，从而导致绘图效率降低，并容易出错。
工厂往往是生产某一类产品，其产品的特点常常形状几乎相同，只是大小不同，如果能进行参数化设计将大大提高工厂的设计及产品的应变能力。
本文阐述了综合利用AutoCAD内置的二次开发工具VLISP和VBA及数据库技术，实现图形的参数化设计的具体过程。
课题对AutoCAD二次开发所用到的关键技术进行了比较深入的探讨和比较，并完成了标准图幅的块调用和标准滚动轴承参数化设计工作。
使用户在进行绘图时通过简单命令就可以实现所需图纸绘制，并根据绘图比例自动调整图纸缩放比例以适应1：1绘图的需求；绘图过程中用到的滚动轴承也可通过交互界面找到所需要的标准尺寸系列，自动将参数输入给参数化模块，并在指定位置绘制标准模块。
这种参数化绘图方法极大的提高了绘图效率。
当今CAD技术的主要潮流是参数化造型与变量化造型，而CAD的二次开发技术也正是基于这两大理论之上的。
CAD软件开发的目的是将设计出的软件系统作为设计工具来辅助具体的基于VisualLISP语言的AutoCAD参数化设计机械设计，为工程设计人员创造方便、灵活、高效的设计环境。
在软件开发中要用工程化思想指导开发：首先，二次开发必须符合工程设计的特点；其次，二次开发系统的设计过程应遵循软件工程的方法和步骤。
我们进行二次开发的方法是以机械工程理论及实践为基础，以软件工程论作指导，面向机械设计的实际问题来着手进行。
1.2 目前国内外研究进展概述1.2.1 AutoCAD发展趋势CAD技术作为成熟的普及技术已在企业中广泛应用，并已成为企业的现实生产力。
围绕企业创新设计能力的提高和网络计算环境的普及，CAD技术的发展趋势主要围绕在标准化、开放式、集成化、智能化四方面[7]。
1)标准化除了CAD支撑软件逐步实现ISO标准和工业标准外，面向应用的标准构件（零部件库）、标准化方法也已成为CAD系统中的必备内容，且向着合理化工程设计的应用方向发展。
