AutoCAD 堪稱當今最流行的計算機輔助設計制圖軟件。它不僅應用于機械設計行業，而且還應用于其他各種行業，諸如工程分析、化學工程、電器工程等行業。它之所以應用之廣還因為它具有開放的體系結構，它允許用戶和開發者采用高級語言編程對其進行擴充和修改，以最大限度地滿足用戶的特殊要求。眾所周知，AutoCAD R14沒有預定分頁打印功能。對于大圖紙(如：A2圖紙)及沒有與之相匹配的打印機時，AutoCAD R14無法按設計要求將圖紙打印出來。當然，如果您有寬幅打印機，那就最好，也就沒有必要進行分頁打印了。為了實現大圖紙分頁打印，本文利用AutoLISP語言編寫一段程序并將其命名為myplot.lsp文件，為AutoCAD R14添加分2頁或4頁打印功能。

　　(defun c:myplot() ;;;主程序

　　(if (= 1 (getvar "cmddia"))

　　(setvar "cmddia" 0)

　　)

　　(setq num (getint " Enter the Number of Page:"))

　　(setq pmax (getvar "extmax"))

　　(setq x0 0)

　　(setq xm (car pmax))

　　(setq ym (cadr pmax))

　　(if (= 4 num) ;;;分4頁打印

　　(progn

　　(setq dx (/ xm 2))

　　(setq dy (/ ym 2))

　　(winplt 2 1)

　　)

　　(progn

　　(if (= 2 num) ;;;分2頁打印

　　(progn

　　(setq dx (/ xm 2))

　　(setq dy (/ ym 1))

　　(winplt 2 0)

　　)

　　)

　　)

　　)

　　(setvar "cmddia" 1)

　　(princ)

　　)

　　(defun winplt(k n) ;;;窗選分頁打印程序

　　(setq i 1)

　　(while ($#@60;= i k)

　　(setq j 0)

　　(while ($#@60;= j n)

　　(setq x1 (+ x0 (* (- i 1) dx)))

　　(setq y1 (- ym (* j dy)))

　　(setq x2 (+ x1 dx))

　　(setq y2 (- y1 dy))

　　(command "plot" "w" (list x1 y1) (list x2 y2) "")

　　(setq j (+ 1 j))

　　)

　　(setq i (+ 1 i))

　　)

　　)

　　啟動AutoCAD后,在其菜單項Tools中的Loadapps…將myplot.lsp文件裝載，并在命令行輸

　　入myplot即可。

　　對上述程序進行稍加修改便可實現4頁以上的分頁打印，限于篇幅，在此就不再詳細介紹了。