社区 › 源码共享 › 另类获取PDF文件总页数的方法

烟盒迷唇 发表于 2024-2-28 09:51:23

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

lzspain 发表于 2024-2-28 13:01:41

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

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

烟盒迷唇 发表于 2024-2-28 16:15:31

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

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

lzspain 发表于 2024-2-28 17:56:11

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

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

烟盒迷唇 发表于 2024-3-8 11:48:22

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

lxl217114 发表于 2024-3-12 23:20:50

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

查看完整版本: 另类获取PDF文件总页数的方法