[求助]：关于批打印程序

yaya-54 · 发表于 2007-3-6 15:35:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有没有这样的批量打印的程序，在一个文件夹里存了很多图形文件，比如：1.dwg,2.dwg,3.dwg.......每张图里只有一个图框，图框大小、位置不同，要统一打印成A3或A4的。有没有不用打开每张图就可以打印的程序。我从网上下载了秋枫的但好像这个功能不行。各位有没有推荐？谢谢!

laoxie_1983 · 发表于 2007-3-6 15:57:59

不打开图形好像比较难办，可以打开一个图形然后执行打印，关闭图形再打开另一个图形；这样循环就应该行的。

zml84 · 发表于 2007-3-6 16:04:17

不可能有”不用打开每张图就可以打印“的程序。
应该为在程序控制下自动、连续打开图形并打印的程序。
 
建议分两步走较好：
1.编写一个函数dy，传入的参数为打印纸张大小。
功能为：获取当前图形范围；计算打印输出比例；打印。
2.编写控制主程序。
功能为：获取打印路径、打印纸张大小；建立一个SCR脚本文件dyscr，其内依次写入打开图形、调入运行dy函数、关闭当前图档等操作，文件格式实例如下：

OPEN "1.dwg"
LOAD dy
(dy 打印纸张大小)
CLOSE
OPEN "2.dwg"
LOAD dy
(dy 打印纸张大小)
CLOSE
OPEN "3.dwg"
LOAD dy
(dy 打印纸张大小)
CLOSE
...
(alert "打印完毕！")

复制代码

然后关闭脚本文件dyscr；在主程序最后写入
[PHP]
(COMMAND "_script" "DYSCR.scr")
[/PHP]
即可。

zml84 · 发表于 2007-3-6 17:11:41

下面这个LISP批量打印程序，是03年完成的。
楼主可以根据个人需要对其进行修改。

;;;=======================
;;;批量打印
;;;日期：2003-04-05 zml84
;;;=======================
(defun c:dy ()
(setq lodlen (strlen
(setq fname1 (getfiled "请选择要路基表文件"
"f:/"
"dwg"
8
)
)
)
)
(setq newlen (- lodlen 5))
(setq fname (substr fname1 1 newlen))
(setq qsy 1
zzy 0
)
(while (> qsy zzy)
(setq qsy (getint "\n请输入起始页码："))
(setq zzy (getint "\n请输入终止页码："))
)
(setq dk (open "C:\\Program Files\\autoCAD R14\\dyscr.scr" "w"))
(setq dqy qsy) ;将开始页码赋予当前页
(while (<= dqy zzy)
(if (= dqy qsy)
(setq cc (strcat "open " fname (itoa dqy)))
(setq cc (strcat "\nopen " fname (itoa dqy)))
)
(princ cc dk)
(princ cc)
(princ "\nQSAVE" dk)
(princ "\n(command "plot" "e" "")" dk)
(setq dqy (1+ dqy))
)
(princ "\n(command "new" "")" dk)
(princ "\n(alert "打印完毕！")" dk)
(princ "\t" dk)
(close dk)
(command "script"
"C:\\Program Files\\autoCAD R14\\dyscr.scr"
)
(princ)
)

;;;======================= 
;;;批量打印                               
;;;日期：2003-04-05 zml84      
;;;======================= 
(defun c:dy () 
    (setq lodlen (strlen 
                     (setq fname1 (getfiled "请选择要路基表文件" 
                                            "f:/" 
                                            "dwg" 
                                            8 
                                  ) 
                     ) 
                 ) 
    ) 
    (setq newlen (- lodlen 5)) 
    (setq fname (substr fname1 1 newlen)) 
    (setq qsy 1 
          zzy 0 
    ) 
 
    (while (> qsy zzy) 
        (setq qsy (getint "\n请输入起始页码：")) 
        (setq zzy (getint "\n请输入终止页码：")) 
    ) 
 
    (setq dk (open "C:\\Program Files\\autoCAD R14\\dyscr.scr" "w")) 
 
    (setq dqy qsy)                        ;将开始页码赋予当前页 
    (while (<= dqy zzy) 
        (if (= dqy qsy) 
            (setq cc (strcat "open " fname (itoa dqy))) 
            (setq cc (strcat "\nopen " fname (itoa dqy))) 
        ) 
 
        (princ cc dk) 
        (princ cc) 
 
 
 
        (princ "\nQSAVE" dk) 
        (princ "\n(command "plot" "e" "")" dk) 
        (setq dqy (1+ dqy)) 
    ) 
 
    (princ "\n(command "new" "")" dk) 
 
    (princ "\n(alert "打印完毕！")" dk) 
    (princ "\t" dk) 
    (close dk) 
 
    (command "script" 
             "C:\\Program Files\\autoCAD R14\\dyscr.scr" 
    ) 
    (princ) 
)

yaya-54 · 发表于 2007-3-6 17:26:16

那你们一般碰到这样的图是怎么打印的呢？zml84 我不会写LSP程序：(

zengwei104 · 发表于 2007-3-6 19:11:35

我同时好像原来编过一个，不过现在找不到了

yaya-54 · 发表于 2007-4-5 12:40:31

CAD中的2005的发布是不是可以进行批打印？如果可以要怎么做？谁可以仔细的讲解下。谢谢

乌马 · 发表于 2007-4-6 12:26:27

工作里面经常碰到这样的问题
今天终于有了个答案
谢谢楼主
和
各位在这里讨论学习的朋友~~！~！~！~

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：关于批打印程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子