如何取消AutoCAD 快速加载 AutoLISP 文件

1、首先在计算机中任意磁盘设前闹正置一个存放自编程序的文件夹。

2、打开CAD。

3、右键单击绘图区空白处，点击选项。

4、在d出的对话框中点击文件，再点击支持文件搜索路径。

5、再点击添加。

6、在空白位置填入之前保存慧悔文件夹的路径。

7、点击应用，再点击关闭，就弯丛加载完成了。

autolisp程序可以用记事本打开，在里面【(defun c:命令 ()】,这个命令可以修改，也就是运行程序命令。

打开cad，输入命令【appload】加载程序，并加入【启动组】，这样以后打开cad就可以使用，不用重复加载。

由于插件编写的习惯不同宴圆雀，功能也略有不同。输入插件命令后，一般命令行会有提示，按提腔轮示 *** 作。晌早

AutoLISP语言是在普通的LISP语言基础上，又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言。它是一种解释性求值语言，速度较慢，难以保密，可用任何文字编辑软件编辑，用纯文本的格式保存。例如：

(setq

i

1)就是代码i值是1

(command

"CIRCLE"

'(0

0)

100)命令在坐标原点绘制半径100的圆。

AutoLISP语言中的一切成分都是以函数形式给出的，它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些函数，再调用其它函数。例如：

(setq

pt1

(getpoint

"\n请选择圆心插入点"))

(command

"CIRCLE"

pt1

100)命令这个插入点绘制圆，半径为100

AutoLISP把数据和程序统一表达为表结构，故可把程序当作数据来处理，也可把数据当作程序来执行。

例如：一条直线，起点坐标'(0

0)，端点坐标'(1000

0)，图层为0层，颜色为1【红色】这个是一条直线的一些数据，怎么执行变为程序代码如下：

(entmake

(list

'(0

.

"LINE")

'(8

.

"0")

'(62

.

1)

'(10

0

0)

'(11

1000

0)))

以上可以直观的看数据，也可以粘贴到AutoCAD的命令行，就绘制出以上要伍塌求的直线。

AutoLISP语言中程序运行过程就是对函数求值的过程，是在对函数求值的过程中实现函数的功能。在AutoCAD里面，所有的对象可以看成是由无数的点构成，每个点都有自己的坐标，函数的运行就是计算出这些点的数值，根据得到的数值进行判冲贺断。

AutoLISP语言的主要控制腔判圆结构是采用递归方式。递归方式的使用，使得程序设计简单易懂。例如：

(setq

&k1

(entsel))选择对象

(setq

&k1

(car

&k1))提取图元

(setq

#g1

(entget

&k1))取得属性列表

(setq

c0

(cdr

(assoc

0

#g1)))取得图元名称

以上是一个个的写下来，可以写成以下：

(setq

c0

(cdr

(assoc

0

(entget

(car

(entsel))))))简单易懂

由于autolisp简单，容易，所以上手很快。编写程序后，可以大大的提高绘图效率，有名的【天正】插件，就是绘图的好帮手。

autolisp程序也有不足的地方，如提取坐标，这个只能在图元属性里面提取，这样的话会有局限性，法向坐标1与-1的坐标值相同，但是图形的位置不同，造成计算坐标的困难，所以提取坐标值，最好使用VLAX函数来提取。

---