您的位置:网站首页 > CAD教程 > 常见问题

AutoCAD R14中如何添加分页打印功能

时间:2009-03-14 08:45:54 来源:

  众所周知,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页以上的分页打印,限于篇幅,在此就不再详细介绍了。