| ■36095 / inTopicNo.3) |
Re[1]: ダイレクトに『図面比較』したい
|
□投稿者/ coolyoppe (1027回)-(2007/12/04(Tue) 19:10:23)
 | ■No36086に返信(こめこめさんの記事)
> ダイレクトに『図面比較』したいのですが、
> ファイル→ファイル操作→ファイル比較→図面比較といちいち面倒です。
> 複数枚の図面を比較するときその都度この操作をするのは特にです。
> ユーザーバーとかでは無理ですよね。
> 何かいい方法はないでしょうか。
こんにちは。
「ファイル比較」のコマンド番号は無いようなので、
標準で一発選択するのは無理のようです。
そこで、WSH（Windows Script Host）で動く、
「ファイル比較」VBSスクリプトを作成してみましたので、
よかったらお試し下さい。
（「Alt」＋「F」、「F」、「P」とショートカットキーを送信して
ＪＷＷを操作するという簡単なものです。）
下記（「'実行手順」から最後）の内容をファイル「JWW_File_HIKAKU.vbs」
として保存して下さい。（拡張子が「.vbs」なら名前は任意でＯＫ。）
（このVBSファイルのショートカットを作成して、スタートメニューや
タスクバーの「クイック起動」に登録しておくと素早く実行できます。）
また、Ruby外部変形をご使用ならこちらもお試し下さい。
（独自のツールバーを作成してボタンにショートカットキーを登録することで
コマンド番号の無いコマンドも一発選択可能にするという記事。
登録したいボタンのところを tool(["%ffp"]) と変更すれば、
「ファイル比較」を実行可能。ボタンの名前も"比較"等に。）
http://www.jwcad.net/log/infox3/infox3-0701-06/thread9462.htm
（ＪＷＷホームページにある掲示板の過去ログ）
'以下「JWW_File_HIKAKU.vbs」の内容
'実行手順
'ＪＷＷは起動（最小化せず）したままで、このVBSファイルを実行。
'（このVBSファイルのショートカットを作成して、スタートメニューや
'タスクバーの「クイック起動」に登録しておくと素早く実行できます。）
'ＪＷＷ「ファイル比較」スクリプト
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
a = WshShell.AppActivate ("jw_win")
if a = False then
a = MsgBox("jw_winが起動していません。" & vbCR _
& "起動後に実行して下さい。",48,"実行注意！")
WScript.Quit
end if
'メニュー「ファイル(F)」、「ファイル操作(S)」、「ファイル比較(P)」実行
WshShell.SendKeys "%ffp"
WScript.Quit
|
|
