autocad - 自动 lisp 从图纸中检索项目名称

Question

我有一个客户的硬盘坏了。我能够恢复数据，但只能在枚举文件中，没有日期、大小或任何类型的命名方案。这些是来自 AutoCAD 的绘图文件，实际上有数以万计的这些文件。这些图纸确实有标题栏，但要手动打开和重命名，这需要一个世纪。有谁知道我可以用来打开图纸并从标题栏中获取文本的 lisp 吗？我试过自己，但失败得很惨。

Answer 1

如果您需要的文本基于绝对坐标和可能的图层/文本样式/文本高度等始终位于同一位置，您可能仍然有机会。

您可以遵循这种模式：

1. 打开文档，
2. 缩放范围，
3. 使用边界或交叉选择窗口在给定您需要搜索的坐标的情况下选择所有文本实体，
4. 循环遍历返回的选择集（可能将文本字符串的内容与正则表达式进行比较以进行验证），
5. 如果它的位置正确，则提取该值，
6. 将当前文件名和提取的文本值存储在 CSV、XML、XLS 文件中，
7. 关闭文档，
8. 重复。

这将为您提供包含当前名称和所需名称的所有文档的完整列表。在检查它是否存在重复、错误或任何其他问题后，很容易在 Excel VBA（或其他语言）中编写一个函数来根据需要重命名每个文件。