ＪＷＷｖｅｒ５．０１で、ファイル＞ファイル操作＞図面情報コピー
で、現在の画面状態をクリップボード経由でエクセルにコピーして・・・
エクセルをｊｗｗのランチャーにしようって・・・・
でもね・・JWW起動したいのにエクセルを起動するってのも・・・・
で、何とかしようとこさえてみました。
作戦は・・・・
AWKでバッチファイルをこさえよう・・・と、・・・そんなもん、作戦とか言うな！＞じゃ
まず適当なところに・・・適当な名前のバッチファイルをこさえます。
（中身はからっぽでいいよん。名前おぼえといてね.）
で、そのバッチへのショートカットをデスクトップにこさえときます。
さて・・・・
まずは・・・ファイル＞ファイル操作＞図面情報コピー の部分をがいへんにしときましょう。
これは、VBS使うシリーズでいけちゃうね。
で、クリップボードのテキストから・・・ -L 以下の部分を切り捨てたのを返してくれるサブプログラム
clpt ってのをこさえたので・・・・返してくれたテキストからバッチをつくる外変を書きます。
（-L以下のながーいオプションをAWKに読みこませようとすると、どうもうまくいかないんだよね。
それに・・レイヤ状態は普通に保存しとけばいいわけだし・・・）
で、あっしのねらいとしては・・・1つの外変で クリップに保存＞クリップからバッチを作る って
したかったんだけど・・・・うまくいかないのよ。
どうやっても、vbsからのキー操作が外変終了後になっちゃうんだよねぇ・・・・
しゃーないので、２つにしとこ・・・・
clipb1.bat −−−−−−−−−−−−−−
@REM クリップボードへ・・
REM @echo Off
REM 2006年 6月 17日 土曜日 11:48 PM 作成
REM #jww
REM #h0
REM #e
sizout.vbs
sizout.vbs −−−−−−−−−−−−−−
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.AppActivate "jw_win"
WScript.Sleep 50
WScript.Sleep 50
WSHShell.SendKeys "%f"
WScript.Sleep 50
WSHShell.SendKeys "f"
WScript.Sleep 50
WSHShell.SendKeys "i"
WScript.Sleep 50
clipb2.bat −−−−−−−−−−−−−−
@REM クリップボード
@echo Off
REM 2006年 6月 18日 日曜日 01:34 PM 作成
REM #jww
REM #h0
REM #e
mawk32 -f cliptes.awk jwc_temp.txt > g:\jwwtempbat\temp.bat
echo h# バッチこさえたﾖ > jwc_temp.txt
cliptes.awk −−−−−−−−−−−−−
BEGIN{
"clpt.exe" | getline tex;
print "c:\\jww\\jw_win "tex
}
で、clipb2.bat の mawk32 -f cliptes.awk jwc_temp.txt > g:\jwwtempbat\temp.bat
の最後の部分を、ダミーにこさえたバッチファイルに替えて・・・
cliptes.awk の print "c:\\jww\\jw_win "tex の部分を・・・
JWWがc:\JWWでないところにおいてある場合は、そこも書き換えてね。
で・・・「さて、本日の作業はこれにて終了！」って時に・・・
clipb1.bat して・・クリップボードに保存しました・・・とでたら・・・
clipb2.bat しとけば・・・・
翌朝、デスクトップのショートカットで・・・昨夜の画面！！となるわけです。
・・・んんん・・・それほど便利になった・・ってわけじゃないけど・・・
夕べ最後に何してたか・・・思い出すヒントにはなるか・・・・
コピペでこさえるのもめんどそうなので・・・
一式 展示室 > サブプログラム にあげとくね。