AutoCAD - 日本語フォーラムのトピックRe: AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

net0105net_18 — Tue, 08 Nov 2022 15:17:05 GMT

AutoCAD2013環境で、VBAでマクロを作成し、ツールバー上のボタンで実行できるようにしました。

しかし、ボタン実行時にダイナミック入力がオンにならず、カーソル右下に出てくる入力ボックスが表示されません。（VBAエディタ上の実行では表示される）

システム変数のDYNMODEの値が３になるようにマクロ上でもコーディングしましたが、ボックスは現れませんでした。

どうかご助力お願いいたします。

Re: AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

kazk.o — Thu, 10 Nov 2022 02:49:55 GMT

その説明ではどういうスクリプトを組んで何をどうしたのかがさっぱりなのでちょっと回答が難しいのですが
VBAからSendCommandで何かしらのマクロを組んだという事でしょうか？

例として円を描くマクロをSendCommandで

Sub Example_SendCommand() ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr '円コマンド&改行&座標&改行&直径&改行 End Sub

と言った基本形から

Sub Example_SendCommand() ThisDrawing.SendCommand "_Circle" & vbCr & "\" & vbCr & "\" & vbCr '円コマンド&改行&座標入力待ち&改行&直径入力待ち&改行 End Sub

と座標など任意の制御ができるようにしたらダイナミック入力が無効になってるので

Sub Example_SendCommand() ThisDrawing.SendCommand "DYNMODE" & vbCr & "3" & vbCr '先にシステム変数"DYNMODE"実行で3に ThisDrawing.SendCommand "_Circle" & vbCr & "\" & vbCr & "\" & vbCr '円コマンド&改行&座標入力待ち&改行&直径入力待ち&改行 End Sub

としたけどダイナミック入力有効にならないのでどうにかしたい
的な話であるなら

Sub Example_SendCommand() ThisDrawing.SendCommand "Circle" & vbCr & "'DYNMODE" & vbCr & "3" & vbCr & "\" & vbCr & "\" & vbCr '円コマンド&改行&割り込み（'）でDYNMODE&改行&3に変更&改行&座標入力待ち&改行&直径入力待ち&改行 End Sub

とsendcomanndコマンド中に割り込みコマンドでDYNMODEを切り替えてしまえば行けると思います。
（VBAからのSendCommand中にDYNMODEが-1となり一時無効とされるのは仕様的なものと思われます）

質問の内容があまりにも断片的なのでとりあえず考えられそうな内容からその対応方法を記載させて頂きましたが的が外れていたらすみません。

Re: AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

net0105net_18 — Thu, 10 Nov 2022 12:56:55 GMT

言葉足らずで申し訳ありません。

実は、元々lispで作られたマクロをVBAに移行できるかという検証を行なっていて、その過程で出た問題です。

例えば、点の座標を直接クリックして取得するマクロなどです。

<LISP> (setvar "DYNMODE" 3) (setq POINT (getpoint "点を入力： ")) ↓ <VBA> Thisdrawing.SetVariable "DYNMODE", 3 POINT = ThisDrawing.Utility.GetPoint(, "点を入力: ")

このマクロですと、lispの方はカーソル右下に入力ボックスが出るのですが、VBAではボックスが出てこないということです。

SendCommandの仕様については今回初めてお聞きしました。もしかしたら同じようなことが起こっているのかもしれません。

Re: AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

kazk.o — Fri, 11 Nov 2022 04:34:59 GMT

Getpointの方でしたかこちらの環境下では問題なく座標値も表示されますね……。（添付画像参照）

むしろdynmode-1でも表示される……（割り込みでdynmodeを確認してもちゃんと-1判定……）

2021環境以降で検証しているので2013-2021の間にGetpointの挙動が仕様が変わったのか他の影響なのかちょっと判断つかないですね。

DYNPROMPTの方が絡んでる可能性もあったのでそちらの方も切り替えてみましたが影響はなかったです。

どうにもならなければスクリプト実行中にファンクションキーの”F12”を押して切り替えればいいという身も蓋もない対処法もありだとは思いますが・・・

Re: AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

net0105net_18 — Sun, 13 Nov 2022 14:17:38 GMT

F12も試してみましたが、切り替えても表示されないので、他の原因でダイナミック入力がオフになってしまっていそうです...

Re: AutoCAD2013 VBAマクロ実行時のダイナミック入力が有効にならない

kazk.o — Mon, 14 Nov 2022 05:19:06 GMT

ステータスバーボタンのアイコンからでも切り替えは不可でしょうか？

そうなってくると環境的な問題な気がしますが……

検証できる環境が有ればもう少し色々と調べられるんですがちょっとこれ以上は難しく、申し訳ないです。