autocad - 図面からプロジェクト名を取得する auto lisp

Question

ハードドライブがクラッシュしたクライアントがいます。データを復元できましたが、列挙されたファイルのみで、日付、サイズ、または命名スキームはありませんでした。これらは autocad からの図面ファイルであり、文字通り何万ものファイルがあります。図面には表題欄がありますが、開いたり名前を変更したりするのは手作業です。それには 1 世紀かかります。図面を開いて表題欄からテキストを取得するために使用できる Lisp を知っている人はいますか? 私は自分自身を試みましたが、惨めに失敗しました。

Answer 1

必要なテキストが、絶対座標に基づいて常に同じ場所にあり、場合によってはレイヤー/テキスト スタイル/テキストの高さなどである場合でも、可能性はあります。

このタイプのパターンに従うことができます：

1. ドキュメントを開き、
2. ズーム範囲、
3. 境界または交差選択ウィンドウを使用して検索する必要がある座標を指定して、すべてのテキスト エンティティを選択します。
4. 返された選択セットをループします (おそらく、検証のためにテキスト文字列の内容を正規表現と比較します)。
5. 値が正しく配置されている場合は値を抽出し、
6. 現在のファイル名と抽出したテキスト値を CSV、XML、XLS ファイルに保存し、
7. ドキュメントを閉じ、
8. 繰り返す。

これにより、現在の名前と必要な名前を持つすべてのドキュメントの完全なリストが表示されます。重複、エラー、またはその他の問題を確認した後、Excel VBA (または別の言語) で関数を記述して、必要に応じて各ファイルの名前を変更するのは簡単です。