如何批量提取文件夹内所有图纸的文字信息

一只傲娇喵

如图，想要批量提取一个文件夹下所有图纸的文件编码，原本好不容易单个图纸提取好了
（根据块名炸开块----》遍历炸开的选择集得到文件编码文字----》得到文件编码和版本坐标-----》提取两个坐标间的文字），
结果换批量的时候发现要获取文档对象，单个提取的不能用了，所以用doc文档对象的提取文字应该怎么提取呢，问了一下gpt，问的这个思路是否有问题呢，感觉它回答的有点问题

一只傲娇喵

doc对象为这样得到的

1. (defun test()       
   
2.         ;; 创建AutoCAD应用程序对象
   
3.         (setq acadd (vlax-get-or-create-object "AutoCAD.Application"))
   
4. 
   
5.         ;; 获取DWG文件所在文件夹路径
   
6.         (setq folder "D:/三澳成品采集信息/图纸类/化学/升版/")
   
7. 
   
8.         ;; 获取文件夹中的所有DWG文件
   
9.         (setq files (vl-directory-files folder "*.dwg"))
   
10. 
    
11.         ;; 打开每个DWG文件并执行操作
    
12.         (foreach file files
    
13.           (setq full-path (strcat folder file))
    
14.           (vl-catch-all-apply
    
15.             '(lambda ()
    
16.                (setq doc (vla-open (vla-get-documents acadd) full-path))
    
17.                ;; 在这里可以执行其他操作，例如提取文字等
    
18.                ;(setq block-names (get-all-block-names doc file)) ; 获取文档中的所有块名称
    
19.                ;(princ block-names) ; 输出所有块名称
    
20.                (vla-close doc)  ; 关闭当前文档
    
21.                )
    
22.             )
    
23.           (if (vl-catch-all-error-p err)
    
24.               (progn
    
25.                 (setq errmsg (vl-catch-all-error-message err))
    
26.                 (if (vl-position "Automation Error" errmsg)
    
27.                     (princ (strcat "\nFailed to open file: " full-path ", Error: " errmsg))
    
28.                     (princ (strcat "\nError: " errmsg))
    
29.                     )
    
30.                 )
    
31.             )
    
32.           )
    
33. 
    
34.         ;; 退出AutoCAD应用程序对象
    
35.         (vlax-release-object acadd)
    
36.   )

(defun test()        <br />         ;; 创建AutoCAD应用程序对象<br />         (setq acadd (vlax-get-or-create-object "AutoCAD.Application"))<br /> <br />         ;; 获取DWG文件所在文件夹路径<br />         (setq folder "D:/三澳成品采集信息/图纸类/化学/升版/")<br /> <br />         ;; 获取文件夹中的所有DWG文件<br />         (setq files (vl-directory-files folder "*.dwg"))<br /> <br />         ;; 打开每个DWG文件并执行操作<br />         (foreach file files<br />           (setq full-path (strcat folder file))<br />           (vl-catch-all-apply<br />             '(lambda ()<br />                (setq doc (vla-open (vla-get-documents acadd) full-path))<br />                ;; 在这里可以执行其他操作，例如提取文字等<br />                ;(setq block-names (get-all-block-names doc file)) ; 获取文档中的所有块名称<br />                ;(princ block-names) ; 输出所有块名称<br />                (vla-close doc)  ; 关闭当前文档<br />                )<br />             )<br />           (if (vl-catch-all-error-p err)<br />               (progn<br />                 (setq errmsg (vl-catch-all-error-message err))<br />                 (if (vl-position "Automation Error" errmsg)<br />                     (princ (strcat "\nFailed to open file: " full-path ", Error: " errmsg))<br />                     (princ (strcat "\nError: " errmsg))<br />                     )<br />                 )<br />             )<br />           )<br /> <br />         ;; 退出AutoCAD应用程序对象<br />         (vlax-release-object acadd)<br />   )

橡皮

我觉得你放个图纸会好一点。

一只傲娇喵

橡皮 发表于 2024-2-26 16:36
我觉得你放个图纸会好一点。

好的，图纸是这样的

你有种再说一遍

批量不就是后台打开文件而已嘛,有什么困难