AddLineのサンプルをVisual Basic 5.0 で動かしたいと思います。
VBAとの違いは、まず参照設定を開き「AutoCAD 2000 タイプライブラリ」にチェックします。これによりＡｃｔｉｖｅＸによるAutoCADの参照が可能となります。
プログラムの中ではまず、アプリケーションの初期化としてAutoCADと接続を確立します。
'**********アプリケーションの初期化**********
On Error Resume Next
'AutoCAD 2000アプリケーションオブジェクトを取得
Set AcadApp = GetObject(, "AutoCAD.Application.15")
'AutoCAD 2000アプリケーションオブジェクト取得に失敗した時
If Err Then
'AutoCAD 2000を起動
Set AcadApp = CreateObject("AutoCAD.Application.15")
'エラーオブジェクトをクリア
Err.Clear
End If
'AutoCADを表示
AcadApp.Visible = True
Set AcadDoc = AcadApp.ActiveDocument
アプリケーションの初期化の後にでAddLineのサンプルをカット＆ペーストで貼り付けます。
でもそのままでは、実行するとエラーとなってしまいます。ＡｃｔｉｖｅＸでは「ThisDrawing」が使えません。
「ThisDrawing」に相当するのが「AcadDoc」となります。サンプルを使うときは必ず書き返る必要が有ります。
後は実行してみて下さい。VBAと同じように線が描ければ成功です。
