AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业，而且还应用于其他各种行业，诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构，它允许用户和开发者采用高级语言编程对其进行扩充和修改，以最大限度地满足用户的特殊要求。众所周知，AutoCAD R14没有预定分页打印功能。对于大图纸(如：A2图纸)及没有与之相匹配的打印机时，AutoCAD R14无法按设计要求将图纸打印出来。当然，如果您有宽幅打印机，那就最好，也就没有必要进行分页打印了。为了实现大图纸分页打印，本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件，为AutoCAD R14添加分2页或4页打印功能。 9
?( P?H
^#,c WG}z
(defun c:myplot() ;;;主程序 X0zE -h6P
~\~XD+jy"
(if (= 1 (getvar "cmddia")) %q5iy0~P
QP[`*X
(setvar "cmddia" 0) 5:x .<
v}^
f8nVR
) Oo`b#!L
QAK.Qk?Qu
(setq num (getint " Enter the Number of Page:")) ^J7g)j3
i \u"+:j
(setq pmax (getvar "extmax")) *EzAo
GcA!I!j/
(setq x0 0) Ykt(%2L
$jKeJn8,
(setq xm (car pmax)) bmu<V1[W
+H8;*uZ|k,
(setq ym (cadr pmax)) `Ef &h V
Mb[4G>-v=
(if (= 4 num) ;;;分4页打印 ICI8xP}a?
lITZ|u
(progn MB] Y|Vee
*3W e5
(setq dx (/ xm 2)) 4,g3 c
d8T,33>T
(setq dy (/ ym 2)) /DQcM.3
uyDYS
(winplt 2 1) L~~Dj:%uq
.`Ts'0vVy
) $/uNV1 ]o
-hP-w>
(progn ALY%
h!L
/,Sd
(if (= 2 num) ;;;分2页打印 dj0`Q:VZ
N~A#itmdx
(progn \ml6B6
5`3f"(ay/
(setq dx (/ xm 2)) 5"JnJH
AFcA5: ja
(setq dy (/ ym 1)) ]\:FFg_O6t
t F d^5A*
(winplt 2 0) A *:(%!
,-XJ@@2gM
) +/Lf4??JV
~- w
) m'%Z53&
'k9hzk(*
) |V|)cPQ
HG%H@uK
) x6x6N&f?
_(\\>'1q!
(setvar "cmddia" 1) q61
rNOw_
pPG@_9qf
(princ) +C)auzY7N
\[+\JWJj
) B& m?3w
OQA3 ~\Vu
(defun winplt(k n) ;;;窗选分页打印程序 BVC{Zq6hi
VrokEK*qbY
(setq i 1) oLn| UWe_
b+M[DwPw
(while ($#@60;= i k) u[jdYWQa
+Hb6j02 #
(setq j 0) FZ^byIS[
'Sc3~lm(dH
(while ($#@60;= j n) {f Mrx1
ma
}Y\(38
(setq x1 (+ x0 (* (- i 1) dx))) `q exEk@S
lm &C!{K
(setq y1 (- ym (* j dy))) A_%}kt
(6
uBks#Y*3$
(setq x2 (+ x1 dx)) 3RRZVc*
^
ZH%[wQ~4
(setq y2 (- y1 dy)) V]PTAhc
+WwQ!vWWd
(command "plot" "w" (list x1 y1) (list x2 y2) "")
Te> 7I
kx1-.~)p(z
(setq j (+ 1 j)) w'5~ GhnP+
jq["z<V )x
) l{Hi5x' H
U &Ay3/
(setq i (+ 1 i)) ^%d+nKx9nL
V b 4Qt#o
) `>8|
?k_=?m
) -lMC{~h\(S
5H 1(C#|
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载，并在命令行输入myplot即可。 ~9o S~fP?I
~|J6 M
对上述程序进行稍加修改便可实现4页以上的分页打印，限于篇幅，在此就不再详细介绍了。
