AutoCAD 堪稱(chēng)當(dāng)今最流行的計(jì)算機(jī)輔助設(shè)計(jì)制圖軟件。它不僅應(yīng)用于機(jī)械設(shè)計(jì)行業(yè)，而且還應(yīng)用于其他各種行業(yè)，諸如工程分析、化學(xué)工程、電器工程等行業(yè)。它之所以應(yīng)用之廣還因?yàn)樗哂虚_(kāi)放的體系結(jié)構(gòu)，它允許用戶(hù)和開(kāi)發(fā)者采用高級(jí)語(yǔ)言編程對(duì)其進(jìn)行擴(kuò)充和修改，以最大限度地滿(mǎn)足用戶(hù)的特殊要求。眾所周知，AutoCAD R14沒(méi)有預(yù)定分頁(yè)打印功能。對(duì)于大圖紙(如：A2圖紙)及沒(méi)有與之相匹配的打印機(jī)時(shí)，AutoCAD R14無(wú)法按設(shè)計(jì)要求將圖紙打印出來(lái)。當(dāng)然，如果您有寬幅打印機(jī)，那就最好，也就沒(méi)有必要進(jìn)行分頁(yè)打印了。為了實(shí)現(xiàn)大圖紙分頁(yè)打印，本文利用AutoLISP語(yǔ)言編寫(xiě)一段程序并將其命名為myplot.lsp文件，為AutoCAD R14添加分2頁(yè)或4頁(yè)打印功能。

　　(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頁(yè)打印

　　(progn

　　(setq dx (/ xm 2))

　　(setq dy (/ ym 2))

　　(winplt 2 1)

　　)

　　(progn

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

　　(progn

　　(setq dx (/ xm 2))

　　(setq dy (/ ym 1))

　　(winplt 2 0)

　　)

　　)

　　)

　　)

　　(setvar "cmddia" 1)

　　(princ)

　　)

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

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

　　)

　　)

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

　　入myplot即可。

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