AutoCAD二次开发所用的autolisp函数

例：_$(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。

6. 文件描述符（FILE） 文件描述符（ ）
文件描述符是AutoLISP赋于被打开文件的标识号，它类似于 赋于被打开文件的标识号， 文件描述符是 赋于被打开文件的标识号 文件指针。 下面的例子是以“ 读 ” 的方式打开文件myfile.dat， 文件指针。 下面的例子是以“ 的方式打开文件 ， 并将该文件的描述符赋予符号f1。 并将该文件的描述符赋予符号 。 (setq f1 (open "myfile.dat" "r")) 返回 返回<File:#34614>
2.2 变量 2.2.1 符号
符号（ 符号（SYMBOL）可以理解为标识，用来作为变量、函数 ）可以理解为标识，用来作为变量、 的名字。它的命名规则是不能只含数字， 的名字。它的命名规则是不能只含数字，可以由下列字符以 外的任何可打印的字符所组成： 外的任何可打印的字符所组成： “（”、“）”、“·”、“'”、“"”、“；” 、 、 、 例如， 、 是合法的符号， 、 、 、 例如 ， a1、b2 、 c_3是合法的符号，(a、)b、.c、’4、"5 是合法的符号 、 是非法的符号。注意： 、 、 、 、 、 、 、 、 是非法的符号。 注意： [1]、{2}、~3、!4、/5、1a、3c、-d、 +e、b-2、c*3也是合法的符号， 这是与多数计算机语言的不 、 、 也是合法的符号， 也是合法的符号 同之处。 同之处。
表2-1常用控制字符的表示方法 控制字符 示 反斜杠“ 反斜杠“\” 双引号“ 双引号“"” Esc键 Esc键 换行 回车键 Tab键 Tab键 \e \n \r \t \\ \" \033 \012 \015 \011 \134 \042 用“\”为前导字符 为前导字符 为前导的ASCII 用“\”为前导的ASCII码表 为前导的ASCII码表

第7章 AUTOLISP实训
7.2 设置图层、颜色、线型和线宽
2. 设置新图形对象的颜色 1）通过command函数设置新图形对象的颜色 (command "color" 3) 或 (command "color" "green") 颜色为绿色 (setvar "cecolor" "2")或 ；设置新图形对象的
第7章 AUTOLISP实训
7.1设置作图环境
3. 设置目标捕捉的类型 交互式操作时，目标捕捉类型的选项是字符串，它以编码的形式记录在系 统变量osmode内。例如： 1）通过command函数设置目标捕捉的类型 (command "osnap" "endpoint,midpoint,center") 中点和中心 (command "osnap" "none") 类型 2）通过setvar函数设置目标捕捉的类型 ；捕捉端点、 ；不捕捉任何
第7章 AUTOLISP实训
7.3 AutoLISP程序设计的六个步骤
编写程序的预期目标； Step1
Step2 设计程序流程、需要的AutoLISP功能函数、变量及相 关提示信息； Step3 利用Visual LISP编辑器编写xxx.lsp源程序； Step4 在AutoCAD命令提示下加载AutoLISP程序，（ load”lsp文件名”）,或是在VisualLISP控制台加载 AutoLISP程序； Step5 运行加载成功的AutoLISP程序； Step6 加入AutoLISP程序至“工具条”或“MENU菜单中”的 方法可参阅相关资料，建议最好参阅VisualLISP的帮助文 档。

5.5 打开、关闭文件的函数 【例2】 若将一条直线段的两端点坐标写入到一个文件中，则 可以：
(SETQ fi(GETSTRING "Enter file name："))
(SETQ f(OPEN fi "w"))
(SETQ P1(GETPOINT "first point:"))
(PRINC Pl f)
采用缩进格式书写，形式如下：
(defun fun (x)
(cond((> x 0) 1)
((= x 0) 2)
((< x 0) 0)
)
☆)☆ 第5章 AutoLISP文件
4
第5章 AutoLISP文件
5.2 程序中的注释 注释能够增加程序的可读性，不仅便于对程序的阅读和调
试，也便于对程序的维护、移植和扩充。 注释的形式可以是整行、整段或行间注释。 整行或后半行注释以分号“；”开头，至行尾为注释部分
15
第5章 AutoLISP文件
5.6 用于文件的输入输出函数 1．(READ [符串])
[符串]参数不能在表或字符串外包含空格。
返回值：READ函数将其参数转换成相应的数据类型后返回。
如果未指定参数，READ返回NIL。
如果字符串中包含由空格、换行符、制表符或括号等LISP分
隔符分开的多个词，则只返回其中的第一个词。
(SETQ f (OPEN “new.tst” “w”))
返回值<FILE # 0017>
(SETQ f (OPEN “old.txt” “w”))
返回值<FILE # 002>
OPEN函数的返回值实际上是一个文件指针。文件指针的指向

第3章 AutoLISP基本函数
3.1.1 计算函数 11．(LOG <数>) 该函数是EXP的反函数，返回值为<数>的自然对数值，其 数据类型为实型数。 例如：
(LOG (LOG (LOG (LOG
3) 返回1.098610 1) 返回0.00000 1.22) 返回0.198850 -90) 返回错误：没有为参数定义函数: -90
(ATAN -1.0) 返回-0.785398(弧度)，即-45° 如果<数1>和<数2>都存在了，则返回<数1>/<数2>的反正切 值(单位为弧度)。 (ATAN 2.0 3.0) 返回值0.588002(弧度) (ATAN 2.0 -3.0) 返回值2.553590(弧度) (ATAN -2.0 3.0) 返回值-0.588002(弧度) (ATAN -2.0 -3.0) 返回值-2.553590(弧度)
第3章 AutoLISP基本函数
3.1.1 计算函数 5．(/ <数1> <数2>…) 本函数返回<数1>除以<数2>，再除以<数3>…依次做除法运 算的结果。如果仅提供了一个<数>，则返回<数>除以1的 结果。
各个<数>类型不同，计算结果不同，返回值类型也不同。 例如： （/ 9 2） 返回值4 （/ 9 2.0） 返回值4.5000 (/ 9 (/ 2 3)) error：divide by zero (/ 9 (/ 2.0 3)) 返回13.5000 (/ 4) 返回4 （相当于4÷1=4）
返回4.0700 返回9.0000 返回-1 返回9.0000 返回2.0

;====================================================== (defun 7inputI ()(setvar "osmode" os)(PRINC "\n")(PRINC FNUM)(setq st (getstring "\nCan i help you OR End the process <Y/S/P/C>"))(if (or (= st "y") (= st "Y"))(progn(command "find")(setq st (getstring "\nCan i help you OR End the process <Y/S/P/C>")) ))(if (or (= st "S") (= st "s"))(progn(setq sca (getint "\nSpecify the scale of view: "))(setqst (getstring "\nCan i help you OR End the process <Y/P/C>"))))(if (or (= st "c") (= st "C"))(setq whinum 200));=======================(if (or (= st "p") (= st "P"))(progn(setq p0 (getpoint "\nSpecify the first point: ")p1 (getpoint "\nSpecify the second point: ")p2 (getpoint "\nSpecify the first point: ")p3 (getpoint "\nSpecify the second point: "))(if (> (* sca (distance p0 p1)) (* sca (distance p2 p3))) (progn(setq di (* sca (distance p0 p1)))(setq dii (* sca (distance p2 p3))))(progn(setq dii (* sca (distance p0 p1)))(setq di (* sca (distance p2 p3)))))(if (or (= unit 2) (and (= unit 4) (> di 24)))(setq inch (strcat " x " (rtos di unit prec) " LG.")))(if (and (= unit 4) (<= di 24))(setq inch (strcat " x " (rtos di 5 prec) "\"" " LG.")) )(if (or (= unit 2) (and (= unit 4) (> dii 24))) (setq inchi (strcat " x " (rtos dii unit prec))))(if (and (= unit 4) (<= dii 24))(setq inchi (strcat " x " (rtos dii 5 prec) "\"")))(setq inch (strcat inchi inch " FlatBar?"))(setvar "osmode" 1024)(command "text" pt1 "" fnum)(command "chprop" (entlast) "" "la" "Defpoints" "") (command "text" pt1a "" inch)(command "chprop" (entlast) "" "la" "Defpoints" "") ));=======================(if (= st "")(progn(setq p0 (getpoint "\nSpecify the first point: ") p1 (getpoint "\nSpecify the second point: "))(setq di (* sca (distance p0 p1)))(if (or (= unit 2) (and (= unit 4) (> di 24))) (setq inch (strcat " x " (rtos di unit prec) " LG.")) )(if (and (= unit 4) (<= di 24))(setq inch (strcat " x " (rtos di 5 prec) "\"" " LG.")) )(setvar "osmode" 1024)(command "text" pt1 "" fnum)(command "chprop" (entlast) "" "la" "Defpoints" "") (command "text" pt1a "" inch)(command "chprop" (entlast) "" "la" "Defpoints" "") (princ di)(princ "\n")(princ (rtos di unit prec))))(if (or (= st "e")(= st "E"))(progn(entdel (entlast))(entdel (entlast))(setq fnum (- fnum 2))(setq pt1 (polar pt1 (* pi 0.5) (* 2 thc))))));======================================================(defun c:7 (/ whinum sht unit prec th thc pdx pdy chkn chkna fnum pt0 pt1 pt1a chkd chknum scast p0 p1 p2 p3 dii di inch inchi os)(setvar "cmdecho" 0)(setq os (getvar "osmode"))(princ "\nCheck the length of material")(setq whinum 0)(setq sht (getstring "\nSpecify the name of sheet: "))(setq unit (getvar "lunits")prec (getvar "LUPREC"))(if (= unit 2)(progn (setq th 3)(setq thc 5)(setq pdx 215)(setq pdy 2)(setq prec 0))(progn (setq th 0.125)(setq thc 0.2756)(setq pdx 8.5)(setq pdy 0.0625)))(command "style" "STD70" "" th "" "" "" "" "")(setq chkn (ssget "x"(list '(0 . "TEXT")'(8 . "Defpoints")'(7 . "STD70");;; (cons 410 (strcat "SHT " sht)))))(setq chkna (ssget "x"(list '(0 . "TEXT")'(7 . "STD70");;; (cons 410 (strcat "SHT " sht)))))(if (= chkna nil)(progn (setq whinum 200)(princ "\nPlease change name of sheet (SHT X)"))(progn(if (= chkn nil)(progn(setvar "osmode" os)(setq fnum (atoi (strcat sht "01")))(setq pt0 (getpoint "\nSpecify the fix point:"))(setvar "osmode" 1024)(setq pt1 (polar (polar pt0 0 pdx) (/ pi 2) pdy))(setq pt1a (polar pt1 0 (* 6 pdy))))(progn(setq chkna (ssget "x"(list '(0 . "TEXT")'(8 . "Defpoints")'(7 . "STD70")(cons 1 (strcat sht "01"))(cons 410 (strcat "SHT " sht)))))(setq chkd (entget (ssname chkna 0)))(setq chknum (sslength chkn))(setq fnum (+ (atoi (strcat sht "01")) (/ chknum 2))) (setq pt0 (cdr (assoc 10 chkd)))(setvar "osmode" 1024)(setq pt1 (polar pt0 (* pi 1.5) (* (/ chknum 2) thc))) (setq pt1a (polar pt1 0 (* 6 pdy)))))(setq sca (getint "\nSpecify the scale of view: "))(while (< whinum 200)(7inputI)(setvar "osmode" 1024)(setq pt1 (polar pt1 (* pi 1.5) thc))(setq pt1a (polar pt1 0 (* 6 pdy)))(setq fnum (1+ fnum)))(princ "\nCheck Done")))(command "style" "STD85" "" th "" "" "" "" "") (setvar "osmode" os)(princ))Banquansuoyou,qingwuzhuanfa,xiexiehezuo。

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

浅谈基于ＡｕｔｏＬＩＳＰ的ＡｕｔｏＣＡＤ二次开发技术在以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. 用户依次输入文本，回车表示结束当行输入。

<C53=(F?&’’(6
>45?84 @ AH IJK
MSS O"MLL
%ABP8Q @ APMSS%ABR
<C53=(F?&’’(6>45?84@AHI JK
MSSO"MLL
IABP8Q@APMSSIABR
图 $ 编 辑 图 形 等 程 序 的 表 处 理 语 言 ! 易 学 易 用 且 功 能 强 大 #-. ) 是 用 户 对 话 框 设 计语 言 ! 可 设计 出 简 洁$ 美 观 且人 机 交 互强 的 用 户对 话 框 " 二者 配 合 使 用 ! 对 %&’(. %- 有 着 强 大 的二 次 开 发 能 力" 以 双 头 螺 柱为 例 2说 明 如 何 应 用 %&’() *+, 和 -. ) 对 %&’ (.%- 进 行 二 次开 发 及 开发 效 果 " R <=G578> P8 Q@A P=G578AB ;(4(C@O!B D=3’T@USB 59V8;’FC5’=(@"B R R <C(D> <V(V&VF4=9’>45?8 4@ A公 称直 径 3AB8 3=’FD=3’T@$BP8Q@APV(V3ABR <V(V&VF4=9’>45?8 4@ A公 称长 度 4AB8 3=’FD=3’T@$BP8Q@APV(V4A BR <V(V&VF4=9’>45?8 4@A 旋 转角 度 56748AB8 3=’ FD =3’T@$BP8Q@APV(V5ABR <8 3=’ F?(E>83=’FD =3’T@$BP8 Q@AP8 ?(EABR R 9V5; 8CF"B (PF;56;8 4B 图 ! 用 户 对 话框 界 面 " /! 制 作 +)- 文 件 R 为 了 实 现用 户 对 话 框 中 的 八 种 类 型 的 双 头 螺 柱 的 图 像 显 示 2 首 先 在 %&’(. %- 软 件的 绘 图 区域 中 分 别绘 制 这 八种 类 型 的双 头 螺 柱2然 后 在 命 令 行 中 输 入AG9 4=38 A命 令 2分 别 创 建 相 应 的 幻 灯 片文 件 2 文件 分 别 命 名 为 9’4:"/ 943W9’4:L/943 " 制 作幻 灯 片 文件 前 尽 量将 每 种 类型 的 图 形 居中 且 填 满 绘 图 区 45?84@A 双头 螺 柱AB <C(D > <?(E83FC53=(F;(4&G6> 45?84@A国 标 及 等级 代 号AB <C53=(F?&’’ (6>45?84@AH IJK LMNO"MLL %ABP8Q@APLMN%ABR 域" "/ U 编写 ) *+, 程序 用 户 点 击图 中 单 选 按 钮 ! 选 取 绘 图 所需 的 国 标 及 等 级 代 号 ! 右 侧 则 展 现 对 应 螺柱 样 式 的图 片 " 在 图中 下 拉 列表 框 中 选取 所 需 公称 直 径 3 和 公 称 长 度 4 ! 选取 或 输 入 所 需旋 转 角 度 56748! 点 击 % 确 定 & 按钮 在 %&’(. %- 界 面 中 绘 出 所希 望 的 双头 螺 柱 " 对 话 框 文件 取 名 为 9’4:/3;4 !源 程 序 如下 ’ 9’4:<3=54(7>

用LISP语言自定义AutoCAD命令AutoLISP语言作为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”在绘制机械零件图时，经常要画螺纹孔的剖视图，同样由于螺纹孔的有关尺寸都随螺纹的公称直径而变化，我们可以用下面的程序自动完成其剖视图的绘制。

本科毕业论文(设计）题目：应用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。

autocad⼆次开发LISP函数（备⽤）;;;保存为DXF⽂件(defun c:save_dxf (/)(setq filepath (strcat (getvar "dwgprefix")"转换"(substr (getvar "dwgname")1(- (strlen (getvar "dwgname")) 4))".dxf"))(command "save" filepath "16" "")(princ)(princ "\n⽂件保存到:")(princ filepath)(princ));;根据⽐例尺计算出图范围中⼼(defun get_extent_center (scale paper_w paper_h / xn yn);;scale⽐例尺 ,paper_w paper_h出图的宽和⾼(setq re nil)(setq xn (* (/ (* paper_w scale) 1000.00) 0.5))(setq yn (* (/ (* paper_h scale) 1000.00) 0.5))(setq center (list xn yn))(setq re center));;;根据拉框范围计算⽐例尺(defun calculate_scale (p1 p2 paper_w paper_h /);;p1,p1框的⾓点,paper_w paper_h出图的宽和⾼(setq re nil)(setq scale(*100(ceil(/ (* 1000(sqrt(+ (* (- (car p1) (car p2)) (- (car p1) (car p2)))(* (- (cadr p1) (cadr p2)) (- (cadr p1) (cadr p2))))))(* 100 (sqrt (+ (* paper_w paper_w) (* paper_h paper_h))))))))(setq re scale));;;改变块的⽐例(defun c:modify_scale (/)(vl-load-com)(setq en (car (entsel))) ;;取块(setq scale (getreal)) ;;取⽐例(setq ename (vlax-ename->vla-object en))(setq xscale (vla-get-xscalefactor ename)yscale (vla-get-yscalefactor ename)zscale (vla-get-zscalefactor ename))(if (> xscale 0)(setq xscale scale)(setq xscale (- scale)))(if (> yscale 0)(setq yscale scale)(setq yscale (- scale)))(vla-put-xscalefactor ename xscale)(vla-put-yscalefactor ename yscale)(vla-put-zscalefactor ename zscale));;向上取整函数(defun ceil (number / int_number)(setq re nil)(setq int_number (fix number))(if (/= (- int_number number) 0)(setq int_number (+ 1 int_number)))(setq re int_number));;;修改块的Z坐标(defun c:set_hight (/ i en enlist key h ss ptx pty) (setq h (getreal "\n输⼊新标⾼："))(if (= h nil)(setq h 0))(setq key (getreal "\n输⼊阀值："))(if (= key nil)(setq key 0))(setq ss (ssget "x" '((0 . "insert") (8 . "*"))))(setq i 0sslen (sslength ss))(while (< i sslen)(progn(setq en (ssname ss i))(setq elist (entget en))(if (> (caddr (cdr (assoc 10 elist))) key)(progn(setq ptx (cadr (assoc 10 elist)))(setq pty (caddr (assoc 10 elist)))(setqelist (subst (cons 10 (list ptx pty h))(assoc 10 elist)elist))(entmod elist)))(setq i (+ i 1))))(princ "\n共处理")(princ (+ i 1))(princ "个要素。

Autolisp在CAD二次开发中的应用摘要：Auto LISP语言是Auto CAD中最大的一种编程工具，基于Auto LISP的编程工具，数量大的让人惊讶。

将一些小程序嵌套于AUTO LISP 内部, 使LISP 语言和AUTO CAD 有机结合，能有效地提高AutoCAD的绘图功能。

通过对Auto LISP语言的分析与研究，探讨了基于Auto LISP的AutoCAD 参数化处理数据的程序设计的基本步骤。

本文设计了如何用Auto LISP语言如何绘制典型机械零件图形,并且详细阐述了其实现过程。

实践表明,Auto LISP语言功能强大,易学易用,AutoCAD二次开发的重要工具。

关键词：Auto lisp语言; 程序设计; 二次开发随着科学技术的不断发展和社会的不断进步，计算机也越来越普遍的在各个行业中得到推广和应用。

实践证明在利用CAD绘制零件图技术在质量和速度上都产生了一个质的飞跃，使机械设计工作上了一个大台阶。

但是目前许多设计人员大多只能利用AUTO CAD软件，一笔一画地绘出所需的设计图纸，是设计人员大大部分时间都花费在繁琐的计算和绘图中，设计工作的重复性较大，工作效率较低。

如果设计人员能够对AUTO CAD进行二次开发，通过对AUTO LISP 进行编程，在CASS中加入一些用户需要的功能，从而使CASS在绘图中更具有实用化。

Auto LISP 语言是嵌入在Auto CAD内部的LISP编程语言，它是LISP语言与Auto CAD有机结合的产物。

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

VLISP是Auto LISP的换代产品。

VLISP对语言进行了扩展，可以通过Microsoft ActiveX Automation接口与对象交互。

同时，通过实现反应器函数，还扩展Auto LISP响应事件的能力。

Visual Lisp具有一个交互式和智能控制台，包括有一个项目窗口、代码分色的文本编辑器、调试器、源程序窗口及许多其他特性。

第5章 AutoLISP文件 本章要求：
1. 了解Auto LISP文件操作的概念；
2. 掌握Auto LISP文件打开、关闭、读写相关函 数的使用； 3.能够用AutoLISP文件操作函数编写程序，实现 程序设计；
第5章 AutoLISP文件
AutoLISP语言和其它高级语言一样具有文件处理功能，提 供了文件操作函数。 在AutoLISP语言中，程序和数据二者都具有相同的结构， 所以程序文件和数据文件二者无严格区别。AutoLISP提供的 文件操作函数能处理数据文件，也能处理程序文件。另外，
第5章 AutoLISP文件
5.2 程序中的注释 注释能够增加程序的可读性，不仅便于对程序的阅读和调 试，也便于对程序的维护、移植和扩充。 注释的形式可以是整行、整段或行间注释。 整行或后半行注释以分号“；”开头，至行尾为注释部分
第5章 AutoLISP文件
5.2 程序中的注释 【例1】定义打印ASCII码为33 ～90的字符的命令。 ；该程序打印ASCII码为33～90的字符 ；在Command:提示下，键入pras (defun c:pras(/ as )；定义pras为AutoCAD命令，as为局部变
第5章 AutoLISP文件
5.3 在AutoCAD环境下加载AutoLISP文件 2．对话框方式 选择下拉菜单Tools®Load Application 项,或者选择下拉菜 单Tools®AutoLISP®Load项,或者在“Command：”提示下键入 appload，通过随后弹出的“Load/Unload Applications”对话框
第5章 AutoLISP文件
5.3 在AutoCAD环境下加载AutoLISP文件 1．命令行方式 加载AutoLISP文件用load函数，调用load函数的格式如下： Command：(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中，然后输入自定义的函数名执行。

当开发的程序越来越多，就需要进行有效的管理，使我们能方便的找到和应用这些程序。

到那个程度的时候就需要用到用户自定义的工具按钮、菜单和对话框了。

图1 根据程序数量选择二次开发形式（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 “”) ;;语句之间空格;; 表示语句（程序代码）的注释第一步：在文本中编写和保存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 文件。

１ 函数 的使 用
由于 Ａ ｔ Ｉ 语言是 函数型语言 ， ｕＬ Ｐ ｏＳ 它的一切功能
都 由函数实现 。因此 ， 行 Ａ ｔ ＩＰ程 序 主要就运 行 于 Ａ ｔＣ Ｄ环境 下 的程 序 设计 语言 。 ｕｏ Ａ 它 是 、ｕｏ Ａ Ａ ｔ Ｄ内嵌 的 编程 工 具 ， 整 体 的一 部 分 。 Ｃ 是 使用 Ａ ｔ ＩＰ进行 Ａ ｍ Ａ ｕｏ Ｓ Ｌ ｕ Ｃ Ｄ二 次 开发 ， 要 的是掌 重
Ｏｃ．２ ０ ｔ ０８
应 用 Ａ ｔ ＩＰ对 Ａ ｔＣ Ｄ进 行 ｕｏ Ｓ Ｌ ｕｏ Ａ 二 次 开发 时 的研究
郭天 娇
（ 吉林工程技术师范学院 信息工程学院， 吉林 长春 １０ ５ ） ３０ ２
［ 摘 要 ］ ｕｏＩＰ语 言是 Ａ ｔ Ａ Ａｔ Ｓ Ｌ ｕｏ Ｄ用 户广泛使用 的二次 开发工具 ， Ｃ 本文 结合笔 者 的开发体会 ， 出了 提
数等标准 函数都 比较 容易理解 ， 而有时 当这些 函数 不能满足要求时 ， 就要使 用 自定义函数 ， 中 ｄｆ 其 ｅｎ ｕ 函数就可以帮助我们将一组表达式组合 到一个 函数 或命令 中， 以实现特定的功能。例如 ：
（ ｅ ｎ ｃ ＼ ｍｌ ） ｄｆ ：ｈ （ ｕ
在利用 Ａ ｔ Ｉ 进行二次开发的过程中， ｕＬ Ｐ ｏＳ 有四个
Ｓｅ ｅ ａ ｒ ｂ ｅ ｈ ｅ ｏ ｄ Ｄｅ ｅｏ ｍ ｅ ｔｏ ｔ ＣＡＤ ｔ ｔＬＩ Ｐ ｖ ｒ ｌＰ ｏ ｌｍｓｉ ｔ ｅＳ ｃ ｎ ｖ ｌｐ ｎ ｆＡｕ ｏ ｎ ｗｉ Ａｕ ｏ Ｓ ｈ
Ｇ Ｏ Ｔａ ｊ ｏ Ｕ ｉ ｎ— ｉ ａ
（ ｇ ｒ ａｉ ｎｉｅｒ ｇＳｈｏ， ｇｎＴａｈｒ ｉｓｔ ｅｏ ｎ ｉ ｅ ｎ ｈ ｏｍ ｔ ｎＥ ｇｎｅｎ ｃｏｌ Ｊ ｉ ｅｃｅｓ ｎｔｕ Ｅ ｇｎ ｒ ｇ ｏ ｉ ｉｔ ｆ ｅｉ

基于AutoLISP语言的CAD二次开发浅析及功能实现摘要：autocad 是工程建设普遍使用的一种功能强大的绘图软件，而且可以进行用户的二次开发。

本文介绍了基于autolisp语言的cad二次开发过程，并例举了部分功能实现的代码和调用过程，以期节约时间，提高cad绘图效率。

关键词：autolisp语言，autocad二次开发，坐标点提取1.autolisp语言autolisp 语言嵌套于autocad内部，它是lisp语言与autocad 有机结合的产物，是为二次开发autocad而专门设计的编程语言。

autolisp采用了和commonlisp 最相近的语法和习惯约定，它具有commonlisp 的特性，又针对autolisp 增加了许多功能。

它可以把autolisp程序和autocad的绘图命令结合起来，使设计和绘图完全融为一体，方便了对屏幕图形的实时修改，参数化设计和交互设计，为在绘图领域应用人工智能提供了方便。

autolisp语言嵌入autocad之后，autocad就不再只是交互式的图形绘制软件，而成为了真正能够进行计算机辅助设计绘图的cad软件。

2. autolisp语言结构autolisp 数据类型丰富，包括：整型、实型、字符串、表、文件描述符、autocad 的图元名、autocad 的选择集等。

autolisp 处理的对象是符号表达式，简称表达式。

表达式相当于其他编程语言中程序的语句，是由原子或表构成的。

原子可以细分为数原子，串原子和符号原子。

多数情况下，autolisp 表达式以表的形式存在，其格式如下所示：(函数名 [参数]……)每个表达式以左括号开始，并由函数名及参数组成，左括号后的第一个元素必须是函数名。

参数的数量可以是任意多个，也可以是0个，这取决于具体函数，每个参数也可能是表达式。

表达式以右括号结束，每一个表达式的返回值都能被外层表达式使用，最后计算的值被返回到调用的表达式。