【PDFtk】合并特定文件夹中的PDF

kucha007

Pdftk素材来自：http://bbs.mjtd.com/plugin.php?i ... yOTUzOHwxODE2NzE%3D

1. (defun K:MPDF4Folder (OriPatch TgtPatch PreNam / TKPath PDFNam FlieNam BatFile)
   
2.   (if
   
3.       (and
   
4.           (setq TKPath (findfile "pdftk.exe"));如果Pdftk存在
   
5.           (vl-file-directory-p OriPatch);源文件夹存在
   
6.           (vl-file-directory-p TgtPatch);目标文件夹存在
   
7.           (vl-directory-files OriPatch "*.PDF" 1);源文件夹存在PDF
   
8.           (setq PDFNam (strcat PreNam "-合并.pdf"));合并后的文件名
   
9.       )
   
10.       (progn
    
11.           (if (findfile (strcat TgtPatch PDFNam))(vl-file-delete (strcat TgtPatch PDFNam)));删除旧PDF
    
12.           (setq FlieNam (vl-filename-mktemp "PDF合并" nil ".BAT"))
    
13.           (setq BatFile (open FlieNam "w"))
    
14.           (Write-Line (strcat
    
15.                           "start /min \"\" "
    
16.                           TKPath
    
17.                           " "
    
18.                           OriPatch ;源文件路径"%cd%\\
    
19.                           "*.pdf"
    
20.                           " cat output "
    
21.                           TgtPatch ;储存文件路径%cd%\\
    
22.                           PDFNam ;文件名
    
23.                       )
    
24.                       BatFile
    
25.           )
    
26.           (close BatFile)
    
27.           (command "Shell" FlieNam "");运行BAT
    
28.           (if (findfile (strcat TgtPatch PDFNam))(vl-file-delete FlieNam));删除BAT
    
29.           (vlax-invoke-method (vlax-create-object "Shell.Application") 'Open TgtPatch)
    
30.       )
    
31.       (if (vl-file-directory-p OriPatch)
    
32.           (vlax-invoke-method (vlax-create-object "Shell.Application") 'Open OriPatch)
    
33.       )
    
34.   )
    
35. )
    

(defun K:MPDF4Folder (OriPatch TgtPatch PreNam / TKPath PDFNam FlieNam BatFile)<br />   (if <br />       (and<br />           (setq TKPath (findfile "pdftk.exe"));如果Pdftk存在<br />           (vl-file-directory-p OriPatch);源文件夹存在<br />           (vl-file-directory-p TgtPatch);目标文件夹存在<br />           (vl-directory-files OriPatch "*.PDF" 1);源文件夹存在PDF<br />           (setq PDFNam (strcat PreNam "-合并.pdf"));合并后的文件名<br />       )<br />       (progn<br />           (if (findfile (strcat TgtPatch PDFNam))(vl-file-delete (strcat TgtPatch PDFNam)));删除旧PDF<br />           (setq FlieNam (vl-filename-mktemp "PDF合并" nil ".BAT"))<br />           (setq BatFile (open FlieNam "w"))<br />           (Write-Line (strcat <br />                           "start /min \"\" "<br />                           TKPath<br />                           " "<br />                           OriPatch ;源文件路径"%cd%\\<br />                           "*.pdf"<br />                           " cat output " <br />                           TgtPatch ;储存文件路径%cd%\\<br />                           PDFNam ;文件名<br />                       )<br />                       BatFile<br />           )<br />           (close BatFile)<br />           (command "Shell" FlieNam "");运行BAT<br />           (if (findfile (strcat TgtPatch PDFNam))(vl-file-delete FlieNam));删除BAT<br />           (vlax-invoke-method (vlax-create-object "Shell.Application") 'Open TgtPatch)<br />       )<br />       (if (vl-file-directory-p OriPatch)<br />           (vlax-invoke-method (vlax-create-object "Shell.Application") 'Open OriPatch)<br />       )<br />   )<br /> )<br />

参考用法：

1. (setq DwgPath (getvar 'DWGPREFIX))
   
2. (setq FolderPath (strcat DwgPath "--PDF--\\"))
   
3. (K:MPDF4Folder DwgPath FolderPath (vl-filename-base (getvar 'DwgName)))
   

(setq DwgPath (getvar 'DWGPREFIX))<br /> (setq FolderPath (strcat DwgPath "--PDF--\\"))<br /> (K:MPDF4Folder DwgPath FolderPath (vl-filename-base (getvar 'DwgName)))<br />

烟盒迷唇

qazxswk 发表于 2024-2-8 10:25
因为用了BAT，放弃用BAT就可以了，借PDFTK工具，在纯LISP代码中可以实现合并的效果的。

怎么写呢，能不能发出来看看

sandyvs

kucha007 发表于 2024-2-26 15:38
求个代码学习一下～

(setq myapp(vlax-create-object "WScript.Shell"))
                        (Vlax-invoke-method myapp "run" (strcat "C:\\Windows\\System32\\WindowsPowerShell\\v1.0\\powershell.exe " FlieNam) 0 true)   
                        (vlax-release-object myapp)

这样可以不


这样吧

(setq myapp (vlax-create-object "Shell.Application"))
                          (vlax-invoke-method myapp "shellexecute" FlieNam "" "" "runas" 0)
                          (vlax-release-object myapp)

烟盒迷唇

有的电脑用了以后没有错误，pause查看cmd运行情况，也没有错误，但是就是生成不了合并文件，不知道是什么原因造成的，换了笔记本电脑又是正常的

lxl217114

下一步要整合到批打了么？

lingduwx

这个可以，我以前一直是使用其他单独的软件来合并的，现在方便了

烟盒迷唇

很多批打都是用这个来合并PDF的

烟盒迷唇

黑屏闪过怎么消除呢

qazxswk

烟盒迷唇 发表于 2024-2-7 09:19
黑屏闪过怎么消除呢

因为用了BAT，放弃用BAT就可以了，借PDFTK工具，在纯LISP代码中可以实现合并的效果的。

baitang36

烟盒迷唇 发表于 2024-2-8 11:15
怎么写呢，能不能发出来看看

试试 startapp

烟盒迷唇

baitang36 发表于 2024-2-14 07:00
试试 startapp

明白了，用wscript.shell就可以没有黑屏闪过了

kucha007

烟盒迷唇 发表于 2024-2-15 09:27
明白了，用wscript.shell就可以没有黑屏闪过了

求个代码学习一下～