相談室(2)-T27050

Indexへ
(27043)//【27050】→(27051)
------------------------
【タイトル】起動オプションで
【記事番号】 27050 (*)
【日時】08/02/19 22:15
【発言者】kiyoshi

久しぶりに投稿します。

起動オプションで図面を開くときに、あるファイル以外は開くのですが、このファイルだけは「ＪＷＣＡＤでは読み込めないファイルです。」と出てくるのです。

ＶＥＲ60.1
ＷＩＮ　ＸＰ

ファイル操作→図面情報コピー→エクセルのサンプルに貼り付け→起動ボタン

この図面以外はＯＫなのですが、ファイル名にでも問題があるのでしょうか？

Indexへ
(27050)←【27051】→(27052)
------------------------
【タイトル】Re(1):起動オプションで
【記事番号】 27051 (27050)
【日時】08/02/19 22:20
【発言者】kiyoshi

▼kiyoshiさん：
>久しぶりに投稿します。
>
>起動オプションで図面を開くときに、あるファイル以外は開くのですが、このファイルだけは「ＪＷＣＡＤでは読み込めないファイルです。」と出てくるのです。
>
>ＶＥＲ60.1
>ＷＩＮ　ＸＰ
>
>ファイル操作→図面情報コピー→エクセルのサンプルに貼り付け→起動ボタン
>
>この図面以外はＯＫなのですが、ファイル名にでも問題があるのでしょうか？

追伸

すいません　　あるファイルとはすべてのＪＷＣＡＤファイルのことです。

Indexへ
(27051)←【27052】→(27069)
------------------------
【タイトル】Re(1):起動オプションで
【記事番号】 27052 (27050)
【日時】08/02/20 00:38
【発言者】coolyoppe

▼kiyoshiさん：
>久しぶりに投稿します。
>
>起動オプションで図面を開くときに、あるファイル以外は開くのですが、このファイルだけは「ＪＷＣＡＤでは読み込めないファイルです。」と出てくるのです。
>
>ＶＥＲ60.1
>ＷＩＮ　ＸＰ
>
>ファイル操作→図面情報コピー→エクセルのサンプルに貼り付け→起動ボタン
>
>この図面以外はＯＫなのですが、ファイル名にでも問題があるのでしょうか？

こんにちは。

フォルダやファイル名に半角スペースが含まれていると、
そのような状態になることがあるようです。
Excelで利用する場合は「c:\～\図面名.jww」部分を「"」で囲んで、
「"c:\～\図面名.jww" -M -P～」とすると良いようです。
また、jokerさんが同様のツールを作成されています。

詳しくは、こちらの過去ログを参照してみて下さい。
http://www.jwcad.net/log/consult2/consult2-0604-06/thread12852.htm
（尚、過去ログ中のjokerさんのサイトアドレスは、
http://jwwfaq.undo.jp/down/tools.html
に変更されたようです。）

それ以降では、起動オプションが
タグジャンプでも使えるようになりましたし、
図面ファイルのショートカットの「リンク先」に記述することでも
有効になったようです。

Indexへ
(27052)←【27069】→(27072)
------------------------
【タイトル】Re(2):起動オプションで
【記事番号】 27069 (27052)
【日時】08/02/20 22:13
【発言者】kiyoshi

▼coolyoppeさん：
>▼kiyoshiさん：
>>久しぶりに投稿します。
>>
>>起動オプションで図面を開くときに、あるファイル以外は開くのですが、このファイルだけは「ＪＷＣＡＤでは読み込めないファイルです。」と出てくるのです。
>>
>>ＶＥＲ60.1
>>ＷＩＮ　ＸＰ
>>
>>ファイル操作→図面情報コピー→エクセルのサンプルに貼り付け→起動ボタン
>>
>>この図面以外はＯＫなのですが、ファイル名にでも問題があるのでしょうか？
>
>こんにちは。
>
>フォルダやファイル名に半角スペースが含まれていると、
>そのような状態になることがあるようです。
>Excelで利用する場合は「c:\～\図面名.jww」部分を「"」で囲んで、
>「"c:\～\図面名.jww" -M -P～」とすると良いようです。
>また、jokerさんが同様のツールを作成されています。
>
>詳しくは、こちらの過去ログを参照してみて下さい。
>http://www.jwcad.net/log/consult2/consult2-0604-06/thread12852.htm
>（尚、過去ログ中のjokerさんのサイトアドレスは、
>http://jwwfaq.undo.jp/down/tools.html
>に変更されたようです。）
>
>それ以降では、起動オプションが
>タグジャンプでも使えるようになりましたし、
>図面ファイルのショートカットの「リンク先」に記述することでも
>有効になったようです。

coolyoppeさんありがとうございました。

問題なく出来ました。　jokerさんのソフトもいいですね。で、

>それ以降では、起動オプションが
>タグジャンプでも使えるようになりましたし、

今から勉強します。

>図面ファイルのショートカットの「リンク先」に記述することでも
>有効になったようです。

も、勉強します。また、ご教授のほど宜しくお願いします。なんですが、
もう1つ質問させていいですか？

印刷なのですが、この起動オプションで選択した図面を連続印刷又、チョイス印刷の設定はないのでしょうか？　ファイル単位ならｊｗｗの連続印刷機能で出来るみたいなのですが。宜しくお願いいます。

Indexへ
(27069)←【27072】→(27110)
------------------------
【タイトル】Re(3):起動オプションで
【記事番号】 27072 (27069)
【日時】08/02/21 01:48
【発言者】coolyoppe

▼kiyoshiさん：
>印刷なのですが、この起動オプションで選択した図面を連続印刷又、チョイス印刷の設定はないのでしょうか？　ファイル単位ならｊｗｗの連続印刷機能で出来るみたいなのですが。宜しくお願いいます。

フルパスを記入するところに印刷オプション「/p」を追加して、
C:\jww\Jw_win.exe /p
とすると選択したところの印刷は可能です。
（ただし、印刷オプションのほうは起動オプションに対応していないようで、
起動オプションで設定されている印刷範囲は反映されないようです。
図面ファイルに保存されている印刷範囲になるようです。）

「起動」ボタンに割り付けられているVBAマクロを編集すれば
連続印刷も可能かと思います。
（軽く試してみた限りでは大丈夫なようです。
ただ、起動オプションの印刷範囲に対応していない段階では、
動作としてはフォルダから図面ファイルを複数選択して、
右クリックから「印刷」を実行したのと同じです。）

試す場合は、「sample.xls」を別名（「JWW選択印刷.xls」等）で
コピーしたものでやってみて下さい。
うまくいったら、コマンドボタン（「印刷」など）を追加して
マクロをコピーすれば、１つのExcelブックでＪＷＷの起動も
印刷も出来るようになります。

Indexへ
(27072)←【27110】→(27114)
------------------------
【タイトル】Re(4):起動オプションで
【記事番号】 27110 (27072)
【日時】08/02/21 23:06
【発言者】kiyoshi

▼coolyoppeさん：
>▼kiyoshiさん：
>>印刷なのですが、この起動オプションで選択した図面を連続印刷又、チョイス印刷の設定はないのでしょうか？　ファイル単位ならｊｗｗの連続印刷機能で出来るみたいなのですが。宜しくお願いいます。
>
>フルパスを記入するところに印刷オプション「/p」を追加して、
>C:\jww\Jw_win.exe /p
>とすると選択したところの印刷は可能です。
>（ただし、印刷オプションのほうは起動オプションに対応していないようで、
>起動オプションで設定されている印刷範囲は反映されないようです。
>図面ファイルに保存されている印刷範囲になるようです。）
>
>「起動」ボタンに割り付けられているVBAマクロを編集すれば
>連続印刷も可能かと思います。
>（軽く試してみた限りでは大丈夫なようです。
>ただ、起動オプションの印刷範囲に対応していない段階では、
>動作としてはフォルダから図面ファイルを複数選択して、
>右クリックから「印刷」を実行したのと同じです。）
>
>試す場合は、「sample.xls」を別名（「JWW選択印刷.xls」等）で
>コピーしたものでやってみて下さい。
>うまくいったら、コマンドボタン（「印刷」など）を追加して
>マクロをコピーすれば、１つのExcelブックでＪＷＷの起動も
>印刷も出来るようになります。

coolyoppeさん
色々とご指導ありがとうございました。　質問はしたものの解答を理解するのにもう少しの時間が必要です。（マクロはまったくの無知なので）
とりあえずは起動オプションができるようになり飛躍的に作業能率がアップしたので感謝です。　またよろしくお願いします。

Indexへ
(27110)←【27114】→(27150)
------------------------
【タイトル】Re(5):起動オプションで
【記事番号】 27114 (27110)
【日時】08/02/22 00:56
【発言者】coolyoppe

▼kiyoshiさん：
>色々とご指導ありがとうございました。　質問はしたものの解答を理解するのにもう少しの時間が必要です。（マクロはまったくの無知なので）
>とりあえずは起動オプションができるようになり飛躍的に作業能率がアップしたので感謝です。　またよろしくお願いします。

連続起動、連続印刷対応のマクロに改変してみましたので、
よかったらお試し下さい。

以下、導入の手順です。
１．岡崎さんのサンプル「sample.xls」を開いたら、
　別名（「ＪＷＷ連続起動印刷.xls」など）で保存。
２．メニュー「表示」「ツールバー」「コントロールツールボックス」
　から「コントロールツールボックス」が表示されますので、
　その中の左上（たぶん。三角定規の絵のやつ）にある
　「デザインモード」ボタンをクリックしてデザインモードにする。
３．「Ctrl」キーを押しながら「起動」ボタンをドラッグして、
　「起動」ボタンの下にコピーする。
４．コピーした「起動」ボタンを右クリックして、
　「プロパティ」から「全体」タブの「caption」のところの「起動」
　という文字を「印刷」に変更したら右上の「×」ボタンで閉じる。
５．手順４でボタンの文字変更した「印刷」ボタンをダブルクリックすると、
　マクロコード編集画面が表示されるので、既存のマクロコードは全て
　削除してから、下記のマクロをコピーして貼り付けたら、
　メニュー「ファイル」「～を上書き保存」し、
　メニュー「ファイル」「終了してMicrosoftExcelへ戻る」で戻る。
６．手順２の「デザインモード」ボタンをもう一度クリックして、
　デザインモードを終了し、「コントロールツールボックス」を閉じる。

以上で完了です。
（Excel2000で説明していますので、他のバージョンでは細かく違っている
かもしれません。）

●次の行から最終行までがマクロコードになります。

'作者の岡崎さんが作成した「sample.xls」のマクロを改変し複数選択に対応
'A列の見出し部分を複数選択（ドラッグでの連続選択、「Ctrl」キー＋クリック
'での任意の複数選択有効）、または１つ選択してから目的のボタンをクリック
'することで、それに対応するB列のファイル情報で複数起動または複数印刷を実行できる
'（※印刷の場合に限り、印刷範囲などの情報には未対応）
'Jw_cad 本体のフルパスは、B1 セルに記入しておくこと

Private Sub CommandButton1_Click()
Dim RetVal, sentaku
Dim CmdLine As String
For Each sentaku In Selection
CmdLine = Cmd_Get(Range("B1").Value, _
Range("B" & sentaku.Rows.Row).Value)
RetVal = Shell(CmdLine, 1)
Next sentaku
ActiveCell.Select
End Sub

Private Sub CommandButton2_Click()
Dim RetVal, sentaku
Dim CmdLine As String
For Each sentaku In Selection
CmdLine = Cmd_Get(Range("B1").Value & " /p", _
Range("B" & sentaku.Rows.Row).Value)
RetVal = Shell(CmdLine, 1)
Next sentaku
ActiveCell.Select
End Sub

Private Function Cmd_Get(cmdpath As String, fpath As String) As String
Dim WFun As Object
Set WFun = Application.WorksheetFunction
fpath = WFun.Substitute(fpath, ".jww", ".jww""")
fpath = WFun.Substitute(fpath, ".JWW", ".jww""")
fpath = WFun.Substitute(fpath, ".JWw", ".jww""")
fpath = WFun.Substitute(fpath, ".JwW", ".jww""")
fpath = WFun.Substitute(fpath, ".jWW", ".jww""")
fpath = WFun.Substitute(fpath, ".Jww", ".jww""")
fpath = WFun.Substitute(fpath, ".jWw", ".jww""")
fpath = WFun.Substitute(fpath, ".jwW", ".jww""")
Cmd_Get = cmdpath & " """ & fpath
End Function

Indexへ
(27114)←【27150】→(27151)
------------------------
【タイトル】ありがとうございました
【記事番号】 27150 (27114)
【日時】08/02/23 23:43
【発言者】kiyoshi

▼coolyoppeさん：
>▼kiyoshiさん：
>>色々とご指導ありがとうございました。　質問はしたものの解答を理解するのにもう少しの時間が必要です。（マクロはまったくの無知なので）
>>とりあえずは起動オプションができるようになり飛躍的に作業能率がアップしたので感謝です。　またよろしくお願いします。
>
>連続起動、連続印刷対応のマクロに改変してみましたので、
>よかったらお試し下さい。
>
>以下、導入の手順です。
>１．岡崎さんのサンプル「sample.xls」を開いたら、
>　別名（「ＪＷＷ連続起動印刷.xls」など）で保存。
>２．メニュー「表示」「ツールバー」「コントロールツールボックス」
>　から「コントロールツールボックス」が表示されますので、
>　その中の左上（たぶん。三角定規の絵のやつ）にある
>　「デザインモード」ボタンをクリックしてデザインモードにする。
>３．「Ctrl」キーを押しながら「起動」ボタンをドラッグして、
>　「起動」ボタンの下にコピーする。
>４．コピーした「起動」ボタンを右クリックして、
>　「プロパティ」から「全体」タブの「caption」のところの「起動」
>　という文字を「印刷」に変更したら右上の「×」ボタンで閉じる。
>５．手順４でボタンの文字変更した「印刷」ボタンをダブルクリックすると、
>　マクロコード編集画面が表示されるので、既存のマクロコードは全て
>　削除してから、下記のマクロをコピーして貼り付けたら、
>　メニュー「ファイル」「～を上書き保存」し、
>　メニュー「ファイル」「終了してMicrosoftExcelへ戻る」で戻る。
>６．手順２の「デザインモード」ボタンをもう一度クリックして、
>　デザインモードを終了し、「コントロールツールボックス」を閉じる。
>
>以上で完了です。
>（Excel2000で説明していますので、他のバージョンでは細かく違っている
>かもしれません。）
>
>●次の行から最終行までがマクロコードになります。
>
>'作者の岡崎さんが作成した「sample.xls」のマクロを改変し複数選択に対応
>'A列の見出し部分を複数選択（ドラッグでの連続選択、「Ctrl」キー＋クリック
>'での任意の複数選択有効）、または１つ選択してから目的のボタンをクリック
>'することで、それに対応するB列のファイル情報で複数起動または複数印刷を実行できる
>'（※印刷の場合に限り、印刷範囲などの情報には未対応）
>'Jw_cad 本体のフルパスは、B1 セルに記入しておくこと
>
>Private Sub CommandButton1_Click()
>Dim RetVal, sentaku
>Dim CmdLine As String
>For Each sentaku In Selection
>CmdLine = Cmd_Get(Range("B1").Value, _
>Range("B" & sentaku.Rows.Row).Value)
>RetVal = Shell(CmdLine, 1)
>Next sentaku
>ActiveCell.Select
>End Sub
>
>Private Sub CommandButton2_Click()
>Dim RetVal, sentaku
>Dim CmdLine As String
>For Each sentaku In Selection
>CmdLine = Cmd_Get(Range("B1").Value & " /p", _
>Range("B" & sentaku.Rows.Row).Value)
>RetVal = Shell(CmdLine, 1)
>Next sentaku
>ActiveCell.Select
>End Sub
>
>Private Function Cmd_Get(cmdpath As String, fpath As String) As String
>Dim WFun As Object
>Set WFun = Application.WorksheetFunction
>fpath = WFun.Substitute(fpath, ".jww", ".jww""")
>fpath = WFun.Substitute(fpath, ".JWW", ".jww""")
>fpath = WFun.Substitute(fpath, ".JWw", ".jww""")
>fpath = WFun.Substitute(fpath, ".JwW", ".jww""")
>fpath = WFun.Substitute(fpath, ".jWW", ".jww""")
>fpath = WFun.Substitute(fpath, ".Jww", ".jww""")
>fpath = WFun.Substitute(fpath, ".jWw", ".jww""")
>fpath = WFun.Substitute(fpath, ".jwW", ".jww""")
>Cmd_Get = cmdpath & " """ & fpath
>End Function

Indexへ
(27150)←【27151】//(27054)
------------------------
【タイトル】Re(1):ありがとうございました
【記事番号】 27151 (27150)
【日時】08/02/23 23:45
【発言者】kiyoshi

▼kiyoshiさん：
>▼coolyoppeさん：

すべてうまくいきました。
これからだいじに使わせていただきます。

ありがとうございました。