[分享]AutoCAD分页打印功能的添加方法介绍 [复制链接]

AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业，而且还应用于其他各种行业，诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构，它允许用户和开发者采用高级语言编程对其进行扩充和修改，以最大限度地满足用户的特殊要求。众所周知，AutoCAD R14没有预定分页打印功能。对于大图纸(如：A2图纸)及没有与之相匹配的打印机时，AutoCAD R14无法按设计要求将图纸打印出来。当然，如果您有宽幅打印机，那就最好，也就没有必要进行分页打印了。为了实现大图纸分页打印，本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件，为AutoCAD R14添加分2页或4页打印功能。 +Vb8f["+-  
KqY["5p  
　　(defun c:myplot() ;;;主程序 2,q}Nq  
}_9,w;M$  
　　(if (= 1 (getvar "cmddia"))
=FP0\cQ.  
co8"sz0(U  
　　(setvar "cmddia" 0)
as yZe  
4<dcB@v  
　　) >Gml4vGK  
I#F!N6;  
　　(setq num (getint " Enter the Number of Page:")) 'k0[rDFc#3  
W !w,f;  
　　(setq pmax (getvar "extmax")) dP?Ge}  
:KJ pk:<  
　　(setq x0 0) /P|fB]p  
FY{e2~gi  
　　(setq xm (car pmax)) GzXUU@p  
CAq/K?:8  
　　(setq ym (cadr pmax)) 8Me:Yp_Xt  
YHk
cWz  
　　(if (= 4 num) ;;;分4页打印 {%lXYMyu  
P262Q&.}d  
　　(progn i9<pqQ  
&Mq~T_S  
　　(setq dx (/ xm 2)) X|f7K  
fWfk[(M'9  
　　(setq dy (/ ym 2)) [qUN4x5b  
Z>c3  
　　(winplt 2 1) x+ncc_2n&D  
fZ04!R  
　　) v\16RD  
,YTIC8qKr  
　　(progn d@`M CchCB  
0R{dNyh{  
　　(if (= 2 num) ;;;分2页打印 )'17r82a  
dI&!e#Y  
　　(progn "Ve.cP,7(  
5pr"d@.  
　　(setq dx (/ xm 2)) zJP6F.Ov!  
m8'C_U^89  
　　(setq dy (/ ym 1)) :I -V_4b  
`>0MNmu  
　　(winplt 2 0) fkf1m:Ckh  
+zXEYc  
　　) fVb-$  
x~xa6  
　　) 'WaPrCw@Mf  
+fvaUV_-  
　　) l^ZI* z7N  
W;bu2ym&Q  
　　) Eskb9^A  
M@ed>.  
　　(setvar "cmddia" 1) -~?J+o+Pr"  
hxCvk/7sT  
　　(princ) y_\p=0t8  
,0x y\u  
　　) pw7[y^[Qg  
x77l~=P+!  
　　(defun winplt(k n) ;;;窗选分页打印程序 ]|`Cuc  
qM#R0ZUIe\  
　　(setq i 1) T]2q?;N  
:ba5iMa  
　　(while ($#@60;= i k) Cmc3k,t  
M\yT).>z  
　　(setq j 0) :0s]U_
h  
': N51kC  
　　(while ($#@60;= j n) $<:E'^SAS  
Yjx|9_|Xn  
　　(setq x1 (+ x0 (* (- i 1) dx))) nstUMr6  
=bEda]  
　　(setq y1 (- ym (* j dy))) X]P:CY  
D9j3Xu  
　　(setq x2 (+ x1 dx)) ByCnD  
)M)7"PC  
　　(setq y2 (- y1 dy)) d&Ef"H  
MEwo}=B  
　　(command "plot" "w" (list x1 y1) (list x2 y2) "") #1>X58I^  
m1Y>Nj[f  
　　(setq j (+ 1 j)) V}\~ugN)y  
8Y5  
　　) _YF%V;X  
o6V}$wT3J  
　　(setq i (+ 1 i)) HttiX/2~  
zbq@pj)Qu  
　　) Mn)@{
^  
~%YBI9$+  
　　) OE}*2P/M>  
wE~V]bmtW  
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载，并在命令行输入myplot即可。 ,yd?gP-
O  
ANgw"&&>(  
对上述程序进行稍加修改便可实现4页以上的分页打印，限于篇幅，在此就不再详细介绍了。

楼主的资料不错！谢谢楼主的分享，楼主辛苦了，

多谢楼主分享

楼主的资料不错！谢谢楼主的分享，楼主辛苦了