acDoc.Editor.GetPoint

[NKCAUTOCAD01]

お世話になっております。
ＶＢＡからの移植を行っています。
そこで、acDoc.Editor.GetPointを、NKCDoc.Utility.GetPointの様に、Enterキーに反応させたい。
エラーでかまわないです。なにかいい方法ありませんか。
ありましたら、ご教授いただけませんか。
よろしくお願いします。

[acadvideo · Accepted solution]

こんにちは。

私は VBA をやったことがないので NKCDoc.Utility.GetPoint のことはわからないのですが、もし getpoint で Enter キーが押されたことを知りたいのなら、こんな感じでどうでしょうか？

Dim ppo As New PromptPointOptions("点をクリック")
ppo.AllowNone = True
Dim ppr As PromptPointResult = acDoc.Editor.GetPoint(ppo)

If ppr.Status = PromptStatus.None Then
  MsgBox("Enter キーが押されました。")
End If

[NKCAUTOCAD01]

お世話になっております。

早速の回答ありがとうございます。

おかげで解決しました。ありがとうございます。

それで、追加でもう一点教えていただきたいのですが。

Ｇｅｔｐｏｉｎｔで、Ｋｅｙｗｏｒｄ入力を制御したいのですが、

if　 ppr.status = Prompt.Statue.Keyword 　Then　　で、Ｋｅｙｗｏｒｄ入力は判別できたのですが、

どのＫｅｙｗｏｒｄか入力値を取る方法を教えていただけませんか。

勝手なお願いばかりで申し訳けありません。

よろしくお願いします。

[NKCAUTOCAD01 · Accepted solution]

お世話になっております。

自己解決の書き込みです。

Ｇｅｔｐｏｉｎｔで、Ｋｅｙｗｏｒｄ入力を制御に関してですが、

いろいろ調べた結果、ＧｅｔＫｅｙｗｏｒｄと同じ方法で可能でした。

ビルドも通り、動作検証検証できました。

しかし、trial and errorでは時間かかってしまいます。

この変のメソッド・ステータスの見方等を書いた書籍ないでしょうか。

有ったら推薦いただけませんか、お願いします。

よろしくお願いします。