VBスクリプトによるCADのコントロール

解決済み

背景色のスレッドに対応したプログラムを作った後で、以前から不便だな、と思っていた、「ロックレイヤ色表示」のON/OFFプログラムが作れないか調べてみました。。。

OLEのAPIにどうもそういうのは無いようで…残念。。

そこでVBスクリプトからCADにキーボード操作を送信する方法でやってみました。
——————————————-
set WshShell = WScript.CreateObject(“WScript.Shell”)
dim Wait_time
Wait_time = 100

WScript.Sleep Wait_time

WshShell.AppActivate “図脳”
WScript.Sleep Wait_time

WshShell.SendKeys “%V”
WScript.Sleep Wait_time

WshShell.SendKeys “G”
WScript.Sleep Wait_time

WshShell.SendKeys “E”
WScript.Sleep Wait_time

WshShell.SendKeys ” ”
WScript.Sleep Wait_time

WshShell.SendKeys “~”
WScript.Sleep Wait_time
——————————————-
上記コード（線の内側だけ）をメモ帳に貼り付けて「ロック色.vbs」という名前で保存します。

出来たファイルをダブルクリックするとロックレイヤ色表示がON/OFFします。

同様に背景色を黒＞白　白＞黒に切り替えるのも作って道具箱に申請しておきますのでよろしければ使ってみて下さい。

この方法だとOLEは使ってませんので、ほぼ全てのWindowsアプリケーションで使えますね。