眾所周知，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 "nEnter 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ì)介紹了。