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

kucha007

Pdftk素材来自：http://bbs.mjtd.com/plugin.php?i ... yOTUzOHwxODE2NzE%3D
函数主体：
20250223-修复了文件名带空格，以及bat闪窗的情况

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

;使用PDFtk合并特定文件夹中的PDF<br /> (defun K:MPDF4Folder (OriPatch TgtPatch PreNam / TKPath PDFNam FlieNam BatFile obj)<br />   (if <br />       (and<br />           (setq TKPath (findfile "pdftk.exe"))<br />           (vl-file-directory-p OriPatch);源文件夹存在<br />           (vl-file-directory-p TgtPatch);目标文件夹存在<br />           (vl-directory-files OriPatch "*.PDF" 1);源文件夹存在PDF<br />           (setq PDFNam (strcat (substr (rtos (getvar "cdate") 2 0) 1 8) "-" 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 />             )<br />             BatFile<br />           )<br />           (close BatFile)<br />           (setq obj (vlax-create-object "Shell.Application"))<br />           (vlax-invoke-method obj "shellexecute" FlieNam "" "" "runas" 0);运行BAT<br />           (vlax-release-object obj)<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 TgtPatch (getvar 'DWGPREFIX))
   
2. (setq OriPatch (strcat TgtPatch "--PDF--\\"))
   
3. (setq PreNam (vl-filename-base (getvar 'DwgName)))
   
4. (K:MPDF4Folder OriPatch TgtPatch PreNam)
   

(setq TgtPatch (getvar 'DWGPREFIX))<br /> (setq OriPatch (strcat TgtPatch "--PDF--\\"))<br /> (setq PreNam (vl-filename-base (getvar 'DwgName)))<br /> (K:MPDF4Folder OriPatch TgtPatch PreNam)<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)

cghdy

sandyvs 发表于 2024-4-10 18:46
(setq myapp(vlax-create-object "WScript.Shell"))
                        (Vlax-invoke-method myap ...

时常会失效，不一定能正确启动.bat文件

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就可以没有黑屏闪过了

求个代码学习一下～