AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业，而且还应用于其他各种行业，诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构，它允许用户和开发者采用高级语言编程对其进行扩充和修改，以最大限度地满足用户的特殊要求。众所周知，AutoCAD R14没有预定分页打印功能。对于大图纸(如：A2图纸)及没有与之相匹配的打印机时，AutoCAD R14无法按设计要求将图纸打印出来。当然，如果您有宽幅打印机，那就最好，也就没有必要进行分页打印了。为了实现大图纸分页打印，本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件，为AutoCAD R14添加分2页或4页打印功能。
LjEMs\P\
_*g.U=u
(defun c:myplot() ;;;主程序 zsd<0^
p\{
AB0}6g^O
(if (= 1 (getvar "cmddia")) [-"ZuU G
vfj{j=
G
(setvar "cmddia" 0) 8 "NPj0
/E{tNd^S
) q 9VBK(,X
8 l= EL7
(setq num (getint " Enter the Number of Page:")) 4JXvP1`
f WW B]h
(setq pmax (getvar "extmax")) }#M>CNi'PU
SYQP7oG9oQ
(setq x0 0) \+/ciPzA-
x[)]u8^A
(setq xm (car pmax)) }X=c|]6i^
Voq /0,d
(setq ym (cadr pmax)) H/ Ql
y=+OC1k\8
(if (= 4 num) ;;;分4页打印 0t"Iq71/
(E,[Ad,$
(progn qe?Ns+j<d
@q># ]8
(setq dx (/ xm 2)) : kE*
$_eJ@L#
(setq dy (/ ym 2)) VK,{Mu =.9
3m4
sh~
(winplt 2 1) "|Y y "iB[
5 A 5t
) MT)q?NcG
lfd-!(tXD
(progn T%Cj#J &L
?UI W&*h}
(if (= 2 num) ;;;分2页打印 jLO$[c`;
L:?Ew9Lf
(progn Z-_Xt^N
=;Co0Q`
(setq dx (/ xm 2)) kD1Nq~h2
<-G3 Qgm
(setq dy (/ ym 1)) r58<A'#
=|empv#
(winplt 2 0) 'L9h M .+
U H+#Nel+!
) m!^$_d\%~
(~5]1S}F
) TXV^ f*
<s|.2~
) R- ,L" Vv
7)2 Q
) *> Be w
XN?my@_HpM
(setvar "cmddia" 1) :9x]5;ma
|f1^&97=+
(princ) c(b` eUOO
9jx>&MnWs
) 1P 'L<z
g3Hi5[-H
(defun winplt(k n) ;;;窗选分页打印程序 )"{}L.gC6
d 1t_o2
(setq i 1) q&NXF (
E[zq<&P@
(while ($#@60;= i k) ,+C?UW
eAjR(\f>
(setq j 0) eOXu^M>:F
i$ hWX4L
(while ($#@60;= j n) u WdKG({][
[]yIz1P=j
(setq x1 (+ x0 (* (- i 1) dx))) KIWHn_ :
C{G=Y[?oc
(setq y1 (- ym (* j dy))) )#hR}|
{9j0k`A
(setq x2 (+ x1 dx)) K$: btWSm
v6! `H
(setq y2 (- y1 dy)) I1dOMu9
s,/C^ E
(command "plot" "w" (list x1 y1) (list x2 y2) "") 4 R8Qn ^
U%#Vz-r
(setq j (+ 1 j)) j
b'M
};Df ><
) jJ2{g> P0P
,qV 7 $u
(setq i (+ 1 i)) fT?m~W^
>lek@euqw
) _ ogN
as y:[r"
) @ I DY7x27
J P
;SO
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载，并在命令行输入myplot即可。 1sJz`+\
w6 lx&K-
对上述程序进行稍加修改便可实现4页以上的分页打印，限于篇幅，在此就不再详细介绍了。
