当前位置：文档之家 › 用AUTOLISP对AUTOCAD进行二次开发

用AUTOLISP对AUTOCAD进行二次开发

  • 格式：pdf
  • 大小：607.62 KB
  • 文档页数：14

下载文档原格式

  / 14

合集下载

基于AutoLISP的AutoCAD二次开发研究

基于AutoLISP的AutoCAD二次开发研究

基于AutoLISP 的AutoCAD 二次开发研究Reaserch on AutoCAD secondary development based on AutoLISP崔联合，于华艳，刘 江，万文龙CUI Lian-he, YU Hua-yan, LIU Jiang, WAN Wen-long（常州机电职业技术学院，常州 213164）摘 要：为提高AutoCAD软件的绘制效率和定向功能。

采用Autolisp对AutoCAD软件进行二次开发，以实例介绍了应用Autolisp对AutoCAD进行二次开发的过程。

软件系统可快速开发出各类零件的命令集，通过输入相应尺寸能实现零件的快速绘制。

Autolisp开发工具能实现AutoCAD 的定向开发，提高AutoCAD的绘图效率和准确性。

关键词：Auto CAD；AutoLISP；二次开发；销轴中图分类号：TP391.7; TH132.417 文献标识码：A 文章编号：1009-0134(2019)02-0047-04收稿日期：2018-05-11作者简介：崔联合（1968 -），男，安徽铜陵人，教授，硕士，主要从事材料成形及机械制造等方面的教学与科研工作。

0 引言Autolisp 是美国Autodesk 公司开发的lisp 语言，该语言因语法简单、函数强大、编写环境宽、直译等特点，而在AUTOCAD 软件的二次开发方面得到广泛应用，特别是在机械行业，其影响及普及程度处于最重要地位。

为了进一步扩充该软件的功能和应用行业，专业人士应用AutoLISP 技术对AUTOCAD 进行二次开发的研究一直没有停止过，也取得了较丰硕的成果。

谢中梅等[1]用Auto LISP 和Visual Basic 开发的程序，完成了AUTOCAD 软件图表的设计；张勇[2]研究了基于特定设计对象，AutoCAD 的二次开发系统；张洪雷[3]应用AutoLISP 技术，就如何制定产品结构和生产方案进行了研究；邱林[4]等用AutoLISP 编程，对渐开线弧齿圆柱齿轮实现了参数化建模。

基于AutoLISP的方圆过渡接头展开放样图绘图命令的二次开发

基于AutoLISP的方圆过渡接头展开放样图绘图命令的二次开发

2020年第22期信思与电脑China Computer & Communication基于AutoLISP 的方过渡接头展开放样图绘图命令的二次开发蓝海鹏（中国恩菲工程技术有限公司，北京100038 ）摘 要：通过AutoLISP 语言对AutoCAD 进行二次开发，采用对话框交互方式获取参数，利用AutoCAD 强大的命令工 具并借助三维图形，实现了方圆过渡接头展开放样图的自动绘制，避免了烦琐的数学解析和公式推导，提高了工作效率 和准确性。

关键词：AutoLISP;二次开发；展开放样；自动制图中图分类号：TH136； TP391.72 文献标识码：A 文章编号：1003-9767 （2020） 22-045-04Drawing Command Secondary Development for Lofting of HemisphericalDome Based on AutoLISP LAN Haipeng(China ENFI Engineering Corporation, Beijing 100038, China)Abstract ： The secondary development of AutoCAD is carried out through AutoLISP language, parameters are obtained through dialog box interaction, the powerful command tool of AutoCAD and three-dimensional graphics are used to realize the automatic drawing for Lofting of Hemispherical Dome, which avoids the tedious mathematical analysis and formula derivation, and improves the work efficiency and accuracy.Keywords ： AutoLISP; secondary development; lofting; automatic drawing0引言方圆过渡接头又称“天圆地方”，是指方形管道与圆形 管道之间连接过渡的飯金构件，通常采用钢板弯折焊接而成, 在通风管道、料斗料槽等场合都有广泛应用。

AutoCAD软件的二次开发

AutoCAD软件的二次开发
例：_$(ssget “X”) 说明：返回一个包含图形文件中所有对象的选择集。
6. 实体名：为图形对象指定的16进制的数字标识。通过该标识，可找到实体在 图形数据库中的位置，并可进一步对其进行编辑。
例：_$(entlast) 说明：返回最后一个加入图形文件的对象的实体名
第110页/共54页
7. 2 AutoLISP程序设计语言
表的长度：表中的元素个数。
例：(1.0 1.0 0.0) (“this” “that” “the other”) (1 “ONE”) ((a b) c (c d))
长度： 3
3
2
3
长度：(+ 142 3)
(sin (*20.5 pi))
用表可以方便地构造出复杂的数据结构。
5. 选择集：一个或多个图形对象的集合，用户可通过AutoLISP程序向选择集添 加或者从选择集中删除图形对象。
第65页/共54页
7. 1 VisualLISP简介
五、VisualLISP: Autodesk公司为增强AutoLISP程序开发能力而设 计的软件工具。
Visual LISP集成开发环境的组成部分：
语法检查器：可识别错误的AutoLISP结构和内部函数调用中不合适的参数。 文件编译器：可改善程序的执行速度并提供一个有效的开发平台。
Heap：25000 bytes Stack（栈区域）：存储函数的变量和局部结构。标准表中嵌套的表越多，函数执行的 递归次数越多，该区域所占的空间越大。
Stack：20000 byets
注意：AutoCAD平台上运行AutoLISP时，用户不能扩展系统的堆或栈空间
2. 内存出错提示信息
堆空间用光：Insufficient node space。 没有足够的内存装载AutoLISP：Insufficient memory-AutoLISP disabled。

基于AutoLisp的AutoCAD二次开发在测绘图形处理中的应用

基于AutoLisp的AutoCAD二次开发在测绘图形处理中的应用

基于AutoLisp的AutoCAD二次开发在测绘图形处理中的应用摘要：本文介绍了如何利用Autolisp语言对AutoCAD进行二次开发，并实现了根据断面图来半自动化生成高程点，其结果大大提高了根据断面图绘制平面图的质量和速度。

关键词：AutoCAD Autolisp 自动化程序断面1引言在实际的测绘生产工作中，我们经常会遇到利用已有的断面图来绘制平面图进而复原地形的情况，想要绘制平面图高程点元素是必不可少的，那么我们就必须根据已有的断面图来生成相应的高程点。

本文介绍了如何利用Autolisp语言在AutoCAD中实现根据设计断面图半自动化生成高程点，简化了原来利用AutoCAD测距量取距离，计算桩号、偏距、高程，再用Cass交互展点画出高程点的生成办法，在提高了准确率的同时也提高了工作效率。

2 Autolisp简介Autolisp是由Autodesk公司开发的一种LISP程序语言，LISP是List Processor（表处理程序）的缩写。

LISP语言具有语法简单，通俗易懂等特点，通过autolisp编程，可以节省工程师很多时间。

AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具[[1]]。

在工程测量领域中，AutoCAD得到了普遍应用，在日常工作中有许多人在研究使用AutoCAD，并画出了很多工程图纸。

然而，人们经常会感觉到作图效率还是不够高，这是因为AutoCAD是一个通用的绘图软件，并不具备专业特色。

AutoCAD开放的结构为不同的使用者留出了广阔的空间，提供了许多二次开发工具，AutoLISP是其中最强大的一个，Autolisp是AutoCAD自带的一门编程语言，无需安装，是为扩展和自定义AutoCAD功能而设计的编程语言，Autolisp易于使用，并且非常灵活，多年来一直是自定义AutoCAD的标准。

Autolisp嵌入AutoCAD内部，它不仅具有一般高级语言的基本结构和功能，而且还具有强大的图形处理和数据交换功能。

应用AutoLISP和DCL对AutoCAD的二次开发

应用AutoLISP和DCL对AutoCAD的二次开发

应用AutoLISP和DCL对AutoCAD的二次开发苗现华,吴传山(健雄职业技术学院，江苏太仓215411)摘要：通过实例说明，应用AutoLISP和DCL，能够编写出人机交互强，功能强大的程序，对AutoCAD进行十分有效的二次开发，从而提高绘图效率，并使AutoCAD真正地起到辅助设计作用。

关键词：AutoLISP；DCL；AutoCAD；二次开发中图分类号：TP391.72 文献标识码：A１.概述AutoCAD是当今风靡世界的CAD应用软件，为了提高其绘图效率，增强其设计能力，常会用到AutoLISP及DCL对其进行二次开发[1]。

由于AutoLISP及DCL均附着于AutoCAD软件内，AutoLISP是编写绘图、编辑图形等程序的表处理语言，易学易用且功能强大；DCL是用户对话框设计语言，可设计出简洁、美观且人机交互强的用户对话框。

二者配合使用，对AutoCAD有着强大的二次开发能力。

以双头螺柱为例,说明如何应用AutoLISP和DCL对AutoCAD进行二次开发及开发效果。

２.开发流程２.1 用DCL编写用户对话框界面根据设计意图，编写用户对话框，如图１所示。

图１用户对话框界面用户点击图中单选按钮，选取绘图所需的国标及等级代号，右侧则展现对应螺柱样式的图片。

在图中下拉列表框中选取所需公称直径d和公称长度l，选取或输入所需旋转角度angle，点击“确定”按钮在AutoCAD 界面中绘出所希望的双头螺柱。

对话框文件取名为stlz.dcl，源程序如下：stlz:dialog{label=“双头螺柱”;:row{:boxed_radio_column{label="国标及等级代号";:radio_button{ label="GB/T 897-1988 A";key="k897A";}:radio_button{ label="GB/T 897-1988 B";key="k897B";}:radio_button{ label="GB/T 898-1988 A";key="k898A";}:radio_button{ label="GB/T 898-1988 B";key="k898B";}:radio_button{ label="GB/T 899-1988 A";key="k899A";}:radio_button{ label="GB/T 899-1988 B";key="k899B";}:radio_button{ label="GB/T 900-1988 A";key="k900A";}:radio_button{ label="GB/T 900-1988 B";key="k900B";}}:image{key="kimage";color=-2;width=30;aspect_ratio=1;}}:row{:popup_list{label="公称直径d";edit_width=4;key="kpopd";}:popup_list{label="公称长度l";edit_width=4;key="kpopl";}:popup_list{label="旋转角度angle";edit_width=4;key="kpopa";}:edit_box{edit_width=4;key="ke box";}}spacer_1;ok_cancel;}２.2 制作SLD文件为了实现用户对话框中的八种类型的双头螺柱的图像显示,首先在AutoCAD软件的绘图区域中分别绘制这八种类型的双头螺柱,然后在命令行中输入“mslide”命令,分别创建相应的幻灯片文件,文件分别命名为stlz1. sld~stlz8.sld。

基于AuTOlISP(defun s16()编程语言的AUTOCAD二次开发

基于AuTOlISP(defun s16()编程语言的AUTOCAD二次开发

(defun s1()(SETQ dcl_id_1(LOAD_DIALOG "C:/zhou.DCL"))(setq do_what_1 2)(while (>= do_what_1 2)(if (= null (new_dialog "s1" dcl_id_1))(progn(princ "\n未能显示对话框。

")(setq dialogshow nil)(exit));end progn);end if(S_IMG_zhou "img_1")(ACTION_TILE "dt_1""(set_tile $key $value)(act_1)(if(> dt_1 130)(done_dialog 4))") (ACTION_TILE "sll_1""(set_tile $key $value)(act_1)(if (< sll_1 sl_1)(done_dialog 2))") (ACTION_TILE "rt_1""(set_tile $key $value)")(ACTION_TILE "ct_1""(set_tile $key $value)")(ACTION_TILE "pick_1""(setq hhh 0)(done_dialog 5)")(ACTION_TILE "at_1""(set_tile $key $value)(act_1)(if (> at_1 90)(done_dialog 3))") (ACTION_TILE "sl_1" "(set_tile $key $value)(act_1)(if (< sll_1 sl_1)(done_dialog 2))") (ACTION_TILE "cancle" "(done_dialog 0)")(ACTION_TILE "accept" "(act_1)(if (/= hhh 0)(done_dialog 6)(setq hhh 1))(done_dialog 1)");(setq do_what_1 (start_dialog))(cond ((= do_what_1 1)(setq pst_1 (list xx_1 yy_1)))((= do_what_1 2)(alert "L1应小于L2\n请重新输入"))((= do_what_1 3)(alert "请输入0到90之间的数"))((= do_what_1 4)(alert "您输入的轴径太大\n请输入0到130之间的数"))((= do_what_1 5)(command "osnap" "end,int,mid")(setq ps_1(getpoint "请您点取p1点:"))(command "osnap" "off")(setq xx_1(car ps_1) yy_1(cadr ps_1)))((= do_what_1 6)(alert "请您点取p1点!")));end cond);end while(unload_dialog dcl_id_1)(if (> do_what_1 0)(draw_1))(setvar"osmode"osmode)(setvar"cmdecho"cmdecho)(setvar"blipmode"blipmode);恢复系统变量，不影响原有操作。

Autolisp在CAD二次开发中的应用 毕业论文

本科毕业论文(设计）题目：应用Auto lisp在南方CASS中批量处理图形数据学院：山西大同大学煤炭工程学院班级：07测绘一班姓名：付智华指导教师：徐广翔职称:副教授完成日期: 2011 年 6 月 15 日山西大同大学2011 届本科毕业论文（设计)选题审批表学院:煤炭工程学院系别：采矿工程系专业(专业方向)：测绘工程山西大同大学2011届本科毕业论文（设计）开题报告AutoLisp ExamplesAuto lisp BasicsAuto lisp is the grand daddy of Auto CAD programming tools and you’d be amazed at the amount of Auto lisp programming tools you can find on the Internet. Given a little knowledge you can integrate existing Auto lisp routines into your own and gain tremendous power over your AutoCAD based installation.The first thing to understand is that Auto lisp has a couple of key files and a key function that perform startup operations for you。

The key files are called ACAD。

LSP and ACADDOC。

LSP and the key function is called S：：STARTUP and their operations are as summarized here：ACAD。

LSP – This file loads when AutoCAD starts up. Any programming you place within this file will be automatically loaded every time AutoCAD starts。

基于Autolisp的AutoCAD采点功能二次开发

基于Autolisp的AutoCAD采点功能二次开发作者：范大宇来源：《中国新技术新产品》2015年第20期摘要：Autolisp是一种嵌套在AutoCAD内部的编程语言，它是LISP语言和AutoCAD有机结合的产物，Autolisp是针对AutoCAD二次开发而专门设计的编程语言。

在传统车加工手动编程中，首先在AutoCAD中绘制一比一图形，在使用Autolisp中自带的定位点功能，使用鼠标进行采点操作，将显示的坐标X、Y复制到程序文档中，更改坐标轴字母，这样程序中所需要的点位就采集完毕，这样的一个点接一个点的处理方法既效率低下又极易发生错误。

关键词：Autolisp；二次开发；数控车中图分类号：TP391 文献标识码：A1 引言AutoCAD软件作为基础绘图软件，已经大量应用于机械行业和建筑行业。

本文主要论述的是在机械行业中，应用Autolisp对AutoCAD进行二次开发，开发手动采点功能，进而应用在数控程序的编制中。

2 简介通过使用Autolisp对AutoCAD进行二次开发，开发出专门进行采点的程序插件，只需在AutoCAD中的一比一图形上进行鼠标连续点击，对应的点位即保存到固定路径的文件中，对应的数控程序字母，极大的提高的程序编制效率。

3 总体方案3.1 新件文件操作由于该程序将采集点位保存到固定路径的文件中，所以在程序开始部位，我们先要在该路径新件文件。

通过open命令，尝试打开D盘根目录下名字为“cnc.txt”的文件，然后关闭文件；如果该文件不存在，则在D盘根目录下新建一个名字为“cnc.txt”的文件，并且打开文件然后关闭文件。

该操作的子程序名为writef2，如下：当成功进行一次采点操作后，进行第二此采点操作时，需要先对“cnc.txt”文件进行清空操作，这样才能更好方便的进行第二此采点操作。

我们使用的仍然是open命令，挂载的”w”参数在判断出存在“cnc.txt”文件后即进行清空操作。

浅谈AutoLisp对AutoCAD的二次开发

科技信息
ｏ Ｉ Ｔ技术论坛０
Ｓ Ｉ Ｎ Ｅ＆Ｔ Ｈ ＯＬ ＹＩＦ Ｒ ＴＯ ＣＥ Ｃ ＥＣ Ｎ ＯＧ Ｏ ＭＡ Ｉ Ｎ Ｎ
２０ ０ ８年
第３ １期
浅谈 Ａ ｔＬｓ 对 Ａ ｔ Ｄ的二次开发 ｕｏ ｉ ｐ ｕｏ Ａ Ｃ
杜 伟
（ 山东省胜 利油 田地 质科 ． ｔＬｓ Ａ ｐ语 言 概 述
语 言 又 称 为符 号 语 言 、 数 式语 言 。 它 的 语 言 中 ， 基 本 的 数 据 函 在 最 类 型 是 符 号 表 达式 ， 理 符 号 是 Ａｕｏｉ 处 ｔＬｓ 特 性之 一 Ｌｓ 容 易 定 ｐ的 ｉ ｐ很
量 可具 有 不 同 的 值 。 动态 辖 域 能 简 化程 序 编 码 工 作 ， 需 为 编 写 的 每 无
件 的功 能 齐 全 ， 能优 良 ， 完 成 了 商 品化 和 工 程 化 的 需 求 ， 此 在 国 性 并 因 内市 场 占有 很 大 的份 额 。然 而此 类 商 品 化 的 Ｃ Ｄ 软 件 一 般 都 是通 用 Ａ
化 软 件 ， 户 在 应 用时 必 须 依 据 各 自行 业 的特 点 进 行 不 同 程 度 的 二 次 保 证该 程 序所 需 函 数 的 同 时 装 入 。 并 应 在 “ 持 文 件 搜 索 路 径 ” 用 支 中指 开发 ， 能 发 挥 出 应有 的效 益 。Ｃ Ｄ进 口软 件 的 二 次 开发 更 是 具 有 实 定 ．Ｓ 方 Ａ Ｌ Ｐ文 件 路径 。 际应 用 价 值 的 科研 课 题 。
【 摘
２７ １） ５ ０ ５
要 】 Ａ 软件 的 强大 功 能 与通 用化 设 计 ， 用户 选 择 时 必 须 综合 考 虑 的 一 对 矛 盾 体 。在 此 背景 下 ， Ａ ＣＤ 是 Ｃ Ｄ软 件 的 二 次开 发 具 有很 高 的

浅谈基于AutoLISP的AutoCAD二次开发技术

浅谈基于ＡｕｔｏＬＩＳＰ的ＡｕｔｏＣＡＤ二次开发技术在以AutoCAD制图的工程应用中，经常需要开发一些符合工程需求的AutoCAD工具。

AutoLISP语言是一种对AutoCAD进行二次开发的灵活手段。

本文通过一个从上到下逐行写文本的简单程序，探讨了基于AutoLISP的AutoCAD二次开发程序设计的基本步骤和具体实现过程。

标签：AutoCAD AutoLISP 二次开发AutoCAD是由美国Autodesk公司开发的通用计算机辅助绘图和设计软件包，它具有易于掌握、使用方便、体系开放等特点。

已广泛应用于机械、建筑、电子、土木工程、轻工等各个领域。

目前AutoCAD最新的版本是AutoCAD2006。

一、AutoLISP及二次开发的概念AutoLISP 语言是嵌入在AutoCAD内部的LISP编程语言，它是LISP语言与AutoCAD有机结合的产物。

AutoLISP的嵌入使AutoCAD真正成为能进行计算机辅助设计、绘图的CAD软件。

在使用AutoCAD制图中，大量操作都是通过鼠标点击控件和键盘输入相应参数组合实现的。

有时在制图过程中会需要做大量重复的操作，这些操作又具有一定的规律。

那么，便可以通过AutoLISP开发出AutoCAD中可以使用的自定义控件，在点击该控件后，大量繁琐的执行过程交由后台执行，用户仅需输入一些必要的参数，即可实现制图效果。

这种方法就是所谓的“二次开发”。

显然，二次开发能够提高工作的效率和减轻工作量。

二、使用AutoLISP进行二次开发的实例及过程剖析（一）题目。

下面通过编写一个从上到下逐行写文本的小程序段来简要分析AutoLISP的开发过程。

题目要求如下：1. 用户只需点击一个自定义工具按钮，系统即会提示用户输入首行文本所在位置、相邻两行文本偏移量、文本高度这三个参数。

其中，首行文本所在位置由鼠标在屏幕上点击获得，文本高度默认值为4。

2. 用户依次输入文本，回车表示结束当行输入。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

";
:row{ :edit_box{ label="密度ρ key="rho"; fixed_width=true; width=5; }
";
:text{ label="kg/m3"; } }
} } :row{ :column{ :row{ :edit_box{ label="热容 c key="c"; fixed_width=true; width=5; alignment=centered; } :text{ label="J/(kg·K)"; } } :row{ :edit_box{ label="合金液相线温度 T_L"; key="T_L"; fixed_width=true; width=5; alignment=centered; } :text{ label="K"; } }
图3
加载用户自定义的菜单文件
（5）绘制对话框――DCL 语言 第一步：打开 Visual LISP 编辑器 操作同图 2。 第二步：创建用户自定义对话框文件 打开 Visual LISP 编辑器后，在文本框中输入生成用户自定义对话框的代码，写好后将文件保存，扩展 名为.dcl。例如： solidification_coefficient:dialog { label="计算凝固系数 K"; :text{ label="说明：根据合金的热物理特性计算凝固系数 K"; } :boxed_row{
:edit_box{ label="即 mm/s(1/2)"; key="K"; fixed_width=true; width=5; alignment=left; } } :row{
:button{ label="计算"; key="begin"; fixed_width=true; width=5; } ok_only; } } } 重要的一步：工具菜单选项文件支持文件搜索路径（要包含上述所建各类文件的路径） （6）编译及维护 AutoLISP 程序，形成独立应用程序 在 Visual LISP 中，用户可以编译自己的程序，并创建一个单独的可供其他用户使用的可执行模块。 Visual LISP 可将 AutoLISP 程序文件编译成可执行的程序模块以提高程序运行效率和源代码的安全性。 Visual LISP 提供了一套编译器来解决这些问题。通过这个编译器，用户可以将源代码编译成可执行机器码 文件，即 FAS 文件。源代码在编译后，可以直接在 Auto CAD 中加载运行，运行效率提高了，而且程序源 代码是保密的，甚至于源代码中的字符串与符号也会被 Visual LISP 的编译器加密。 此外，Visual LISP 还可以将更复杂的 AutoLISP 应用封装进 Visual LISP 可执行文件（VLX）中。VLX 文件中还可以包括其他的资源文件，例如 VBA 和 DCL 文件以及编译过的 AutoLISP 文件。
label="输入合金的热物性参数和凝固温度"; :row{ :column{ :row{ :edit_box{ label="导热率λ key="lambda"; fixed_width=true; width=5; } :text{ label="W/(m·K)"; } } :row{ :edit_box{ label="结晶潜热 L"; key="L"; fixed_width=true; width=5; } :text{ label="J/kg"; } }
（4）添加用户自定义菜单 当我们开发出的程序越来越多的时候，用工具按钮的形式来执行它们会占用绘图的空间，而且也不便 于管理。这种情况下就有必要将众多的程序分类，相同种类的程序写入同一个菜单文件中，便于将来查找 和执行。具体的开发步骤为： 第一步：打开 Visual LISP 编辑器
图 2 打开 Visual LISP 编辑器 第二步：创建用户自定义的菜单文件 打开 Visual LISP 编辑器后，在文本框中输入生成用户自定义菜单的代码，写好后将文件保存，扩展名 为.mnu。例如： ***MENUGROUP=MYLISP ;;用户自定义菜单组名 MYLISP ***pop1 ;;第一个菜单 [中间包] ;;第一个菜单名称 [ 初 等 函 数 曲 线 绘 制 ] ^C^C^P(load "curve of function")(load "csin")(load "cparabola")(curve_of_function) ;;命令的名称、加载操作和执行操作 [->复合函数曲线绘制] ;;子菜单名称，->表示生成的是子菜单 [抛物线与正弦曲线的叠加] ^C^C^P(load "cpara_sine") (cparasine) [抛物线与余弦曲线的叠加] ^C^C^P(load "cpara_cos") (cparacos) [--] ;;各命令之间的横线 [<-圆环面积与内径的关系曲线(&C)] ^C^C^P(load "cirque") (cirque) ;;<-表示子菜单结束 [挡板内外面积比的计算] ^C^C^P(load "stotal")(load "sdio")(stotal) ***pop2 ;;第二个菜单 "ccos")(load
用 AutoLISP 对 AutoCAD 进行二次开发
一、什么是 CAD 的二次开发？（为什么需要对 CAD 进行二次开发） 我们在设计、绘图时采用 AutoCAD、ProE、Solidwork、UG 等设计软件，在复杂问题或特殊用途的设 计中，各种软件的原有功能往往难以解决问题，例如 CAD 里没有直接绘制正弦曲线和抛物线等曲线的命 令。因此，只是会使用各软件的基本功能是不够的，根据我们的特殊用途进行软件的用户化定制和二次开 发，往往能够大大提高工作效率和技术水平。 二、什么是 AutoLisp ？如何用其进行二次开发？ AutoLISP 是由 Autodesk 公司开发的一种 LISP 程序语言， LISP 是 List Processor 的缩写。 通过 autolisp 编程，可以节省工程师很多时间。AutoLISP 语言作为嵌入在 AutoCAD 内部的具有智能特点的编程语言， 是开发应用 AutoCAD 不可缺少的工具。 当前 AutoCAD 的二次开发工具主要有： VisualLisp （它是 AutoLisp 的集成开发环境） 、 VBA 、 ObjectARX 和 .NET API 等，这里只介绍 AutoLisp 。 下面由浅入深地介绍一下如何应用 AutolLisp 进行二次开发。 最简单的应用是在命令行中编写和执行 lisp 语句，进行简单的计算、绘图、查询等操作。 稍复杂些的就要把语句（代码）放到扩展名为 lsp 的文件中，用的时候先加载到 CAD 中，然后输入自 定义的函数名执行。 当开发的程序越来越多，就需要进行有效的管理，使我们能方便的找到和应用这些程序。到那个程度 的时候就需要用到用户自定义的工具按钮、菜单和对话框了。图1Biblioteka 根据程序数量选择二次开发形式
（1）在命令行中编写和执行程序 例 1： (+ 2 3) 例 2： (setq a 2) (setq b 3) (+ a b) 例 3： (setq a 2)(setq b 3)(+ a b) 例 4：(setq p1 (list 0 0))(setq p2 (list 200 200))(command “line” p1 p2 “”) ;;语句之间不空格 例 5：(setq p1 (list 0 0)) (setq p2 (list 200 200)) (command “line” p1 p2 “”) ;;语句之间空格 ;; 表示语句（程序代码）的注释 （2）用 lisp 文件编写和执行程序
第一步：在文本中编写和保存 AutoLISP 程序，文件扩展名为.lsp (defun c:sin(/ lp lpx lpy N x step) ;; c:和自定义函数名 sin 之间不能有空格 (initget 1) (setq lp (getpoint "\n Left point:") lpx (car lp) lpy (cadr lp)) (initget 7) (setq N (getint "\Nnumber of cyles:")) (setq x 0 step 0.02) (command "pline" ) (While (< x (* 2 N pi)) (command (list (+ (car lp) x) (+ (cadr lp)(sin x))) ) (setq x (+ x step)) ) (command "line" lp (list (+ lpx (* 2 N pi)) lpy) "") (command "line" lp (list lpx (+ lpy 2))(list lpx (- lpy 2)) "") ;;注意这里用的是空的双引号“” ，中 间不空格 (command) ) 第二步：AutoLISP 程序的加载和运行 在命令行中输入 appload（或 ap） ，在弹出的“加载/卸载应用程序”对话框中选择第一步保存的*.lsp 文件。单击“加载” “关闭” 。 执行自定义函数前先将“对象捕捉”功能关闭。运行自定义函数的过程和执行 CAD 标准函数（命令） 是一样的，只要在命令行中输入函数名即可。 （3）添加用户工具按钮 工具按钮能够快速、高效启动 AutoLisp 的应用程序。为了更方便的管理和应用我们的 lisp 应用程序。 我们要学会创建用户自定义工具栏，并向新工具栏中添加新的工具按钮，点击这些按钮便可以很方便地执 行我们自己定义的应用程序。 第一步：创建新工具栏 将鼠标移动到任意一个工具按钮上，单击鼠标右键。 在弹出的菜单最下端找到“自定义(C)...”对话框，左键单击。弹出“自定义用户界面”对话框。右键 单击工具栏图标新建一个用户自定义工具栏，命名这个新工具栏。 第二步：向新工具栏添加按钮 在“自定义用户界面”对话框的左下角的命令列表栏中单击“新建”按钮建立一个新命令。按住左键 不放，将新的命令按钮拖到第一步新建的工具栏内。这样工具栏里便添加了第一个命令，用此方法可以给 工具栏添加多个新按钮。 第三步：定制工具按钮属性 新的工具按钮刚添加到工具栏内的时候是不能执行命令的，需要给它添加属性。 在“自定义用户界面”对话框的右侧可以编辑按钮的图像和属性。其中最重要的是“特性”里的“宏” 一栏。 将上面 pwx.lsp 文件的路径和命令名输入到 “宏” 后面的文本框内， 例如： ^C^C^P(load"/F:/Autolisp Program/My Lisp/sin.lsp");sin;^P 单击确定退出“自定义用户界面”对话框。这时在 CAD 的工具栏中会多出一个用户刚才自定义的新 按钮。单击它便可以执行相应的程序。