另类获取PDF文件总页数的方法

烟盒迷唇

统计图幅尺寸及数量

2. (defun c:tt (/ lst1 lst2 str_lst)
   
3.         (setq str_lst (Pdf:Getparameter (getfiled "选择PDF文件" (getvar 'DWGPREFIX) "pdf" 128) "PageMediaDimensions"))
   
4.         (if str_lst
   
5.                 (progn
   
6.                         (setq lst1
   
7.                                 (mapcar
   
8.                                         (function
   
9.                                                 (lambda(x)
   
10.                                                         (read (strcat "(" (vl-string-left-trim "PageMediaDimensions: " x) ")"))
    
11.                                                 )
    
12.                                         )        
    
13.                                         str_lst
    
14.                                 )        
    
15.                                 lst2 (HHst->Group lst1)                                
    
16.                         )
    
17.                         (foreach x lst2
    
18.                                 (princ
    
19.                                         (strcat "\n图幅[" (vl-princ-to-string (caar x)) " "
    
20.                                                 (vl-princ-to-string (cadar x)) "]的数量是：" (vl-princ-to-string (vl-list-length x))
    
21.                                         )                                         
    
22.                                 )
    
23.                         )
    
24.                 )
    
25.                 (princ "\n提取不到相关数据！")
    
26.         )
    
27.         (princ)
    
28. )

(defun c:tt (/ lst1 lst2 str_lst) <br />         (setq str_lst (Pdf:Getparameter (getfiled "选择PDF文件" (getvar 'DWGPREFIX) "pdf" 128) "PageMediaDimensions"))<br />         (if str_lst <br />                 (progn <br />                         (setq lst1 <br />                                 (mapcar<br />                                         (function <br />                                                 (lambda(x)<br />                                                         (read (strcat "(" (vl-string-left-trim "PageMediaDimensions: " x) ")"))<br />                                                 )<br />                                         )        <br />                                         str_lst<br />                                 )        <br />                                 lst2 (HHst->Group lst1)                                <br />                         )<br />                         (foreach x lst2 <br />                                 (princ <br />                                         (strcat "\n图幅[" (vl-princ-to-string (caar x)) " " <br />                                                 (vl-princ-to-string (cadar x)) "]的数量是：" (vl-princ-to-string (vl-list-length x))<br />                                         )                                         <br />                                 )<br />                         )<br />                 )<br />                 (princ "\n提取不到相关数据！")<br />         )<br />         (princ)<br /> )

lzspain

烟盒迷唇 发表于 2024-2-28 09:48
这样子了

大佬厉害，只是和想要的那种结果还是有点儿差距。有些PDF文件里是有多种图幅的，目前倒是有其他工具可以统计，大佬这个方法很新颖。

烟盒迷唇

lzspain 发表于 2024-2-28 13:01
大佬厉害，只是和想要的那种结果还是有点儿差距。有些PDF文件里是有多种图幅的，目前倒是有其他工具可以 ...

这个可以统计多种图幅的吧，只是我的图幅只有一种，所以只提示了一种。

lzspain

烟盒迷唇 发表于 2024-2-28 16:15
这个可以统计多种图幅的吧，只是我的图幅只有一种，所以只提示了一种。

要统计为类似A3、A3+、A*这种样式

烟盒迷唇

其实可以不用生成bat文件也能办到，只是使用的人少，这里就不更新了

lxl217114

谢谢分享，有几个打印都是用此法子的。