设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › Visual Lisp实现多PDF合并
123下一页
返回列表 发新帖
查看: 3478|回复: 20

[提问] Visual Lisp实现多PDF合并

[复制链接]
sysu-沼泽
发表于 2021-10-31 16:45:15 | 显示全部楼层 |阅读模式
本帖最后由 sysu-沼泽 于 2021-11-1 09:20 编辑

请教下大家，在Visual Lisp中可以通过什么方式对某路径下的PDF文件进行合并？如果有示例最好啦   ps.已经搜了本论坛和晓东论坛，均是通过PDF编辑器进行的，但目前需要的是通过代码进行自动合并哈。目前搜索到的方案，大部分是通过pdftk库进行操作的，或者请问有相关代码可供借鉴吗？
"觉得好，就打赏"
打赏
还没有人打赏，支持一下
回复

使用道具 举报

baitang36
发表于 2021-10-31 22:03:08 | 显示全部楼层
试试这个，用startapp调用它

本帖子中包含更多资源

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

x
回复 支持 2 反对 0

使用道具 举报

vitalgg
发表于 2021-11-7 11:15:08 | 显示全部楼层
本帖最后由 vitalgg 于 2021-11-7 11:20 编辑

http://atlisp.cn/package-info/pdftk-stable.html

基于 pdftk free 的PDF处理工具。用于 PDF 合并，拆分，加密，解密，加水印，戳记等。




  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; This file was created by @lisp DEV-tools
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;; define a first config item  'pdftk:first for package pdftk 's configitem first
  5. (@:define-config 'pdftk:stamp "D:\\Design\\standard\\stamp.pdf" "用于加为戳记的pdf文件")
  6. (@:define-config 'pdftk:background "D:\\Design\\standard\\background.pdf" "用于作为水印的pdf文件。被加水印的PDF文件须为透明背景。")
  7. (@:define-config 'pdftk:pre-folder "D:\\" "选择pdf文件路径时，最后一次操作的文件位置。")
  8. (if (null (findfile (@:get-config 'pdftk:stamp)))
  9.     (@:mkdir (@:path (vl-filename-directory(@:get-config 'pdftk:stamp)))))
  10. ;; (@:get-config 'pdftk:first)
  11. ;; (@:set-config 'pdftk:first  "New Value")
  12. ;; Add menu in @lisp panel
  13. (@:add-menu "出图排版" "PDF设置" "(pdftk:setup)" )
  14. (@:add-menu "出图排版" "合并PDF" "(pdftk:menu-merge)" )
  15. (@:add-menu "出图排版" "拆分PDF" "(pdftk:menu-burst)" )
  16. (@:add-menu "出图排版" "PDF加戳记" "(pdftk:menu-stamp)" )
  17. (@:add-menu "出图排版" "PDF加水印" "(pdftk:menu-background)" )
  18. (@:add-menu "出图排版" "解密PDF" "(pdftk:menu-decrypt)" )
  19. (@:add-menu "出图排版" "加密PDF" "(pdftk:menu-encrypt)" )

  21. (defun pdftk:setup (/ res)
  22.   "pdf tools"
  23.   (setq res
  24.   (ui:input "配置信息"
  25.       (mapcar '(lambda (x) (list (strcase (vl-symbol-name (car x)) T)(cadr x)(cddr x)))
  26.         (vl-remove-if '(lambda (x) (not (wcmatch (vl-symbol-name (car x)) "PDFTK:*")))
  27.           (if @:*config.db*
  28.               @:*config.db* (@:load-config))))))
  29.   (foreach res% res
  30.         (@:set-config (read (car res%)) (cdr res%)))
  31.   )
  32. (defun pdftk:menu-merge (/ folder)
  33.   (@:help "合并选择的文件夹下的所有pdf,到父级目录，并打开该目录。")
  34.   (if (setq folder (system:get-folder "请选择要合并的PDF文件夹"))
  35.       (progn
  36.   (@:set-config 'pdftk:pre-folder (system:dir folder))
  37.   (pdftk:merge folder)
  38.   (system:explorer (strcat folder "\\..\\" )))))
  39. (defun pdftk:merge (folder / app files filetmp filename-bk fp-bookmark file-bk file-bk-utf8)
  40.   "将参数folder 文件夹下的 pdf 文件合并成一个文件。合并后的文件名为 `文件夹-merge-all.pdf' "
  41.   ""
  42.   "(pdftk:merge \"D:\\Output\\A项目\")"
  43.   (setq app "bin\\pdftk.exe")
  44.   (pdftk:download)
  45.   (if (and (findfile app)
  46.      folder
  47.      (vl-directory-files folder "*.pdf" 1))
  48.       (progn
  49.   (@:patch-pgp-shell)
  50.   (setq files "*.pdf")
  51.   (setq filetmp "merge-tmp.pdf")
  52.   (setq filename-bk "merge-all.pdf")
  53.   (setvar "cmdecho" 0)
  54.   ;;创建标签文件。
  55.   (setq fp-bookmark (open (strcat folder "\\bk.txt")"w"))
  56.   (setq i 0)
  57.   (foreach bk% (vl-directory-files folder "*.pdf" 1)
  58.      (write-line "BookmarkBegin" fp-bookmark)
  59.      (write-line (strcat "BookmarkTitle: "
  60.              (vl-filename-base bk%))
  61.            fp-bookmark)
  62.      (write-line "BookmarkLevel: 1" fp-bookmark)
  63.      (write-line (strcat "BookmarkPageNumber: "
  64.              (itoa (setq i (1+ i))))
  65.            fp-bookmark))
  66.   (close fp-bookmark)
  67.   ;; 转码
  68.   (setq file-bk (strcat folder "\\bk.txt"))
  69.   (setq file-bk-utf8 (strcat folder "\\bk-utf8.txt"))
  70.   (command "shell-bg"
  71.      (strcat  @:*prefix* "bin\\iconv.exe -f gb2312 -t utf-8 \""
  72.         file-bk "\" >> \"" file-bk-utf8  "\""
  73.         ))
  74.   ;;(sleep 3)
  75.   (print folder)

  77.   (command "start-bg"
  78.      (strcat " /D \"" folder "\""
  79.        " /MIN /B  "
  80.        @:*prefix* app  " "
  81.        files " "
  82.        "output " filetmp
  83.        ))
  84.   (while (null (findfile (strcat folder "\\" filetmp)))
  85.     (sleep 3))
  86.   (command "start-bg"
  87.      (strcat  " /D \"" folder "\""
  88.         " /MIN /B  "
  89.         @:*prefix* app  " "
  90.         filetmp " "
  91.         "update_info_utf8 "
  92.         " bk-utf8.txt "
  93.         " output \"..\\"
  94.         (vl-filename-base folder) "-" filename-bk "\" "
  95.         ))
  96.   (while (null (findfile (strcat folder "\\..\\"
  97.                (vl-filename-base folder)
  98.                "-" filename-bk)))
  99.     (sleep 3))
  100.   (vl-file-delete file-bk)
  101.   (vl-file-delete file-bk-utf8)
  102.   (vl-file-delete (strcat folder "\\" filetmp))
  103.   
  104.   (setvar "cmdecho" 1)
  105.   (system:explorer (strcat folder "\\..\\" ))
  106.   ))
  107.   (princ)
  108.   )

  110. (defun pdftk:menu-burst (/ pdf-file)
  111.   (@:help "拆分选择的 pdf 文件，并打开文件所在目录。")
  112.   (if (setq pdf-file  (getfiled "请选择要拆分的PDF文件" (@:get-config 'pdftk:pre-folder) "pdf" 8))
  113.       (progn
  114.   (@:set-config 'pdftk:pre-folder (system:dir (vl-filename-directory pdf-file )))
  115.   (pdftk:burst pdf-file)
  116.   (system:explorer (vl-filename-directory pdf-file)))))
  117. (defun pdftk:burst (pdf-filename / app )
  118.   "拆分 pdf 文件为单页文件"
  119.   (setq app "bin\\pdftk.exe")
  120.   (pdftk:download)
  121.   (if (and (findfile app)
  122.      (= 'str (type-of pdf-filename))
  123.      (findfile pdf-filename))
  124.       (progn
  125.   (setvar "cmdecho" 0)
  126.   (command "start-bg"
  127.      (strcat " /D \"" (vl-filename-directory pdf-filename) "\""
  128.        " /MIN /B  "
  129.        @:*prefix* app  " \""
  130.        pdf-filename "\" "
  131.        "burst "
  132.        ))
  133.   (setvar "cmdecho" 1)
  134.   ))
  135.   (princ)
  136.   )

  138. (defun pdftk:menu-encrypt (/ filename pw permission permissions)
  139.   (@:help "选择一个 pdf 文件,设置所有者密码和用户密码，并打开文件所在目录。")
  140.   (setq permission '(("Printing"  nil "高质量打印")
  141.          ("DegradedPrinting" nil "低质量打印")
  142.          ("ModifyContents" nil "编辑内容,同时允许 Assembly.")
  143.          ("Assembly" nil "组装")
  144.          ("CopyContents" nil "复制内容，同时允许 ScreenReaders")
  145.          ("ScreenReaders" nil "屏幕阅读器")
  146.          ("ModifyAnnotations" nil "编辑注释，同时允许 FillIn")
  147.          ("FillIn" nil "?填充?")
  148.          ("AllFeatures" nil "以上所有.")))

  150.   (if (setq filename (getfiled "请选择要加密的PDF文件" (@:get-config 'pdftk:pre-folder) "pdf" 8))
  151.       (progn
  152.   (@:set-config 'pdftk:pre-folder (system:dir (vl-filename-directory filename )))
  153.   (setq pw (ui:input "请输入密码用于加密PDF:"
  154.          '(("所有者密码:" "" "请输入所有者密码" T)
  155.            ("所有者密码2:" "" "再次输入以确认" T)
  156.            ("用户密码:"  "" "请输入使用者密码" T)
  157.            ("用户密码2:" "" "再次输入以确认" T))))
  158.   (setq permissions
  159.         (mapcar '(lambda (x) (car (string:to-list x ": ")))
  160.           (ui:select-multi "请选择用户权限:" (mapcar '(lambda (x) (strcat (car x) ": " (last x))) permission))))
  161.   (if (null permissions)
  162.       (setq permissions '("")))
  163.   
  164.   (while (and pw
  165.         (or
  166.          (not (eq (cdr (assoc "所有者密码:" pw))(cdr (assoc "所有者密码2:" pw))))
  167.          (not (eq (cdr (assoc "用户密码:" pw))(cdr (assoc "用户密码2:" pw))))))
  168.     (alert "请注意所有者或用户的两次输入必须相同。所有者和用户的密码可以不同。")
  169.     (setq pw (ui:input "请输入密码用于加密PDF:"
  170.            '(("所有者密码:" "" "请输入所有者密码" T)
  171.              ("所有者密码2:" "" "再次输入以确认" T)
  172.              ("用户密码:"  "" "请输入使用者密码" T)
  173.              ("用户密码2:" "" "再次输入以确认" T))))
  174.     )
  175.   (if pw
  176.       (progn
  177.         (pdftk:encrypt filename (cdr (assoc "所有者密码:" pw)) (cdr (assoc "用户密码:" pw)) permissions)
  178.         (system:explorer (vl-filename-directory filename)))
  179.     ))))
  180. (defun pdftk:menu-decrypt (/ pdf-file)
  181.   (@:help "选择一个 pdf 文件,去除所有者密码，并打开文件所在目录。")
  182.   (if (setq pdf-file (getfiled "请选择要解密的PDF文件" (@:get-config 'pdftk:pre-folder) "pdf" 8))
  183.       (progn
  184.   (@:set-config 'pdftk:pre-folder (system:dir (vl-filename-directory pdf-file )))
  185.   (pdftk:decrypt
  186.    pdf-file
  187.    (cdr (assoc "所有者密码:"
  188.          (ui:input "请输入密码用于解密PDF:"
  189.              '(("所有者密码:" "" "请输入所有者密码" T))))))
  190.   (system:explorer (vl-filename-directory filename))
  191.   )))

  193. (defun pdftk:menu-stamp (/ filename)
  194.   (@:help "选择一个文件，给该文件加上戳记，戳记文件在pdf设置中进行设置。")
  195.   (if (setq filename (getfiled "请选择要加戳记的PDF文件" (@:get-config 'pdftk:pre-folder) "pdf" 8))
  196.       (progn
  197.   (@:set-config  'pdftk:pre-folder(system:dir (vl-filename-directory filename)))
  198.   (pdftk:stamp filename)
  199.   (system:explorer (vl-filename-directory filename)))))

  201. (defun pdftk:stamp (filename / app)
  202.   ;; 可执行文件路径
  203.   (setq app "bin\\pdftk.exe")
  204.   (pdftk:download)
  205.   (if (null (findfile  (@:get-config 'pdftk:stamp)))
  206.       (progn
  207.   (vl-file-copy (strcat (@:package-path "pdftk") "stamp.pdf")
  208.           (@:get-config 'pdftk:stamp))
  209.   (sleep 2)))
  210.   ;;(setq files (vl-directory-files (system:get-folder) "*.pdf"))
  211.   (if (and (findfile app)
  212.      filename)
  213.       (progn
  214.   ;;(setq folder (system:get-folder "请选择要合并的PDF文件夹"))
  215.   ;;(setq files (strcat folder  "\\*.pdf"))
  216.   (if (/= "" (@:get-config 'pdftk:stamp))
  217.       (progn
  218.         (setvar "cmdecho" 0)
  219.         (command "start-bg"
  220.            (strcat " /D \"" (vl-filename-directory filename) "\""
  221.              " /MIN /B  "
  222.              @:*prefix* app  " \""
  223.              filename "\" "
  224.              "stamp \"" (@:get-config 'pdftk:stamp)"\" "
  225.              "output \""
  226.              (strcat (vl-filename-directory filename) "\\"
  227.                (vl-filename-base filename) "-stamp.pdf\" ")
  228.              ))
  229.         (setvar "cmdecho" 1)
  230.         ))
  231.   ))
  232.   (princ)
  233.   )
  234. (defun pdftk:menu-background (/ filename)
  235.   (@:help "选择一个文件，给该文件加上水印，水印文件在pdf设置中进行设置。所选的 pdf 文件必须为透明背景才有效果。")
  236.   (if (setq filename  (getfiled "请选择要加水印的PDF文件" (@:get-config 'pdftk:pre-folder) "pdf" 8))
  237.       (progn
  238.   (@:set-config  'pdftk:pre-folder (system:dir (vl-filename-directory filename)))
  239.   (pdftk:background filename)
  240.   (system:explorer (vl-filename-directory filename))
  241.   )))

  243. (defun pdftk:background (filename / app)
  244.   ;; 可执行文件路径
  245.   (setq app "bin\\pdftk.exe")
  246.   (pdftk:download)
  247.   (if (null (findfile (@:get-config 'pdftk:background)))
  248.       (progn
  249.   (vl-file-copy (strcat (@:package-path "pdftk") "background.pdf")
  250.           (@:get-config 'pdftk:background))
  251.   (sleep 2)
  252.   ))
  253.   ;;(setq files (vl-directory-files (system:get-folder) "*.pdf"))
  254.   (if (and (findfile app)
  255.      filename)
  256.       (progn
  257.   ;;(setq folder (system:get-folder "请选择要合并的PDF文件夹"))
  258.   ;;(setq files (strcat folder  "\\*.pdf"))
  259.   (if (/= "" (@:get-config 'pdftk:background))
  260.       (progn
  261.         (setvar "cmdecho" 0)
  262.         (command "start-bg"
  263.            (strcat " /D \"" (vl-filename-directory filename) "\""
  264.              " /MIN /B  "
  265.              @:*prefix* app  " \""
  266.              filename "\" "
  267.              "background \""(@:get-config 'pdftk:background)"\" "
  268.              "output \""
  269.              (strcat (vl-filename-directory filename) "\\"
  270.                (vl-filename-base filename) "-background.pdf\" ")
  271.              ))
  272.         (setvar "cmdecho" 1)
  273.         ))
  274.   ))
  275.   (princ)
  276.   )

回复 支持 反对

使用道具 举报

KO你
发表于 2021-11-24 21:35:14 | 显示全部楼层
KO你 发表于 2021-11-24 21:29
大佬，试用下这版下面是下载链接：
http://www.pc6.com/softview/SoftView_131704.html
合并拆分都很快 ...

如果有高手把这个软件搞成中文版，合并成一个单文件的工具那就完美了，直接放电脑桌面就能使用
回复 支持 反对

使用道具 举报

wzg356
发表于 2021-10-31 21:36:09 来自手机 | 显示全部楼层
代码启动编辑器，在跟着全路径pdf试一试
回复 支持 反对

使用道具 举报

mikewolf2k
发表于 2021-11-1 09:03:27 | 显示全部楼层
推荐一个命令行的PDF工具 PDFTK，功能很强大。
回复 支持 反对

使用道具 举报

sysu-沼泽
 楼主| 发表于 2021-11-1 09:21:08 | 显示全部楼层
mikewolf2k 发表于 2021-11-1 09:03
推荐一个命令行的PDF工具 PDFTK，功能很强大。

您好，我试了pdftk，但用批处理bat的时候一直运行不成功。请问您有相关简单的示例文件吗？我测试下~
回复 支持 反对

使用道具 举报

sysu-沼泽
 楼主| 发表于 2021-11-1 09:22:11 | 显示全部楼层
baitang36 发表于 2021-10-31 22:03
试试这个，用startapp调用它

感谢！这个软件不错，特别适用于要人工调整打印顺序的文件
回复 支持 反对

使用道具 举报

mikewolf2k
发表于 2021-11-1 09:51:12 | 显示全部楼层
sysu-沼泽 发表于 2021-11-1 09:21
您好，我试了pdftk，但用批处理bat的时候一直运行不成功。请问您有相关简单的示例文件吗？我测试下~

下载的包里面应该带了示例，另外pdftk -h也有说明。
回复 支持 反对

使用道具 举报

zixuan203344
发表于 2021-11-1 20:44:58 | 显示全部楼层
不用试了，我写过一个调用外部exe合并PDF，因为lisp不能异步等待，所以当PDF文件比较多的时候，有可能没合并完，lisp就执行后续操作了，导致合并不完整，当然，只有几张PDF的时候，还是能比较好的完成
回复 支持 反对

使用道具 举报

Atsai
发表于 2021-11-1 21:37:07 | 显示全部楼层
http://bbs.mjtd.com/thread-102467-4-1.html

在35楼，lijiao大大有分享源码，可参考看看！
回复 支持 反对

使用道具 举报

sysu-沼泽
 楼主| 发表于 2021-11-3 08:29:03 | 显示全部楼层
Atsai 发表于 2021-11-1 21:37
http://bbs.mjtd.com/thread-102467-4-1.html

在35楼，lijiao大大有分享源码，可参考看看！

这个解决方案好！感谢！！！
回复 支持 反对

使用道具 举报

123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-25 19:49 , Processed in 0.209893 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表