批量插入PDF文件到cad

jun353835273

使用netload 加载Countpdfpages.dll （适用于CAD 版本2013+）文件


(setq PDFFile (getfiled "Select the  PDF" "" "PDF" 2))
(setq num (Countpdfpages PDFFile))  ;读取pdf页码函数，使用的的c#搞的内库，非纯lisp语言。

注意事项
1、itextsharp.dll文件不能移动，如果移动位置都必须和Countpdfpages.dll在一个文件夹下。
[hide]
c#代码 高手看来小儿科，不过c#学了点皮毛仅能结合lisp使用
希望c#大佬多发点实用的内库函数来用用。

moshouhot

[quote]moshouhot 发表于 2024-6-5 13:21
请问在不实际插入PDF的情况下，能否提前获取到PDF的第一页的尺寸。

2. using iText.Kernel.Pdf;
   
3. 
   
4. namespace aaAcad;
   
5. 
   
6. public class Mylisphelper {
   
7. 
   
8.     /// <summary>
   
9.     /// 获取指定PDF文件的总页数
   
10.     /// </summary>
    
11.     /// <param name="rb">LISP参数缓冲区，需要包含一个TypeCode为5005的字符串类型参数，表示PDF文件路径</param>
    
12.     /// <returns>
    
13.     /// 返回值说明:
    
14.     /// - 如果成功读取PDF，返回PDF的总页数
    
15.     /// - 如果发生以下情况则返回0:
    
16.     ///   1. 输入参数为null
    
17.     ///   2. 参数格式不正确
    
18.     ///   3. 指定的文件不存在
    
19.     /// </returns>
    
20.     /// <remarks>
    
21.     /// 此方法通过AutoCAD LISP接口调用，用于获取PDF文件的页数。
    
22.     /// 当文件不存在时会显示提示消息框。
    
23.     /// </remarks>
    
24.     /// <example>
    
25.     /// LISP调用示例:
    
26.     /// (Countpdfpages "C:\\example.pdf")
    
27.     /// </example>
    
28.     [LispFunction("Countpdfpages")]
    
29.     public int Countpdfpages(ResultBuffer rb) {
    
30.         int result = 0;
    
31.         if (rb == null) {
    
32.             return 0;
    
33.         }
    
34. 
    
35.         TypedValue[] array = rb.AsArray();
    
36.         if (array.Length == 1 && array[0].TypeCode == 5005) {
    
37.             string filePath = array[0].Value as string;
    
38.             if (File.Exists(filePath)) {
    
39.                 using (var pdfReader = new PdfReader(filePath))
    
40.                 using (var pdfDoc = new PdfDocument(pdfReader)) {
    
41.                     result = pdfDoc.GetNumberOfPages();
    
42.                 }
    
43.             } else {
    
44.                 result = 0;
    
45.                 MessageBox.Show("么有文件");
    
46.             }
    
47.         }
    
48.         return result;
    
49.     }
    
50. 
    
51.     /// <summary>
    
52.     /// 获取PDF文件首页的尺寸(宽度和高度，单位：毫米)
    
53.     /// </summary>
    
54.     /// <param name="rb">LISP参数缓冲区，需要包含一个TypeCode为5005的字符串类型参数，表示PDF文件路径</param>
    
55.     /// <returns>
    
56.     /// 返回值说明:
    
57.     /// - 如果成功读取PDF，返回包含两个浮点数的ResultBuffer，分别表示宽度和高度(毫米)
    
58.     /// - 如果发生以下情况则返回null:
    
59.     ///   1. 输入参数为null
    
60.     ///   2. 参数格式不正确
    
61.     ///   3. 指定的文件不存在
    
62.     ///   4. PDF文件读取失败
    
63.     /// </returns>
    
64.     /// <remarks>
    
65.     /// 此方法通过AutoCAD LISP接口调用，用于获取PDF文件首页的尺寸。
    
66.     /// 当文件不存在时会显示提示消息框。
    
67.     /// 返回的尺寸基于PDF的MediaBox，单位转换为毫米。
    
68.     /// </remarks>
    
69.     /// <example>
    
70.     /// LISP调用示例:
    
71.     /// (getpdfsize "C:\\example.pdf")
    
72.     /// 返回格式: (宽度 高度) ;单位：毫米
    
73.     /// </example>
    
74.     [LispFunction("getpdfsize")]
    
75.     public ResultBuffer GetPdfSize(ResultBuffer rb) {        
    
76. 
    
77.         if (rb == null) {
    
78.             Env.Print("\n输入参数为null");
    
79.             return null;
    
80.         }
    
81. 
    
82.         TypedValue[] array = rb.AsArray();
    
83.         if (array.Length != 1 || array[0].TypeCode != 5005) {
    
84.             Env.Print("\n参数格式不正确");
    
85.             return null;
    
86.         }
    
87. 
    
88.         string filePath = array[0].Value as string;
    
89.         // Env.Print($"\n文件路径: {filePath}");
    
90. 
    
91.         if (!File.Exists(filePath)) {
    
92.             Env.Print("\n文件不存在");
    
93.             // MessageBox.Show("么有文件");
    
94.             return null;
    
95.         }
    
96. 
    
97.         try {
    
98.             using (var pdfReader = new PdfReader(filePath))
    
99.             using (var pdfDoc = new PdfDocument(pdfReader)) {
    
100.                 var page = pdfDoc.GetPage(1);
     
101.                 // Env.Print("\n成功读取PDF第一页");
     
102. 
     
103.                 // 优先使用CropBox，如果不存在则使用MediaBox
     
104.                 var pageSize = page.GetCropBox() ?? page.GetMediaBox();
     
105. 
     
106.                 const double POINTS_TO_MM = 0.352778;
     
107.                 double width = pageSize.GetWidth() * POINTS_TO_MM;
     
108.                 double height = pageSize.GetHeight() * POINTS_TO_MM;
     
109. 
     
110.                 // Env.Print($"\n尺寸: {width}mm x {height}mm");
     
111. 
     
112.                                 return new ResultBuffer(
     
113.                                         new TypedValue(5001, width),    // 包装在TypedValue中
     
114.                                         new TypedValue(5001, height)
     
115.                                 );
     
116.             }
     
117.         } catch (Exception ex) {
     
118.             Env.Print($"\n读取PDF文件失败: {ex.Message}");
     
119.             // MessageBox.Show($"读取PDF文件失败: {ex.Message}");
     
120.             return null;
     
121.         }
     
122.     }
     
123. }
     

using iText.Kernel.Pdf;<br /> <br /> namespace aaAcad;<br /> <br /> public class Mylisphelper {<br /> <br />     /// <summary><br />     /// 获取指定PDF文件的总页数<br />     /// </summary><br />     /// <param name="rb">LISP参数缓冲区，需要包含一个TypeCode为5005的字符串类型参数，表示PDF文件路径</param><br />     /// <returns><br />     /// 返回值说明:<br />     /// - 如果成功读取PDF，返回PDF的总页数<br />     /// - 如果发生以下情况则返回0:<br />     ///   1. 输入参数为null<br />     ///   2. 参数格式不正确<br />     ///   3. 指定的文件不存在<br />     /// </returns><br />     /// <remarks><br />     /// 此方法通过AutoCAD LISP接口调用，用于获取PDF文件的页数。<br />     /// 当文件不存在时会显示提示消息框。<br />     /// </remarks><br />     /// <example><br />     /// LISP调用示例:<br />     /// (Countpdfpages "C:\\example.pdf")<br />     /// </example><br />     [LispFunction("Countpdfpages")]<br />     public int Countpdfpages(ResultBuffer rb) {<br />         int result = 0;<br />         if (rb == null) {<br />             return 0;<br />         }<br /> <br />         TypedValue[] array = rb.AsArray();<br />         if (array.Length == 1 && array[0].TypeCode == 5005) {<br />             string filePath = array[0].Value as string;<br />             if (File.Exists(filePath)) {<br />                 using (var pdfReader = new PdfReader(filePath))<br />                 using (var pdfDoc = new PdfDocument(pdfReader)) {<br />                     result = pdfDoc.GetNumberOfPages();<br />                 }<br />             } else {<br />                 result = 0;<br />                 MessageBox.Show("么有文件");<br />             }<br />         }<br />         return result;<br />     }<br /> <br />     /// <summary><br />     /// 获取PDF文件首页的尺寸(宽度和高度，单位：毫米)<br />     /// </summary><br />     /// <param name="rb">LISP参数缓冲区，需要包含一个TypeCode为5005的字符串类型参数，表示PDF文件路径</param><br />     /// <returns><br />     /// 返回值说明:<br />     /// - 如果成功读取PDF，返回包含两个浮点数的ResultBuffer，分别表示宽度和高度(毫米)<br />     /// - 如果发生以下情况则返回null:<br />     ///   1. 输入参数为null<br />     ///   2. 参数格式不正确<br />     ///   3. 指定的文件不存在<br />     ///   4. PDF文件读取失败<br />     /// </returns><br />     /// <remarks><br />     /// 此方法通过AutoCAD LISP接口调用，用于获取PDF文件首页的尺寸。<br />     /// 当文件不存在时会显示提示消息框。<br />     /// 返回的尺寸基于PDF的MediaBox，单位转换为毫米。<br />     /// </remarks><br />     /// <example><br />     /// LISP调用示例:<br />     /// (getpdfsize "C:\\example.pdf")<br />     /// 返回格式: (宽度 高度) ;单位：毫米<br />     /// </example><br />     [LispFunction("getpdfsize")]<br />     public ResultBuffer GetPdfSize(ResultBuffer rb) {        <br /> <br />         if (rb == null) {<br />             Env.Print("\n输入参数为null");<br />             return null;<br />         }<br /> <br />         TypedValue[] array = rb.AsArray();<br />         if (array.Length != 1 || array[0].TypeCode != 5005) {<br />             Env.Print("\n参数格式不正确");<br />             return null;<br />         }<br /> <br />         string filePath = array[0].Value as string;<br />         // Env.Print($"\n文件路径: {filePath}");<br /> <br />         if (!File.Exists(filePath)) {<br />             Env.Print("\n文件不存在");<br />             // MessageBox.Show("么有文件");<br />             return null;<br />         }<br /> <br />         try {<br />             using (var pdfReader = new PdfReader(filePath))<br />             using (var pdfDoc = new PdfDocument(pdfReader)) {<br />                 var page = pdfDoc.GetPage(1);<br />                 // Env.Print("\n成功读取PDF第一页");<br /> <br />                 // 优先使用CropBox，如果不存在则使用MediaBox<br />                 var pageSize = page.GetCropBox() ?? page.GetMediaBox();<br /> <br />                 const double POINTS_TO_MM = 0.352778;<br />                 double width = pageSize.GetWidth() * POINTS_TO_MM;<br />                 double height = pageSize.GetHeight() * POINTS_TO_MM;<br /> <br />                 // Env.Print($"\n尺寸: {width}mm x {height}mm");<br /> <br />                                 return new ResultBuffer(<br />                                         new TypedValue(5001, width),    // 包装在TypedValue中<br />                                         new TypedValue(5001, height)<br />                                 );<br />             }<br />         } catch (Exception ex) {<br />             Env.Print($"\n读取PDF文件失败: {ex.Message}");<br />             // MessageBox.Show($"读取PDF文件失败: {ex.Message}");<br />             return null;<br />         }<br />     }<br /> }<br />

时隔半年，穿越过来回答我自己的问题。

jun353835273

hower 发表于 2023-8-28 20:24
CAD2020使用这个插件，显示错误: no function definition: COUNTPDFPAGES，这个怎么处理咧

命令行输入：netload 加载Countpdfpages.dll 文件（适用于CAD 版本2013+）

jun353835273

树櫴希德 发表于 2023-8-25 17:06
2018版本的pdf转cad能套出函数吗

可以的。            14版本的cad都可以插入PDF进去。刚刚测试了的

lxl217114

就是多页pdf插入cad么？
大佬高产了，谢谢分享。

jun353835273

lxl217114 发表于 2023-8-24 17:11
就是多页pdf插入cad么？
大佬高产了，谢谢分享。

是的，按默认尺寸插入的和插入光栅差不多

lxl217114

jun353835273 发表于 2023-8-24 17:35
是的，按默认尺寸插入的和插入光栅差不多

好工具，那弥补了pdfimport只能输入1P的缺陷。

XGZS1234

膜拜大神

bai2000

又一个好工具，，，

liuyj

对图形插入的效果如何？能像pdfimport一样吗？

炫色ペ水域の

1111111111111

蛋疼的东东

好东西  学习学习

magicheno

感谢大佬分享