【K:TotalNum4PDFPages 】获取PDF总页数

kucha007

如果你安装了了adobe acrobat的话，可以这样获取总页数：

1. (defun K:TotalNum4PDFPages (FileName / PDFDoc TotalNum)
   
2.   (vl-load-com)
   
3.   (setq PDFDoc (vlax-get-or-create-object "AcroExch.PDDoc"))
   
4.   (vlax-invoke-method PDFDoc 'Open FileName)
   
5.   (setq TotalNum (vlax-invoke-method PDFDoc 'GetNumPages))
   
6.   (vlax-invoke-method PDFDoc 'Close)
   
7.   TotalNum
   
8. )
   

(defun K:TotalNum4PDFPages (FileName / PDFDoc TotalNum) <br />   (vl-load-com)<br />   (setq PDFDoc (vlax-get-or-create-object "AcroExch.PDDoc"))<br />   (vlax-invoke-method PDFDoc 'Open FileName)<br />   (setq TotalNum (vlax-invoke-method PDFDoc 'GetNumPages))<br />   (vlax-invoke-method PDFDoc 'Close)<br />   TotalNum<br /> )<br />

烟盒迷唇

安装万兴PDF编辑器能获取吗

行天下

谢谢大神分享。

树櫴希德

获得总页数 然后呢