Question

如何使用AutoLISP语言例程

Answer 1

AutoLISP语言是AutoCAD的内置的编程语言。 它可以用来创建新的命令或重新定义现有的。AutoLISP语言是一个非常强大的定制工具。本文旨在说明如何加载AutoLISP语言。

你可以复制和粘贴，如下面的例子，或者你可以下载一个*.LSP的文件。开始你需要使用记事本，  因为AutoLISP *.LSP的文件只是普通的文本文件。看其他人的编写的AutoLISP语言代码是一个很好的学习方法，网上有很多提供.LSP的文件下载的。

基本过程是非常简单，如下。 有3个主要步骤（或如果有*.LSP的文件仅仅需要2步），创建lisp文件，加载lisp文件和日常运行lisp程序。

注：AutoLISP语言例程将只在完整版本的AutoCAD运行，他们不会在AutoCAD LT版本运行。

创建lisp文件

复制程序代码并粘贴到Windows中的记事本。

(defun c:zone ( / ss la rv i tv op en)

(while (not ss)

(princ "\nPick any object on the required layer: ")

(setq ss (ssget)))

(initget "Length Area")

(setq rv (getkword "\nWould you like to measure Length/Area <Area>: "))

(and (not rv)

(setq rv "Area"))

(setq la (cdr (assoc 8 (entget (ssname ss 0))))

ss (ssget "X" (list (cons 0 "*POLYLINE")

(cons 8 la)))

i (sslength ss)

tv 0

op 0)

(while (not (minusp (setq i (1- i))))

(setq en (ssname ss i))

(command "_.AREA" "_E" en)

(cond ((= rv "Length")

(setq tv (+ tv (getvar "PERIMETER"))))

(T

(setq tv (+ tv (getvar "AREA")))

(if (/= (logand (cdr (assoc 70 (entget en))) 1) 1)

(setq op (1+ op))))))

(princ (strcat "\nTotal " rv

" for layer " la

" = " (rtos tv 2 2)

" in " (itoa (sslength ss)) " polylines\n"

(if (/= rv "Length")

(strcat (itoa op) " with open polylines") "")))

(prin1))

现在保存文件为zone.lsp，给予它适当的文件名，并确保它有一个.LSP的文件扩展名。

加载lisp文件

打开AutoCAD选择菜单Tools——AutoLISP——Load Application….弹出对话框（如下图所示）：

load unload apps

使用下面的操作来加载已保存lisp文件：

• 找到该lisp文件已保存的文件夹。

• 从列表中选择所需的文件。

• 单击 Load按钮。如果一切顺利，将出现一条消息说“*.lsp成功载入”。

• 单击Close按钮关闭对话方块。

运行AutoLISP程序

一旦lisp文件被加载，它可以在命令行运行。在运行时只需输入命令的名称（而不是文件名）。在lisp文件中开始是 (defun c:zone ，所以在命令行输入zone。