AutoCAD - 日本語フォーラムのトピックRe: acDoc.Editor.GetPoint

acDoc.Editor.GetPoint

Anonymous — Thu, 04 Oct 2012 08:18:34 GMT

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

Re: acDoc.Editor.GetPoint

Anonymous — Fri, 05 Oct 2012 00:33:15 GMT

こんにちは。

私は 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

Re: acDoc.Editor.GetPoint

Anonymous — Tue, 09 Oct 2012 01:06:45 GMT

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

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

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

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

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

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

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

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

よろしくお願いします。

Re: acDoc.Editor.GetPoint

Anonymous — Wed, 10 Oct 2012 01:18:41 GMT

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

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

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

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

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

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

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

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

よろしくお願いします。