・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」の２つを参照設定に追加して下さい。 > ユーザーによる JDraf 掲示板
サンプルファイルでは、ARES 2017 を使用しています。
※タイプライブラリは、使用しているCADのバージョンに合わせて下さい。参照設定を変更したときは、上書き保存して下さい。
※うまく動かない時は、コード内の On Error Resume Next をコメントアウトして、エラー箇所を見つけ出して下さい。
■機能
・線分 (LINE、POLYLINE) と文字列 (TEXT) で構成された「部品リスト」のような表を Excel に取り込み、文字列を編集後、CAD へ変更を反映
罫線の座標 （X,Y) を保持し、マス目が Excel のセルに対応しています。
CAD 上に対象の文字列が無い場合は、新規に作成されます。
「形状のみ取得」をチェックすると、Excel 上の文字を書き換えません。
あらかじめ Excel で部品リストを作成しておくと、CAD上の表に流し込むことができます。
CAD上の表には、参照する文字列として全項目に２行程度の文字列が必要です。
（１行目はタイトル行とみなし、参照対象にはなりません）
・点在した文字列 (TEXT) を Excel に取り込み、編集後、 CAD へ変更を反映
文字列の基点の座標 （X,Y) を保持し、その座標が Excel のセルに対応しています。
CAD 上に対象の文字列が無い場合は、新規に作成されます。
・Excel のアクティブセルの値を、CAD 上の文字列 (TEXT)、属性 (ATTRIB)に連続でコピー
CAD上に存在する文字列の変更のみで、新規作成はできません。
・Excel の選択範囲のセルの値を、、CAD 上の文字列 (TEXT) にコピー
CAD上に存在する文字列の変更のみで、新規作成はできません。
文字列数、配置が一致しないときは無効になります。
・表の大きさ（縦、横）を変更
CAD 上のLINE、LWPOLYLINE、TEXT で作成された表の大きさを変更します。
文字の大きさはそのままです。
■スクリーンショット
■ダウンロード
BRTXG2.xlsm （Bricscad 用マクロ付エクセルファイル） 2017/10/15
IJTXG2.xlsm （IJCAD 用マクロ付エクセルファイル） 2017/10/15
ZWTXG2.xlsm （ZwCAD 用マクロ付エクセルファイル） 2017/10/15
ARTXG2.xlsm （ARES 用マクロ付エクセルファイル） 2017/10/15
※フォームが表示されない場合は、編集を有効にし、一度終了後、再度開いてみて下さい。