IJCADのGetPointでラバーバンドができない

AcadからIJCADへのコンバートをしています。下記コードのGetEntityでクリック点座標を
取得し、それをGetPointへ渡していますがラバーバンドをしてもらえません。何か別の方法があるのでしょうか？

Dim ptPick As Object = Nothing    'ptPickはﾋﾟｯｸ位置

ptPick = Nothing
On Error Resume Next 'GetEntityでErrの場合ｽﾙｰさせる
'------------------<管または桝を選択>
DOC.Utility.GetEntity(Myobj, ptPick, vbCrLf & txt)
'------------------
If Err.Number <> 0 Then GoTo UU 'Pickはずれの場合
x1 = ptPick(0)
y1 = ptPick(1)
ChkPrint("ｸﾘｯｸ点=(" & Format(x1, "0.00") & "," & _
             Format(y1, "0.00") & ") ｸﾘｯｸしたものは" & _
             Myobj.objectName & " Lay=" & Myobj.Layer)

'------------------<表示位置始点ｸﾘｯｸ> IJCADではﾗﾊﾞｰﾊﾞﾝﾄﾞできない
ptPick = DOC.Utility.GetPoint(ptPick, _
         "描き出し位置をクリックして下さい:")
'------------------
If Err.Number <> 0 Then GoTo UU
x2 = ptPick(0)
y2 = ptPick(1)

ソースコードを以下に書換えて実行して見ました

    Dim ptPick(0 To 2) As Double
    On Error Resume Next 'GetEntityでErrの場合ｽﾙｰさせる
    '------------------<管または桝を選択>
    DOC.Utility.GetEntity(Myobj, ptPick, vbCrLf & txt)
    '------------------
    If Err.Number <> 0 Then GoTo UU 'Pickはずれの場合
    x1 = ptPick(0)
    y1 = ptPick(1)

    Dim ptPick2(0 To 2) As Double
    On Error Resume Next
    '------------------<表示位置始点ｸﾘｯｸ> IJCADではﾗﾊﾞｰﾊﾞﾝﾄﾞできない
    ptPick2 = DOC.Utility.GetPoint(ptPick, vbCrLf & _
              "描き出し位置をクリックして下さい:")
    '------------------
    If Err.Number <> 0 Then GoTo UU
    x2 = ptPick2(0)
    y2 = ptPick2(1)

これでもラバーバンドが出ません？（座標は正常に得られています）

これから以下をやってみます
（１）参考のコードをそのままコピーして実行してみる
（２）何か環境の問題かもしれないのでIJCADの設定を調べてみる