AutCADLT2000i ファイル内の文字列の一括変更

質問

使用ソフトはAutoCAD LT 2000i です。

複数の図面があります。それらはすべて同一の図枠の中に収められていて、A4の図枠のものとA3の図枠のものがあります。

それぞれ、図枠の中に「部品名」や「図面番号」といった項目があり、そこに文字を入力しているのですが・・・。

その文字列を変更する作業が大量にあり、効率的に処理できないものかと悩んでおります。

例えば、「A-01」が「A-02」になって新しく「A-01」が挿入されるといったことが起こると、「A-02」は「A-03」へと、数百枚のファイルをいちいち、開いて(文字列を探してダブルクリックして・・・)書き換えて再度保存するといったような手順を踏まなければなりません。

しかもその作業は必ずしもすべてが連番であるとも限らず「A-03」が「B-10」になることもあります。

図面を描く作業に関しては慣れているのですが、ソフトの機能について詳しくないです。
素人考えなのですが、「属性定義」とかいう機能で文字列を書き出して・・・、書き出したファイルで文字列を変更する処理をして、再度読み込むとか、そういったことはできないでしょうか？

解決する技術、何かいい手段はないでしょうか？

よろしくお願いいたします。

回答No.1

hirumin · ベストアンサー

完全に要望に添えませんが、多少の手間なら省ける…かもわかりませんが…

開いたファイルに対して、
「A-01」→「A-02」
「A-02」→「A-03」
という文字列置換を連続して行う、力業を自動で。

用意する物：『AcadRemocon』
　↓ここからダウンロード＆インストール
Kju Factory
http://hp.vector.co.jp/authors/VA026873/

以下の内容をコピーして、メモ帳に貼り付けて保存して下さい（ファイル名は任意で）。

Set Acad=CreateObject("AcadRemocon.Body")
Acad.acFind rc,"A-04","A-05"
Acad.acFind rc,"A-03","A-04"
Acad.acFind rc,"A-02","A-03"
Acad.acFind rc,"A-01","A-02"
'Acad.acPostCommand "_qsave^m_close^m"

保存すると、[ファイル名].txt となると思いますので、拡張子を「.vbs」と変更して下さい。

図面を開いた状態で、このvbsファイルをダブルクリックすると、
「A-04」→「A-05」
「A-03」→「A-04」
「A-02」→「A-03」
「A-01」→「A-02」
という処理を連続で実行します。
（※逆順だと、1→2、2→3 と順次変更になってしまいます）
で、変更が確認されたら保存。

手順は、
開く→vbsダブルクリック→閉じる（保存）
となります。

vbsファイルの最後の行の「'」を取ると、置換して保存、閉じるところまで自動で行います。

こういった「ランチャーソフト」を利用して、vbsを登録すればダブルクリックの手間も若干軽減されるかも…。

窓の杜 - 【NEWS】マウスで円を描いて呼び出すリング状のランチャー「Magic Formation」
http://www.forest.impress.co.jp/article/2006/06/06/magicformation.html

さて問題点
図面が割り込まれるなら、割り込まれた図面以降にこのvbsを適用すればいいのですが…。
・図面中の文字の量が多いと処理に時間がかかる
・数百枚という規模なので、連続とはいえ数百回置換処理を行うのは時間がかかりそう

vbsの内容の作成は、Excelで図番対比表のようなものを作れば、簡単に編集できますけど…
その辺は有効性があると思えたらということで。