AUTOCADからの移行作業を行っております
AUTOCADでは動作していたのですがIJCADでは下記のエラーが出ます
実行時エラー '-2147467259(8004005)':
'AddMInsertBlock'メソッドは失敗しました:'IGcadModelSpeace'オブジェクト
作業はブロックを1定の幅で並べるという物です(枠を作る)
素人のプログラムで見づらい所も多いですがご了承ください
Type Point
Point(2) As Double
End Type
Dim PropertyIns As Point
PropertyIns.Point(0) = 100 * DwgScale
PropertyIns.Point(1) = 50 * DwgScale
PropertyIns.Point(2) = 0#
Dim InsertPoint As Variant
InsertPoint = PropertyIns.Point
Dim Blockobj As GcadObject
Set Blockobj = ThisDrawing.ModelSpace.AddMInsertBlock(InsertPoint, Block_FileName, XScale, YScale, ZScale, Rotate, Rows, 1, FrameHeight, 0)
Blockobj.Layer = "0"
ヘルプを読んでも構文に問題はないと思っております
皆様にご教示いただきたく
よろしくお願いいたします