Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> Autocad教程 >> 正文

为AutoCAD R14添加分页打印功能
文章来源:互联网

AutoCAD 堪称当今最流行的计算机辅助设计制图软件。它不仅应用于机械设计行业,而且还应用于其他各种行业,诸如工程分析、化学工程、电器工程等行业。它之所以应用之广还因为它具有开放的体系结构,它允许用户和开发者采用高级语言编程对其进行扩充和修改,以最大限度地满足用户的特殊要求。众所周知,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页以上的分页打印,限于篇幅,在此就不再详细介绍了。

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有