お世話になっております。
VBAからの移植を行っています。
そこで、acDoc.Editor.GetPointを、NKCDoc.Utility.GetPointの様に、Enterキーに反応させたい。
エラーでかまわないです。なにかいい方法ありませんか。
ありましたら、ご教授いただけませんか。
よろしくお願いします。
解決済! 解決策の投稿を見る。
回答者: NKCAUTOCAD01. 解決策の投稿を見る。
回答者: acadvideo. 解決策の投稿を見る。
こんにちは。
私は 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
お世話になっております。
早速の回答ありがとうございます。
おかげで解決しました。ありがとうございます。
それで、追加でもう一点教えていただきたいのですが。
Getpointで、Keyword入力を制御したいのですが、
if ppr.status = Prompt.Statue.Keyword Then で、Keyword入力は判別できたのですが、
どのKeywordか入力値を取る方法を教えていただけませんか。
勝手なお願いばかりで申し訳けありません。
よろしくお願いします。
お世話になっております。
自己解決の書き込みです。
Getpointで、Keyword入力を制御に関してですが、
いろいろ調べた結果、GetKeywordと同じ方法で可能でした。
ビルドも通り、動作検証検証できました。
しかし、trial and errorでは時間かかってしまいます。
この変のメソッド・ステータスの見方等を書いた書籍ないでしょうか。
有ったら推薦いただけませんか、お願いします。
よろしくお願いします。