AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业,而且还应用于其他各种行业,诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构,它允许用户和开发者采用高级语言编程对其进行扩充和修改,以最大限度地满足用户的特殊要求。众所周知,AutoCAD R14没有预定分页打印功能。对于大图纸(如:A2图纸)及没有与之相匹配的打印机时,AutoCAD R14无法按设计要求将图纸打印出来。当然,如果您有宽幅打印机,那就最好,也就没有必要进行分页打印了。为了实现大图纸分页打印,本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件,为AutoCAD R14添加分2页或4页打印功能。 8`^I.tD
.Q?AzU,2D
(defun c:myplot() ;;;主程序 "@Te!.~A.
%*/?k~53
(if (= 1 (getvar "cmddia")) Q2Q`g`* O:
ls/:/x(5d
(setvar "cmddia" 0) ;JAe=wt^'I
2 3>lE}^G
) kmP0gT{Sj
i#Wl?(-i
(setq num (getint " Enter the Number of Page:")) v#nFPB=z
no; Yu
(setq pmax (getvar "extmax")) &[kwM395
.JH3,L"S^
(setq x0 0) a?D\H5TF-
Z9! goI
(setq xm (car pmax)) us5`?XeX]
S"}FsS;k<?
(setq ym (cadr pmax)) ,ciNoP*-~%
t#<q O6&