批量转PDF文件

自贡黄明儒

chen2j 发表于 2014-12-17 22:52
(while (not (findfile "name.pdf")))   这个做延时是一个不错的选择。不知道autolisp里面有没有专门延时的 ...

好像就是delay.但这样不好吧?

lijiao

我是这样做的：
1、用lisp设置好打印参数
2、进行打印———————————————(vla-PlotToDevice plot nil)
3、搜索刚生成的pdf文件——————————(findfile filename)
4、合并pdf文件——————————————(vlax-invoke-method objLast 'InsertPages toto objThis 0 1 0)
5、删除最后生成的pdf文件————————(vl-file-delete filename)
6、循环执行上述步骤，就可批量打印

tgliu

我们公司就是要经常打印好多pDF,一个个打太麻烦了，因此我就写了这样一个批量打印程试，可以自动提取图框中的ERP编号作为PDF文件名，也可以经当前文件名+序号为文件名，程式只要你一框选你要打印的图纸，其他就可以自动完成，以前半小时的事前，现在不要10秒就可以搞定。
本程式就是利用CAD自带的DWG TO PDF打印机，在CAD2007以上版本应用OK，不过在CAD2004好象没有这个自带的打印机，我装了了一个adobe pdf 打印机，但是不成，不能实现批量命名，所以本插件要在CAD2007上面用才行，不知道CAD2005　和2006有没有这个打印机，我没有装这两个版本，没有试用

Atsai

lijiao 发表于 2014-12-19 09:11
我是这样做的：
1、用lisp设置好打印参数
2、进行打印———————————————(vla-PlotToDevice  ...

请教一下前辈，第4步骤里的一些问题！
4、合并pdf文件——————————————(vlax-invoke-method objLast 'InsertPages toto objThis 0 1 0)

这个语法在vlisp的函数库里找不到 'InsertPages的用法，可否再说明白一些？
因为找不到相关的用法麻烦传授一下！谢谢！

lijiao

前提，系统里要有acrobat软件

(defun cs-hb-pdf (filename filename1 / OBJLAST OBJTHIS)
  
  (setq objLast (vlax-get-or-create-object "acroExch.PDDoc"))
  (setq objThis (vlax-get-or-create-object "acroExch.PDDoc"))
  (vlax-invoke-method objLast 'Open filename)
  (vlax-invoke-method objThis 'Open filename1)
  (setq toto (1- (vlax-invoke-method objLast 'GetNumPages)))
  (vlax-invoke-method objLast 'InsertPages toto objThis 0 1 0)
  (vlax-invoke-method objThis 'Close)
  (vlax-invoke-method objLast 'Save 1 filename)
  (vlax-invoke-method objLast 'Close)
  (vlax-release-object objThis)
  (vlax-release-object objLast)
  (vl-file-delete filename1)
  (princ)
)

Atsai

lijiao 发表于 2015-7-22 09:13
前提，系统里要有acrobat软件

(defun cs-hb-pdf (filename filename1 / OBJLAST OBJTHIS)

感恩！谢谢前辈的源码！

vitalgg

http://atlisp.cn/package-info/pdftk-stable.html
基于 pdftk free 的PDF处理工具。用于 PDF 合并，拆分，加密，解密，加水印，戳记等。pdftk 详情见 pdftk.com

如果无法播放，请点击此处在新窗口打开

sysu-沼泽

lijiao 发表于 2015-7-22 09:13
前提，系统里要有acrobat软件

(defun cs-hb-pdf (filename filename1 / OBJLAST OBJTHIS)

您好~请问，如果是福昕pdf编辑器，代码需要如何调整才能运行呢，感谢！