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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › Visual Lisp实现多PDF合并
123下一页
返回列表 发新帖
楼主: sysu-沼泽

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

[复制链接]
nijiea123
发表于 2021-11-5 22:46 | 显示全部楼层
我一般都是直接用PYTHON 写好的程序合并
回复 支持 反对

使用道具 举报

vitalgg
发表于 2021-11-7 11:15 | 显示全部楼层
本帖最后由 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.   )

回复 支持 反对

使用道具 举报

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

您有探索者PDF工程易览的绿色版吗？
回复 支持 反对

使用道具 举报

KO你
发表于 2021-11-24 21:29 | 显示全部楼层
本帖最后由 KO你 于 2021-11-24 21:33 编辑
baitang36 发表于 2021-10-31 22:03
试试这个，用startapp调用它

大佬，试用下这版下面是下载链接：
http://www.pc6.com/softview/SoftView_131704.html
合并拆分都很快


是英文版的，我一直想找个中文版的没找到

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

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

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

使用道具 举报

hooboxu
发表于 2022-11-10 00:59 | 显示全部楼层
谢谢你们的图分享
回复 支持 反对

使用道具 举报

sunny_8848
发表于 2022-11-10 08:31 | 显示全部楼层
KO你 发表于 2021-11-24 21:35
如果有高手把这个软件搞成中文版，合并成一个单文件的工具那就完美了，直接放电脑桌面就能使用

挺好用的，多谢分享
回复 支持 反对

使用道具 举报

阳阳阳
发表于 2022-11-30 08:28 | 显示全部楼层
这个是好东西哦，一直在找呢！！
回复 支持 反对

使用道具 举报

mokson
发表于 2022-11-30 09:58 | 显示全部楼层
我也一直想要这样的操作！
回复 支持 反对

使用道具 举报

sysu-沼泽
 楼主| 发表于 2022-11-30 20:04 | 显示全部楼层
mokson 发表于 2022-11-30 09:58
我也一直想要这样的操作！

9楼的解决方案好
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-30 22:54 , Processed in 0.415131 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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