

VBAでIJCADの操作をするプログラムが、IJCADのアップデート（2018→2019）により  
「実行時エラー９１ オブジェクト変数withブロック変数が設定されていません」 と表示されるようになってしまいました。

VBAの参照設定はGcadの2019に修正しています。  
操作対象のCADは起動した状態でもエラーが出ます。

[code]

    Dim getTimesec As Double
    Dim GcadApp As GcadApplication
    Set GcadApp = GetObject(, "Gcad.Application")　　←ここの行でオブジェクトが取得できていない
    Set GcadDoc = GcadApp.ActiveDocument
    
[/code]

オブジェクトが取得できなくなったのは、IJCADのバージョンによるものなのか、コードがおかしいのでしょうか。  
VBA初心者なので上記の情報で判断材料が足りるか分かりませんが…よろしくお願いいたします。

[![画像の説明をここに入力](https://i.stack.imgur.com/G95KY.png)](https://i.stack.imgur.com/G95KY.png)


CC BY-SA 4.0
2020-04-23T01:34:16.213
65879
2020-04-24T07:44:31.403
39775
question
vba ijcad
IJCADのバージョンアップによりGcad.Applicationのオブジェクトが取得できなくなった


IJCAD 2019でGetObjectを使う際はバージョンを指定すると正常にオブジェクトを取得できると思います。

まずは、VBAでIJCADのライブラリを参照していて、VBAで参照しているIJCADが起動しているのを確認してください。

そして

[code]

    GetObject(, "Gcad.Application")
    
[/code]

で取得するIJCADのバージョンを指定するために

[code]

    GetObject(, "Gcad.Application.19")
    
[/code]

に書き換えてみてください。


CC BY-SA 4.0
2020-04-24T07:44:31.403
65920
2020-04-24T07:44:31.403
39778
65879
answer