AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业，而且还应用于其他各种行业，诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构，它允许用户和开发者采用高级语言编程对其进行扩充和修改，以最大限度地满足用户的特殊要求。众所周知，AutoCAD R14没有预定分页打印功能。对于大图纸(如：A2图纸)及没有与之相匹配的打印机时，AutoCAD R14无法按设计要求将图纸打印出来。当然，如果您有宽幅打印机，那就最好，也就没有必要进行分页打印了。为了实现大图纸分页打印，本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件，为AutoCAD R14添加分2页或4页打印功能。 O%haaL\
?'tRu !~
(defun c:myplot() ;;;主程序 ?7J ::}R
1N<n)>X4
(if (= 1 (getvar "cmddia")) }D.\2x(J
9 6P&+
(setvar "cmddia" 0) X4Pm&ol
;cZp$
xb3
) UtQCTNjC{
:8HVq*itS
(setq num (getint " Enter the Number of Page:")) eTay/i<-
Z`U+ a
(setq pmax (getvar "extmax")) pjs4FZ`Pd;
L ./c#b!{
(setq x0 0) Uw!d;YQm
YD0hDp
(setq xm (car pmax)) yz5! >|EB
/l h1sHgD
(setq ym (cadr pmax)) Nh} u]<B
#dD0vYT&od
(if (= 4 num) ;;;分4页打印 w=a$]`
ST;o^\B
(progn EU04U
d> F. C>
(setq dx (/ xm 2)) 8R:Glif
1N:~5S}s>
(setq dy (/ ym 2)) t`R{N1
O:GAS [O`
(winplt 2 1) E@n~ @|10
+|7N89l
) ^E:-Uy
8S8UV(K0
(progn e-[PuJ
k7;i^$@c
(if (= 2 num) ;;;分2页打印 \=]`X2Ld
} p?6 7y/
(progn I|qhj* _C
oveK;\7 /m
(setq dx (/ xm 2)) ^SKHYo`,,N
jzGK(%sw"
(setq dy (/ ym 1)) 6x=w-32+ y
S~E@A.7
(winplt 2 0) 8lGM>(:o
I%GQ3D"=
) G--(Ef%v'
! K_<hNG&
) C/#pK2xY
RqP_^tB
) <l Wj-+m
O`"~AY&
) q\|RI;W
X1o^MMpz(F
(setvar "cmddia" 1) 12m-$/5n+
!H[01
(princ) 'GX x|.
6vR6=@(`>
) XWQ `]m)
R=&-nC5e
(defun winplt(k n) ;;;窗选分页打印程序 o 9/,@Ri\5
('U TjV
(setq i 1) TI/RJF b
/ o
I 4&W
(while ($#@60;= i k) _X mxBtk9f
"DfjUk
(setq j 0) >]ZE<.
U s!ZQ#pP
(while ($#@60;= j n) HLG5SS7
.`5|NUhN
(setq x1 (+ x0 (* (- i 1) dx))) nqo1+OR
_q4O2F x0
(setq y1 (- ym (* j dy))) hf0(!C*
Z]oGE@!
n"
(setq x2 (+ x1 dx)) WFFQxd|Z
T!B\ixt6
(setq y2 (- y1 dy)) cz /cY:o)
\Cj3 jg
(command "plot" "w" (list x1 y1) (list x2 y2) "") 4% w<Ekd
KK2YT/K$SG
(setq j (+ 1 j)) -]Su+/3(,
JGTsVa2
) RE E .8_
<tZZ]Y]
(setq i (+ 1 i)) p9u*l
?[m1?
) , QWus"5H
6kLy! QS
) *fI n<Cc
4g8o~JI:v
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载，并在命令行输入myplot即可。 v
@0G^z|
j~K(xf
对上述程序进行稍加修改便可实现4页以上的分页打印，限于篇幅，在此就不再详细介绍了。
