AutoCAD 堪稱當(dāng)今最流行的計算機(jī)輔助設(shè)計制圖軟件。它不僅應(yīng)用于機(jī)械設(shè)計行業(yè)，而且還應(yīng)用于其他各種行業(yè)，諸如工程分析、化學(xué)工程、電器工程等行業(yè)。它之所以應(yīng)用之廣還因為它具有開放的體系結(jié)構(gòu)，它允許用戶和開發(fā)者采用高級語言編程對其進(jìn)行擴(kuò)充和修改，以最大限度地滿足用戶的特殊要求。眾所周知，AutoCAD R14沒有預(yù)定分頁打印功能。對于大圖紙(如：A2圖紙)及沒有與之相匹配的打印機(jī)時，AutoCAD R14無法按設(shè)計要求將圖紙打印出來。當(dāng)然，如果您有寬幅打印機(jī)，那就最好，也就沒有必要進(jìn)行分頁打印了。為了實現(xiàn)大圖紙分頁打印，本文利用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即可。

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