本帖最后由 1291500406 于 2022-6-28 09:01 编辑
你应该问 怎么获取pdf 总页数然后
(defun c:xx(/ i pdf)
(setq
i 0
pdf "C:\\pdf.pdf"
)
(repeat
(获取pdf 总页数 pdf)
(command "-PDFimport" "F" pdf (setq i (1+ i)) (list (* i 100) 0) "1.0" "0")
)
(princ)
)
获取pdf 总页数 有很多方法实现
1.控制台程序 pdftk.exe 缺点会黑屏弹窗
2.Acrobat Reader 提供的com
(setq pdfobj (vlax-create-object "AcroExch.PDDoc"))
(vlax-invoke pdfobj 'open "d:\\1.pdf")
(setq num(vlax-invoke pdfobj 'GetNumPages))
(vlax-invoke pdfobj 'close)
缺点必须安装 Acrobat Reader
3.使用 vb.net c#.net c++写的arx 定义函数 4.读pdf 文件流 分析字符串 页数
/Type/Pages/Count 页数
|