众所周知,AutoCAD R14没有预定分页打印功能。对于大图纸(如:A2图纸)及没有与之相匹配的打印机时,AutoCAD R14无法按设计要求将图纸打印出来。当然,如果您有宽幅打印机,那就最好,也就没有必要进行分页打印了。为了实现大图纸分页打印,本文利用AutoLISP语言编写一段程序并将其命名为myplot.lsp文件,为AutoCAD R14添加分2页或4页打印功能。
(defun c:myplot(),;主程序
(if (= 1 (getvar "cmddia"))
(setvar "cmddia" 0)
)
(setq num (getint "nEnter the Number of Page:"))
(setq pmax (getvar "extmax"))
(setq x0 0)
(setq xm (car pmax))
(setq ym (cadr pmax))
(if (= 4 num),;分4页打印
(progn
(setq dx (/ xm 2))
(setq dy (/ ym 2))
(winplt 2 1)
)
(progn
(if (= 2 num),;分2页打印
(progn
(setq dx (/ xm 2))
(setq dy (/ ym 1))
(winplt 2 0)
)
)
)
)
(setvar "cmddia" 1)
(princ)
)
(defun winplt(k n),;窗选分页打印程序
(setq i 1)
(while ($#@60;= i k)
(setq j 0)
(while ($#@60;= j n)
(setq x1 (+ x0 (* (- i 1) dx)))
(setq y1 (- ym (* j dy)))
(setq x2 (+ x1 dx))
(setq y2 (- y1 dy))
(command "plot" "w" (list x1 y1) (list x2 y2) "")
(setq j (+ 1 j))
)
(setq i (+ 1 i))
)
)
启动AutoCAD后,在其菜单项Tools中的Loadapps…将myplot.lsp文件装载,并在命令行输
入myplot即可。
对上述程序进行稍加修改便可实现4页以上的分页打印,限于篇幅,在此就不再详细介绍了。
相关文章
- 2021-09-08BIM技术丛书Revit软件应用系列Autodesk Revit族详解 [
- 2021-09-08全国专业技术人员计算机应用能力考试用书 AutoCAD2004
- 2021-09-08EXCEL在工作中的应用 制表、数据处理及宏应用PDF下载
- 2021-08-30从零开始AutoCAD 2014中文版机械制图基础培训教程 [李
- 2021-08-30从零开始AutoCAD 2014中文版建筑制图基础培训教程 [朱
- 2021-08-30电气CAD实例教程AutoCAD 2010中文版 [左昉 等编著] 20
- 2021-08-30电影风暴2:Maya影像实拍与三维合成攻略PDF下载
- 2021-08-30高等院校艺术设计案例教程中文版AutoCAD 建筑设计案例
- 2021-08-29环境艺术制图AutoCAD [徐幼光 编著] 2013年PDF下载
- 2021-08-29机械AutoCAD 项目教程 第3版 [缪希伟 主编] 2012年PDF