TextGrid for Excel (2017/10/15)

 ・2017/10/15 「表の大きさを変更」を追加。ARES版で一部コードを修正できていなかったのを手直し。
 ・2017/10/14 一部コードを修正(CreateTypedArray() を取りやめ)しました。
 ・2017/10/13 コードを整理しました。ARES 対応版を追加。
 ・2017/10/12 表文字更新で、枠内に含まれない文字列があるとき、エラーになるのを手直し。ZwCAD 版を追加。
 ・2011/10/11 ZwCAD の情報を追加。
 ・2017/10/10 IJCAD版でアクティブウィンドウの切り替えが出来なかったのを手直し。BricsCAD版も同様に。
 ・2017/10/09 IJCAD版を追加、Bricacad版を更新しました。

 ・2017/10/08 ダウンロードファイルを間違えていたのを修正しました。(参照設定と、クラス名を間違えていました)

Excel から BricsCAD、IJCAD, ZWCAD, ARES を使うサンプルです。
Excel VBA (ActiveX) なのでかなり遅いですが、作業用として Excel のシートを使えるのがメリットです。
Classic 版、Std 版でも動くと思います。

参照設定とアプリケーション、クラス名を変え、コードを少し修正すれば、他のCADでも動くと思います。
 CreateObject()、GetObject() の引数
 "AutoCAD.Application"、"BricscadApp.AcadApplication"、"Gcad.Application"、
 "ZWCAD.Application"、"PCAD_AC_X.AcadApplication"

 BricsCAD の場合、「BricscadApp Type Library」 と、「BricscadDb Type Library」 を参照設定に追加しています。
 
 IJCAD の場合、「GCAD 201? Object Library」 を参照設定に追加して下さい。 > IJCAD サポートページ
 サンプルファイルでは、「GCAD 2016 ... 」 を参照設定しています。使用しているバージョンに合わせて下さい。
 AcadLine, AcadText ... 等を、GcadLine, GcadText ... 等に置換して下さい。

 ZwCAD の場合、「ZWCAD 201? Type Library」 を参照設定に追加して下さい。> ZwCAD サポートページ
 AcadLine, AcadText ... 等を ZcadLine, ZcadText ... 等に、acAlignmentLeft ... 等を zcAlignmentLeft ... 等に置換して下さい。> ZwCAD サポートページ
 サンプルファイルでは、「ZWCAD 2018 ... 」 を参照設定しています。使用しているバージョンに合わせて下さい。

 ARES の場合、「PCAD_AC_X 4.1 Type Library」と「PCAD_DB_X Type Library 4.1」の2つを参照設定に追加して下さい。 > ユーザーによる JDraf 掲示板
 サンプルファイルでは、ARES 2017 を使用しています。

 ※タイプライブラリは、使用しているCADのバージョンに合わせて下さい。参照設定を変更したときは、上書き保存して下さい。
 ※うまく動かない時は、コード内の On Error Resume Next をコメントアウトして、エラー箇所を見つけ出して下さい。

■機能

・線分 (LINE、POLYLINE) と文字列 (TEXT) で構成された「部品リスト」のような表を Excel に取り込み、文字列を編集後、CAD へ変更を反映
 罫線の座標 (X,Y) を保持し、マス目が Excel のセルに対応しています。
 CAD 上に対象の文字列が無い場合は、新規に作成されます。
 
 「形状のみ取得」をチェックすると、Excel 上の文字を書き換えません。
 あらかじめ Excel で部品リストを作成しておくと、CAD上の表に流し込むことができます。
 CAD上の表には、参照する文字列として全項目に2行程度の文字列が必要です。
 (1行目はタイトル行とみなし、参照対象にはなりません)

・点在した文字列 (TEXT) を Excel に取り込み、編集後、 CAD へ変更を反映
 文字列の基点の座標 (X,Y) を保持し、その座標が Excel のセルに対応しています。
 CAD 上に対象の文字列が無い場合は、新規に作成されます。
 

・Excel のアクティブセルの値を、CAD 上の文字列 (TEXT)、属性 (ATTRIB)に連続でコピー
 CAD上に存在する文字列の変更のみで、新規作成はできません。
 

・Excel の選択範囲のセルの値を、、CAD 上の文字列 (TEXT) にコピー
 CAD上に存在する文字列の変更のみで、新規作成はできません。
 文字列数、配置が一致しないときは無効になります。


・表の大きさ(縦、横)を変更
 CAD 上のLINE、LWPOLYLINE、TEXT で作成された表の大きさを変更します。
 文字の大きさはそのままです。


■スクリーンショット



■ダウンロード
 
 BRTXG2.lsxm (Bricscad 用マクロ付エクセルファイル) 2017/10/15
 IJTXG2.lsxm (IJCAD 用マクロ付エクセルファイル) 2017/10/15
 ZWTXG2.lsxm (ZwCAD 用マクロ付エクセルファイル) 2017/10/15
 ARTXG2.lsxm (ARES 用マクロ付エクセルファイル) 2017/10/15

 ※フォームが表示されない場合は、編集を有効にし、一度終了後、再度開いてみて下さい。