AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业，而且还应用于其他各种行业，诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构，它允许用户和开发者采用高级语言编程对其进行扩充和修改，以最大限度地满足用户的特殊要求。众所周知，AutoCAD R14没有预定分页打印功能。对于大图纸(如：A2图纸)及没有与之相匹配的打印机时，AutoCAD R14无法按设计要求将图纸打印出来。当然，如果您有宽幅打印机，那就最好，也就没有必要进行分页打印了。为了实现大图纸分页打印，本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件，为AutoCAD R14添加分2页或4页打印功能。 +QeA*L$~
eQ<Vky^SJ
(defun c:myplot() ;;;主程序 s \0,@A
o^b5E=?>C
(if (= 1 (getvar "cmddia")) b;5
M$
huvn _
(setvar "cmddia" 0) okTqq=xd`
2IXtIE
) n _kE
L9d|7.b
(setq num (getint " Enter the Number of Page:")) A+(+Pf U
\s7/ `
(setq pmax (getvar "extmax")) Jv?EV,S/e
(W?t'J^#
(setq x0 0) 3 ej[
~bz$] o-<
(setq xm (car pmax)) /q)
H0b
W=Mdh}u_I
(setq ym (cadr pmax)) ? 0 +N
uzIM?.H
(if (= 4 num) ;;;分4页打印 H\$uRA oo*
d=dHY(ms]
(progn :"cKxd
S2>$ S^[U
(setq dx (/ xm 2)) MhIHfW ]b
-K/c~'%'*
(setq dy (/ ym 2)) yJMo/!DZ
v7,- Q*
(winplt 2 1) Xh }G=1}
2?:'p[z"]
) Ok<,_yh
yatZ Al(B
(progn U^]@0vR
m$7C{Mr'
(if (= 2 num) ;;;分2页打印 P_)=sj!>-
MeV*]*
(progn TSVlZy~Xo
1C0'
Gf)3
(setq dx (/ xm 2)) wQa,o l_p
j1=su~
(setq dy (/ ym 1)) 35 L\
yT[=!M
(winplt 2 0) plpb4>
S
> ByqM{?
) JF= T_SH^U
c/V0AKkS
8
) u#NX`_
z L9:e7o
) M>xT\
IkO [R1K
) J0B*V0'zR
N :~4>p44[
(setvar "cmddia" 1) dA <_`GFR
$F NH:r<
(princ) 5 9i2*<k
Ctx>#uN6
) .9?GKD
1L? d/j
(defun winplt(k n) ;;;窗选分页打印程序 &MPlSIg
(-`PO]e48
(setq i 1) l gZ9*@d
8U}+9
(while ($#@60;= i k) 6OqF-nso[E
,C|{_4
(setq j 0) BqUwv B4
cp0yr:~
(while ($#@60;= j n) G ]uz$V6!
n )\(\V7
(setq x1 (+ x0 (* (- i 1) dx))) c'mg=jH
)0g!lCfb
(setq y1 (- ym (* j dy))) F{c8{?:
:jC$$oC].
(setq x2 (+ x1 dx)) .zTkOk L
Pq@ -`sw
(setq y2 (- y1 dy)) ? bg
/%o
&3 Ki
(command "plot" "w" (list x1 y1) (list x2 y2) "") #Nad1C/ ]
<$d2m6 J
(setq j (+ 1 j)) {?"X\5n0
Z4E6J'B8
) 1hzf+*g
T Qx <lw
(setq i (+ 1 i)) ?* ZQ:jH
2c Sc
8
) ]2 YC7
+SW|/oIU
) \v$ zU
+KWO`WR
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载，并在命令行输入myplot即可。 C6h[L
oOaLD{g>
对上述程序进行稍加修改便可实现4页以上的分页打印，限于篇幅，在此就不再详细介绍了。
