Auto Lisp 是Auto CAD 軟件自帶的一種程序語(yǔ)言，其編程軟件已包含在Auto CAD 軟件中，用’VLIDE命令即可打開(kāi)進(jìn)行編程。
　　
　　這種程序語(yǔ)言最方便之處是與Auto CAD完美結(jié)合，特別是在編程錯(cuò)誤時(shí)不會(huì)導(dǎo)致CAD系統(tǒng)崩潰。學(xué)習(xí)Auto Lisp不需具備編程基礎(chǔ)、不需會(huì)英語(yǔ)、不需記憶和背誦單詞之類(lèi)的程序函數(shù)代碼，只需要會(huì)中文輸入和知道想編什么樣的程序，就可從現(xiàn)有的各類(lèi)典型程序代碼庫(kù)中，用照葫蘆畫(huà)瓢的方式，加以替換和修改；用復(fù)制和粘貼的方法進(jìn)行拼湊編程，這樣就湊成了一個(gè)新的程序，這和滾雪球是一樣，鋼構(gòu)CAD中的程序都是這樣拼湊滾出來(lái)的。
　　
　　
　　
　　
　　
以下文字是一個(gè)畫(huà)圓的示范程序源代碼，可將其選中復(fù)制粘貼到編程序界面中，點(diǎn)擊加載活動(dòng)編輯窗口后，在CAD命令行輸入AAA即可運(yùn)行該程序。
　　
　　
　　
　　;|
　　
　　一個(gè)畫(huà)圓的示范程序:
　　
　　以下黑顏色的字母可任意設(shè)定,與程序本身無(wú)關(guān),只起個(gè)臨時(shí)代號(hào)的作用
　　
　　以下藍(lán)顏色的文字為程序自身的標(biāo)準(zhǔn)函數(shù),可復(fù)制粘貼調(diào)用,不能更改也無(wú)需記憶
　　
　　以下粉紅色的文字為中程序界面中顯示的中文內(nèi)容,可根據(jù)需要書(shū)寫(xiě)設(shè)置
　　
　　本個(gè)字體顏色的文字,是為便于以后理解程序而加在源代碼之后的注釋,其本身不參與程序運(yùn)行,但有詳細(xì)的注釋,能為以后編寫(xiě)類(lèi)似程序提供快速上手的作用。
　　
　　|;
　　
　　(defun C:AAA(); AAA 為自定義的程序命令名稱(chēng) 可隨意定
　　
　　(SETQ R1 678);SETQ 為賦值函數(shù),此處為將數(shù)據(jù) 678 賦予 R1 此處 678 數(shù)值可隨意設(shè)定
　　
　　(SETQ ZR1 (rtos R1)); rtos 為將數(shù)據(jù)轉(zhuǎn)換為字符 ,再賦值給 ZR1
　　
　　(setq p1 (getpoint "n 請(qǐng)點(diǎn)取圓中心點(diǎn):")) 用光標(biāo)在屏幕上指定任意一個(gè)點(diǎn) 賦值給 P1
　　
　　(command "CIRCLE" P1 R1);用畫(huà)圓命令 CIRCLE 畫(huà)以 P1 為圓心, R1 為半徑的圓
　　
　　(SETQ VZ (STRCAT "你 設(shè) 置 的 圓 半 徑 為 " ZR1 STRCAT 將各種文字組合成一個(gè)新的文字,并賦值給 VZ
　　
　　
　　
　　 "
　　
　　
　　
　　程 序 原 來(lái) 這 么 簡(jiǎn) 單 呀 ! " ) )
　　
　　(alert VZ);在屏幕上顯示文字 VZ 的內(nèi)容
　　
　　);全部程序完