你可以復(fù)制和粘貼，如下面的例子，或者你可以下載一個(gè)*.LSP的文件。開始你需要使用記事本，  因?yàn)锳utoLISP *.LSP的文件只是普通的文本文件。看其他人的編寫的AutoLISP語(yǔ)言代碼是一個(gè)很好的學(xué)習(xí)方法，網(wǎng)上有很多提供.LSP的文件下載的。

基本過程是非常簡(jiǎn)單，如下。 有3個(gè)主要步驟（或如果有*.LSP的文件僅僅需要2步），創(chuàng)建lisp文件，加載lisp文件和日常運(yùn)行lisp程序。

注：AutoLISP語(yǔ)言例程將只在完整版本的AutoCAD運(yùn)行，他們不會(huì)在AutoCAD LT版本運(yùn)行。

創(chuàng)建lisp文件

復(fù)制程序代碼并粘貼到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)))) #p#分頁(yè)標(biāo)題#e#

(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)) ” polylinesn”

(if (/= rv “Length”)

(strcat (itoa op) ” with open polylines”) “”)))

(prin1))

現(xiàn)在保存文件為zone.lsp，給予它適當(dāng)?shù)奈募⒋_保它有一個(gè).LSP的文件擴(kuò)展名。

加載lisp文件

打開AutoCAD選擇菜單Tools——AutoLISP——Load Application….彈出對(duì)話框（如下圖所示）：#p#分頁(yè)標(biāo)題#e#

load unload apps

使用下面的操作來加載已保存lisp文件：

1. 找到該lisp文件已保存的文件夾。
2. 從列表中選擇所需的文件。
3. 單擊 Load按鈕。如果一切順利，將出現(xiàn)一條消息說“*.lsp成功載入”。
4. 單擊Close按鈕關(guān)閉對(duì)話方塊。

運(yùn)行AutoLISP程序

一旦lisp文件被加載，它可以在命令行運(yùn)行。在運(yùn)行時(shí)只需輸入命令的名稱（而不是文件名）。在lisp文件中開始是 (defun c:zone ，所以在命令行輸入zone。