投稿日 | : 2005/01/14(Fri) 16:00 |
投稿者 | : まさよし |
Eメール | : |
URL | : |
タイトル | : Re^4: 外部アプリの終了方法 |
YK様、ご迷惑をお掛けします。
私の説明不足ですね。
Ret = Shell("C:\Program Files\AutoCAD LT 2004\aclt.exe", vbMaximizedFocus)
ここで、AutoCADが起動します。
Sleep (8000)
'AutoCADをアクティブにします。
AppActivate "AutoCAD"
'3000ミリ秒待機させる(3秒)
Sleep (3000)
'コマンドラインに送信
SendKeys "filedia" & Chr$(13) & "0" & Chr$(13) & &
amp;
quot;script" & Chr$(13)
& "c:\temp\scriptC.scr" & Chr$(13), True
sendkeysでAutoCADのコマンドラインにコマンドが送られます。
一通り処理が終わります。
この時点で、AutoCADのウィンドウ画面がまだ立ち上がった状態なのです。
普通でしたら右上の×ボタンをマウスでクリックしてウインドウを閉じます。
それを、自動で閉じたいわけです。ご理解いただけたでしょうか?
「何だそれくらい我慢しろ!」と怒られるかもしれませんね。すみません。
でも、出来る限り自動でやりたいと思っただけです。今、教えて頂いたソースを書き加えましたが
駄目でした。やはりAPI関数を使用しないと駄目でしょうか?私には敷居が高すぎます。
今のままでも十分使えるのですが、我慢しなくてはいけませんね。
もう少し、自分なりに頑張ってみます。もしご教授願えたら幸いです。