AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业，而且还应用于其他各种行业，诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构，它允许用户和开发者采用高级语言编程对其进行扩充和修改，以最大限度地满足用户的特殊要求。众所周知，AutoCAD R14没有预定分页打印功能。对于大图纸(如：A2图纸)及没有与之相匹配的打印机时，AutoCAD R14无法按设计要求将图纸打印出来。当然，如果您有宽幅打印机，那就最好，也就没有必要进行分页打印了。为了实现大图纸分页打印，本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件，为AutoCAD R14添加分2页或4页打印功能。 4gdY`}8b^}
R7~ Yw*#,
(defun c:myplot() ;;;主程序 v&g0ta @
oK FT? "[X
(if (= 1 (getvar "cmddia")) nzX@:7g
,J mbqOV?!
(setvar "cmddia" 0) Fk^3a'/4KJ
8_uzpeRhJc
) 1 7hTr
ID1?PM
(setq num (getint " Enter the Number of Page:")) *.f2VQ~H
Oajv^H,Em
(setq pmax (getvar "extmax")) 0;~yZ?6_F
+TN 9ujL6@
(setq x0 0) 1'6cGpZY
(#(O r
(setq xm (car pmax)) TrE3S'EU#R
_-c K{
(setq ym (cadr pmax)) AyE\fY5
c \c Z]RZ
(if (= 4 num) ;;;分4页打印 v4*rPG v
3Rl,GWK
(progn 1
[z'G)v
[A~G -
(setq dx (/ xm 2)) eI PG#A
V7=SV:+1or
(setq dy (/ ym 2)) $%c{ 06Oq(
ul5|.C
(winplt 2 1) m.%`4L^`T
Uhh
l3%p
) ,[48Mspp
#Gv{UU$]
(progn (N~$x
L x|',6S
(if (= 2 num) ;;;分2页打印 sLcY,AH
ro| vh\y
(progn MW Wu@SY
>cOei K
(setq dx (/ xm 2)) }4c/YP"a'E
pe04#zQK
(setq dy (/ ym 1))
&LQ%
#I\Y= XCY
(winplt 2 0) A{, n;;
Z/ bB
h
) ?;7b*Z
iL?iz?+.%@
) )c tr"&-
@ Gjny BJ
) v ahoSc;sw
y62%26 [
) sy<iKCM\
E[Bo4?s&^
(setvar "cmddia" 1) H 30OUrD
|KG&HN fP-
(princ) 66ohmP@04Z
| 'hLa
) )&1!xF
mIc:2.q^
(defun winplt(k n) ;;;窗选分页打印程序 - l*A
p!"(s/=
(setq i 1) $iMC/Kym
,ECAan/@
(while ($#@60;= i k) Enj_tJs
! *a[jhx
(setq j 0) O*7i } \{
emWG Io
(while ($#@60;= j n) TgaYt\"i[
3VP $x@AV
(setq x1 (+ x0 (* (- i 1) dx))) L$JI43HZ
W);W.:F
(setq y1 (- ym (* j dy))) |`]oc,1h@
O-GxUHwW r
(setq x2 (+ x1 dx)) G(OFr2M
YO w?'+8
(setq y2 (- y1 dy)) %x2b0L\g
\|q-+4]@,
(command "plot" "w" (list x1 y1) (list x2 y2) "") YN#XmX %
xXOw: A'
(setq j (+ 1 j)) w~-X>~ }
YBylyVZ
) ,ep9V ,+|
_t.FL@3e
(setq i (+ 1 i)) VD;j[~/Z
~gt3Omh
) nLd~2qBuv
qY }Cg0[@g
) 5c;En6W
JD&U}dJ
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载，并在命令行输入myplot即可。 5;
f\0<-
Yw^ Gti'<
对上述程序进行稍加修改便可实现4页以上的分页打印，限于篇幅，在此就不再详细介绍了。
