対象製品 :IJCAD 2024以降、IJCAD 2015 ~ IJCAD2023 の 32bit版 (いずれもSTDグレード以上)
対象製品のIJCAD には VBA(Visual Basic for Application)があり、VBAによりマクロを作成できます。
Microsoft Excel など VBA を持つアプリケーションから、オブジェクト ライブラリを使って IJCAD を操作するマクロを作成できます。
VBA 関連コマンドについて
対象製品のIJCAD には 次の VBA 関連コマンドが実装されています.
コマンド | 機能 | 説明 |
---|---|---|
VBARUN | マクロを実行 | 「マクロ」ダイアログを表示し、VBAマクロを実行します |
-VBARUN | マクロを実行 | コマンドラインからマクロ名を入力し、VBAマクロを実行します |
VBAIDE | VBA IDEを表示 | VBA IDE(統合開発環境)ウィンドウを表示し、プログラムを修正、テストします |
VBALOAD | VBAプロジェクトをロード | VBAプロジェクトファイルをロードします |
VBAUNLOAD | VBAプロジェクトをアンロード | VBAプロジェクトファイルをアンロードします |
初めてのIJCAD VBAマクロの作成
- VBAIDE コマンドを実行し、Microsoft Visual Basic IDE ウィンドウを表示します。
- ThisDrawing シートに下記のマクロを入力します。
Public Sub test() ActiveDocument.Utility.Prompt "Hello from VBA" End Sub
- アプリケーションの表示ボタンをクリックして、CADウィンドウに戻ります。
- 図面とVBAプロジェクトファイルを保存します。
- VBARUN コマンドを実行し、マクロダイアログから、testマクロを選択して実行します。
- コマンドプロンプトにメッセージが表示されます。
EXCEL VBA から IJCADを操作する
- Microsoft Excel を起動します。
- 開発リボン メニューから Visual Basic を選択します。
- ツールメニュー►参照設定を選択し、「GCAD 20XX Object Library」を有効にします。
※ 参照する Object Library は製品のバージョンに合わせたものを有効にしてください。
- ThisWorkbookシートに、次のマクロを入力します。
Public Sub test() Dim app As GcadApplication On Error Resume Next Set app = GetObject(, "Gcad.Application") If app Is Nothing Then Set app = CreateObject("Gcad.application") app.Visible = True End If app.ActiveDocument.Utility.Prompt "Hello from Excel" Set app = Nothing End Sub
- アプリケーションの表示ボタンをクリックして、Excelウィンドウに戻ります。
- ワークブックを保存します。このときマクロ有効ワークブック(.xlsm)形式で保存してください。
- 開発リボン メニューからマクロボタンをクリックし、マクロダイアログから、testマクロを選択して実行します。
- IJCADのコマンドプロンプトにメッセージが表示されます。