2008年06月02日

AutoCAD:テキストエディタのリセットボタン

日コマ関連記事→エディタ変更(の巨大化したダイアログ修復方法)

ボタン一個で戻したいなーと仰る場合。基本、こんなんで戻ります。
以下はAcadRemocon上で動作するVBSなのでお持ちでないお方様は導入の程。
08.06.12 PC変えたら動かんかった、ので微妙に修正
08.06.26 重たい図面でイマイチとか言われてこうしてみた。
AcadRemoconの配布元→KJU FACTORY
Dim Acad  'Acad変数はErサブルーチンでも使うのでここで宣言
Call Main 'メインルーチンコール
Sub Main()
Set Acad = CreateObject("AcadRemocon.Body") 'AcadRemoconオブジェクト作成
Acad.Connect()
Acad.acPostCommand ("^CDDPTYPE")
Acad.VbSendKeys("{ENTER}")
  'Acad.Wait 100 '状況によって使ってくだされ
Acad.VbSendkeys("{ENTER}")
End Sub
コレはワタシが「一々ダイアログ出して押すの面倒だなー」と思って適当に作ったんで、エラーメッセージとかないですが。別段影響はないかと。

一々ダイアログ出して戻すの面倒だよ、と仰る場合にのみオススメします。それだけのVBSなので、これ。

11:16│CAD近辺覚書 | |blogram投票ボタン|日コマ雑記帖