Indexへ
(10244)//【10191】→(10195)
------------------------
【タイトル】JWF設定
【記事番号】 10191 (*)
【 日時 】06/03/28 11:33
【 発言者 】建築

設定＞環境設定ファイル＞読み込み。
で、ファイルの種類選択で初期値のJWFをJWLに変更は
可能でしょうか。
JWFには項目が見当たらないのですが。
宜しく、ご教授の程、お願い致します。


Indexへ
(10191)←【10195】→(10199)
------------------------
【タイトル】Re(1):JWF設定
【記事番号】 10195 (10191)
【 日時 】06/03/28 12:33
【 発言者 】hogehoge

▼建築さん：

そのような機能は、現在装備されていません。

ちなみに、jwwフォルダ内のjw_win.jwfを読み込んで起動すると言うのが仕様です。他の名称の*.jwfを読み込んで起動させる事はjwwは対応しておらず、他のソフトが必要になります。

いわんや、JWLに於いては…

>設定＞環境設定ファイル＞読み込み。
>で、ファイルの種類選択で初期値のJWFをJWLに変更は
>可能でしょうか。
>JWFには項目が見当たらないのですが。
>宜しく、ご教授の程、お願い致します。


Indexへ
(10195)←【10199】→(10205)
------------------------
【タイトル】RE: JWF設定
【記事番号】 10199 (10191)
【 日時 】06/03/28 12:57
【 発言者 】はじめ db_hazime@mis.ne.jp

>設定＞環境設定ファイル＞読み込み。
>で、ファイルの種類選択で初期値のJWFをJWLに変更は可能でしょうか。
>JWFには項目が見当たらないのですが。

「項目」とは具体的に何を指すのでしょうか?
JWF と JWL は使用目的が違うので内容も違います。

JWL の「 レイヤ状態の変更 」は JWF にはありませんが「データを書く前にレイヤをプロテクトしても意味が無い」からですね。

JWL の「 レイヤ整理 」は JWF にはありませんが、JWF であらかじめ「コマンドレイヤとレイヤの線種線色が指定されていればレイヤ整理の必要が無い」からですね。

つまり起動時に必要なのは JWF であって、すでに書かれている図面の環境を変更すのが JWL の役目だと思います。


Indexへ
(10199)←【10205】→(10215)
------------------------
【タイトル】Re(1):JWF設定
【記事番号】 10205 (10191)
【 日時 】06/03/28 14:32
【 発言者 】建築

hogehogeさん
はじめさん
ありがとうございます

私の場合JWFでの使い分けはほとんどありません。
ただし、JWLでのデーター整理は頻繁に行います。
従って、JWFとJWLを選択するのが面倒になってきます。
しかし、その機能がないとすれば
今後のVer UPに期待したいと思います。


Indexへ
(10205)←【10215】→(10219)
------------------------
【タイトル】Re(2):JWF設定
【記事番号】 10215 (10205)
【 日時 】06/03/28 19:58
【 発言者 】takagi

▼建築さん：
>ただし、JWLでのデーター整理は頻繁に行います。
>従って、JWFとJWLを選択するのが面倒になってきます。
>しかし、その機能がないとすれば
>今後のVer UPに期待したいと思います。

私も同感です。
JWFでコマンドとレイヤ、レイヤと線色などの設定は行っていますが、完全にはレイヤ分け出来ていません。
というより、設定任せで、レイヤを気にせず描いている為、重複線整理等の前にJWLファイルを読み込んでレイヤ整理してから行っています。
その為、私もJWLの方を頻繁に利用しています。


Indexへ
(10215)←【10219】→(10224)
------------------------
【タイトル】Re(1):JWF設定
【記事番号】 10219 (10191)
【 日時 】06/03/28 22:35
【 発言者 】SEEDS

▼建築さん：
こんばんわ
私は以前のスレでwshを使って･･･というのを見て
外変で実現しています

以下のバッチファイルとスクリプトファイルを使用して
キーに登録してダイアログボックスの呼び出しまで行っています

wshをインストールする必要があります
http://www.microsoft.com/japan/msdn/scripting/default.asp

他のアプリケーションを立ち上げていると
うまくキーを渡せないときがあります

スクリプトのC:\jww\jwlの部分をjwlファイルの有る場所に
変更してください

参考まで(あまり知識は有りませんので)

バッチファイル(JWLBOX.bat)

@REM JWLダイアログBOX呼出
@echo off
JWLBOX.vbs
goto END
REM　#jww
REM　#h0
REM　#cd
REM　#hf
REM　#e
:END

スクリプト(JWLBOX.vbs)

Option Explicit
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "jw_win"
WshShell.SendKeys "%S"
WshShell.SendKeys "FR{ENTER}"
WshShell.SendKeys "C:\jww\jwl"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{DOWN 2}{ENTER}"


Indexへ
(10219)←【10224】→(10250)
------------------------
【タイトル】Re(2):JWF設定
【記事番号】 10224 (10219)
【 日時 】06/03/29 08:13
【 発言者 】coolyoppe

▼SEEDSさん：こんにちは。

>私は以前のスレでwshを使って･･･というのを見て
>外変で実現しています
>
>以下のバッチファイルとスクリプトファイルを使用して
>キーに登録してダイアログボックスの呼び出しまで行っています

いや〜、同じ事を考えている方がいるものですね！
私もVBSで作ってみたのですが、ファイル選択画面のところで
ストップすれば良かったのですね。ちょっとファイル選択で
悩んでしまい、ショートカットを作るという方向に行って
しまいました。

>wshをインストールする必要があります
>http://www.microsoft.com/japan/msdn/scripting/default.asp
>
XPだと標準でインストールされているようです。

ちょっと実行方法が違いますので拙作も紹介させて下さい。m(_ _)m
下記の２つのファイルを作成し、レイヤ整理ファイルと同じ場所に
コピーして下さい。

１．「JwL_Run.vbs」
レイヤ整理ファイル読込実行ファイルです。このファイルの上に
レイヤ整理ファイルをドラッグアンドドロップしても実行できます。
実行用にレイヤ整理ファイルと同じ内容の「LaySeiriTemp.jwl」という
ファイルが作成されます。消してもかまいませんが、実行するとまた
できます。

２．「JwL_Lnk_Make.vbs」
このファイルの上にレイヤ整理ファイルをドラッグアンドドロップ
することで、レイヤ整理ファイルごとの読込実行用ショートカット
を作成し、次からはそのショートカットをダブルクリックすることで
読み込み実行出来ます。同じフォルダに作成されます。
ショートカットの名前は好きに変更してかまいません。
スタートメニューやデスクトップなど好きな場所に置いて下さい。
タスクバーのクイック起動のところに登録すると便利かと思います。


'１．ＪＷＷでレイヤ整理ファイルを読込実行スクリプト
'「JwL_Run.vbs」
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments　 '引数（選択したファイル名）を配列として変数へ取得
Set objFS = CreateObject("Scripting.FileSystemObject")
'レイヤ整理ファイルを選択しないで直接実行したときの注意メッセージと終了処理
if objArgs(0) = "" then
a = MsgBox("レイヤ整理ファイルを選択して下さい" & vbCR _
& "（直接実行はできません）",48,"実行注意！")
WScript.Quit
end if
Set objFile = objFS.GetFile(objArgs(0))
objFile.Copy(objFile.ParentFolder & "\LaySeiriTemp.jwl")
strJWL="LaySeiriTemp"
a = WshShell.AppActivate ("jw_win")
if a = False then
a = MsgBox("jw_winが起動していません。" & vbCR _
& "起動後に実行して下さい。",48,"実行注意！")
WScript.Quit
end if
'レイヤ整理ファイルの読込処理
WScript.Sleep 100
WshShell.SendKeys "%sfr"
WScript.Sleep 100
WshShell.SendKeys "%t{DOWN}{DOWN}{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "%n"
WScript.Sleep 100
WshShell.SendKeys strJWL
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Quit


'２．レイヤ整理ファイル読込スクリプトのショートカット作成
'「JwL_Lnk_Make.vbs」このファイル上にレイヤ整理ファイルをドラッグすると
'（複数ファイル可）レイヤ整理ファイルと同じ場所にショートカットが作成される
'そのショートカットをダブルクリックするとレイヤ整理ファイルが読み込まれる
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Set objFS = CreateObject("Scripting.FileSystemObject")
'レイヤ整理ファイルを選択しないで直接実行したときの注意メッセージと終了処理
if objArgs(0) = "" then
a = MsgBox("レイヤ整理ファイルをドラッグアンドドロップして下さい" & vbCR _
& "（直接実行はできません）",48,"実行注意！")
WScript.Quit
end if
For i = 0 to objArgs.Count - 1
Set objFile = objFS.GetFile(objArgs(i))
strPname = objFile.ParentFolder
strFname = objFile.Name
'ショートカットの作成
set oShellLink = WshShell.CreateShortcut(strPname & "\" & strFname & "へのショートカット.lnk")
oShellLink.TargetPath = strPname & "\JwL_Run.vbs"
oShellLink.WindowStyle = 7
oShellLink.Description = strFname & "へのショートカット."
oShellLink.WorkingDirectory = strPname
oShellLink.Arguments = """" & objArgs(i) & """"
oShellLink.Save
next
WScript.Quit


Indexへ
(10224)←【10250】→(10268)
------------------------
【タイトル】訂正と追加です
【記事番号】 10250 (10224)
【 日時 】06/03/29 19:35
【 発言者 】coolyoppe

訂正と追加です。
スクリプト中、掲示板に記載すると全角スペースに変換されて
しまう部分がありエラーとなるようなので、一部訂正しました。
また、ついでに環境設定ファイル用のスクリプトも追加しましたので
お試し下さい。

下記の４つのファイルを作成し、レイヤ整理ファイルと同じ場所に
コピーして下さい。（前回スクリプト再掲）

１．「JwL_Run.vbs」
レイヤ整理ファイル読込実行ファイルです。このファイルの上に
レイヤ整理ファイルをドラッグアンドドロップしても実行できます。
実行用にレイヤ整理ファイルと同じ内容の「LaySeiriTemp.jwl」という
ファイルが作成されます。消してもかまいませんが、実行するとまた
できます。

２．「JwL_Lnk_Make.vbs」
このファイルの上にレイヤ整理ファイルをドラッグアンドドロップ
することで、レイヤ整理ファイルごとの読込実行用ショートカット
を作成し、次からはそのショートカットをダブルクリックすることで
読み込み実行出来ます。同じフォルダに作成されます。
ショートカットの名前は好きに変更してかまいません。
スタートメニューやデスクトップなど好きな場所に置いて下さい。
タスクバーのクイック起動のところに登録すると便利かと思います。

３．「JwF環境_Run.vbs」
環境設定ファイル読込実行ファイルです。このファイルの上に
環境設定ファイルをドラッグアンドドロップしても実行できます。
実行用に環境設定ファイルと同じ内容の「KankyouTemp.jwf」という
ファイルが作成されます。消してもかまいませんが、実行するとまた
できます。

４．「JwF環境_Lnk_Make.vbs」
このファイルの上に環境設定ファイルをドラッグアンドドロップ
することで、環境設定ファイルごとの読込実行用ショートカット
を作成し、次からはそのショートカットをダブルクリックすることで
読み込み実行出来ます。同じフォルダに作成されます。
ショートカットの名前は好きに変更してかまいません。
スタートメニューやデスクトップなど好きな場所に置いて下さい。
タスクバーのクイック起動のところに登録すると便利かと思います。


'１．ＪＷＷでレイヤ整理ファイルを読込実行スクリプト
'「JwL_Run.vbs」
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Set objFS = CreateObject("Scripting.FileSystemObject")
'レイヤ整理ファイルを選択しないで直接実行したときの注意メッセージと終了処理
if objArgs(0) = "" then
a = MsgBox("レイヤ整理ファイルを選択して下さい" & vbCR _
& "（直接実行はできません）",48,"実行注意！")
WScript.Quit
end if
Set objFile = objFS.GetFile(objArgs(0))
objFile.Copy(objFile.ParentFolder & "\LaySeiriTemp.jwl")
strJWL="LaySeiriTemp"
a = WshShell.AppActivate ("jw_win")
if a = False then
a = MsgBox("jw_winが起動していません。" & vbCR _
& "起動後に実行して下さい。",48,"実行注意！")
WScript.Quit
end if
'レイヤ整理ファイルの読込処理
WScript.Sleep 100
WshShell.SendKeys "%sfr"
WScript.Sleep 100
WshShell.SendKeys "%t{DOWN}{DOWN}{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "%n"
WScript.Sleep 100
WshShell.SendKeys strJWL
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Quit


'２．レイヤ整理ファイル読込スクリプトのショートカット作成
'「JwL_Lnk_Make.vbs」このファイル上にレイヤ整理ファイルをドラッグすると
'（複数ファイル可）レイヤ整理ファイルと同じ場所にショートカットが作成される
'そのショートカットをダブルクリックするとレイヤ整理ファイルが読み込まれる
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Set objFS = CreateObject("Scripting.FileSystemObject")
'レイヤ整理ファイルを選択しないで直接実行したときの注意メッセージと終了処理
if objArgs(0) = "" then
a = MsgBox("レイヤ整理ファイルをドラッグアンドドロップして下さい" & vbCR _
& "（直接実行はできません）",48,"実行注意！")
WScript.Quit
end if
For i = 0 to objArgs.Count - 1
Set objFile = objFS.GetFile(objArgs(i))
strPname = objFile.ParentFolder
strFname = objFile.Name
'ショートカットの作成
set oShellLink = WshShell.CreateShortcut(strPname & "\" & strFname & "へのショートカット.lnk")
oShellLink.TargetPath = strPname & "\JwL_Run.vbs"
oShellLink.WindowStyle = 7
oShellLink.Description = strFname & "へのショートカット."
oShellLink.WorkingDirectory = strPname
oShellLink.Arguments = """" & objArgs(i) & """"
oShellLink.Save
next
WScript.Quit


'３．ＪＷＷで環境設定ファイルを読込実行スクリプト
'「JwF環境_Run.vbs」
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Set objFS = CreateObject("Scripting.FileSystemObject")
'環境設定ファイルを選択しないで直接実行したときの注意メッセージと終了処理
if objArgs(0) = "" then
a = MsgBox("環境設定ファイルを選択して下さい" & vbCR _
& "（直接実行はできません）",48,"実行注意！")
WScript.Quit
end if
Set objFile = objFS.GetFile(objArgs(0))
objFile.Copy(objFile.ParentFolder & "\KankyouTemp.jwf")
strJWF="KankyouTemp"
a = WshShell.AppActivate ("jw_win")
if a = False then
a = MsgBox("jw_winが起動していません。" & vbCR _
& "起動後に実行して下さい。",48,"実行注意！")
WScript.Quit
end if
'レイヤ整理ファイルの読込処理
WScript.Sleep 100
WshShell.SendKeys "%sfr"
WScript.Sleep 100
WshShell.SendKeys "%n"
WScript.Sleep 100
WshShell.SendKeys strJWF
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Quit


'４．環境設定ファイル読込スクリプトのショートカット作成
'「JwF環境_Lnk_Make.vbs」このファイル上にレイヤ整理ファイルをドラッグすると
'（複数ファイル可）環境設定ファイルと同じ場所にショートカットが作成される
'そのショートカットをダブルクリックすると環境設定ファイルが読み込まれる
On Error Resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
Set objFS = CreateObject("Scripting.FileSystemObject")
'環境設定ファイルを選択しないで直接実行したときの注意メッセージと終了処理
if objArgs(0) = "" then
a = MsgBox("環境設定ファイルをドラッグアンドドロップして下さい" & vbCR _
& "（直接実行はできません）",48,"実行注意！")
WScript.Quit
end if
For i = 0 to objArgs.Count - 1
Set objFile = objFS.GetFile(objArgs(i))
strPname = objFile.ParentFolder
strFname = objFile.Name
'ショートカットの作成
set oShellLink = WshShell.CreateShortcut(strPname & "\" & strFname & "環境へのショートカット.lnk")
oShellLink.TargetPath = strPname & "\JwF環境_Run.vbs"
oShellLink.WindowStyle = 7
oShellLink.Description = strFname & "へのショートカット."
oShellLink.WorkingDirectory = strPname
oShellLink.Arguments = """" & objArgs(i) & """"
oShellLink.Save
next
WScript.Quit


Indexへ
(10250)←【10268】→(10310)
------------------------
【タイトル】Re(1):訂正と追加です
【記事番号】 10268 (10250)
【 日時 】06/03/30 13:34
【 発言者 】takagi

▼coolyoppeさん：
>>タスクバーのクイック起動のところに登録すると便利かと思います。

ありがとうございます。
クイック起動に登録して試してみました。
クリック１回で完了するので、非常に重宝しそうです。
ただ、クイック起動の場合ショートカットのアイコンのみで1つだけにしないと何のショートカットか分からなくなりそうです。
普段使用するのは１つだけなので特に問題ないのですが。


Indexへ
(10268)←【10310】→(10223)
------------------------
【タイトル】Re(2):訂正と追加です
【記事番号】 10310 (10268)
【 日時 】06/03/30 23:30
【 発言者 】coolyoppe

>ただ、クイック起動の場合ショートカットのアイコンのみで1つだけにしないと何のショートカットか分からなくなりそうです。
>普段使用するのは１つだけなので特に問題ないのですが。

何か他のプログラム（ＩＥやＯＥなど）３つ以上登録してみて下さい。
４つめからは「>>」ボタンからのポップアップメニューに入りますので
複数レイヤ整理読込実行ショートカットを登録した場合も、
名前が確認出来ます。（順番はドラッグで変更できます。）


Indexへ
(10310)←【10223】//(10193)
------------------------
【タイトル】JWF設定
【記事番号】 10223 (10191)
【 日時 】06/03/29 06:45
【 発言者 】建築

takagi さん
ご意見ありがとうございます。

SEEDSさん
情報ありがとうございます。