Jw_cad 情報交換室−その3New

 JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その2をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。


  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
31 / 338 ツリー    ←次へ | 前へ→

JWK JWSファイルの使い方 多呂 19/8/28(水) 19:12

Re:JWK JWSファイルの使い方 LA 19/8/28(水) 23:16
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 15:20
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 17:39
Re:JWK JWSファイルの使い方 LA 19/8/31(土) 18:24
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 19:18
Re:JWK JWSファイルの使い方 R.N 19/8/31(土) 20:24
Re:JWK JWSファイルの使い方 R.N 19/9/5(木) 21:44
Re:JWK JWSファイルの使い方 LA 19/9/5(木) 23:46
Re:JWK JWSファイルの使い方 R.N 19/9/6(金) 14:00

Re:JWK JWSファイルの使い方
 LA  - 19/8/28(水) 23:16 -
//============続き===================

//左側フォルダTREEをクリック
DbgPRINT("フォルダ:"+folder);DbgPRINT("カレント1:"+GETSLCTLST(id,1));DbgPRINT("カレント2:"+GETSLCTLST(id,2))
//folderがTREE内に存在しないとJWWを強制終了するしかなくなるのでチェックは厳重に
IF GETSLCTLST(id,1)<>"\"+folder AND GETSLCTLST(id,2)<>"\"+folder THEN CLKITEM(id, folder, CLK_TREEVEW)
ExitEx(cm,file="") //フォルダのみの場合はここで終了

//右側リストをダブルクリック
DbgPRINT(LET(s,"ファイル:"+file, cm, cm=""),1)
SELECT xt
CASE ".jws",".jwk"
CLKITEM(id, "リスト表示", CLK_BTN, TRUE) //リスト表示にする サムネイルだと要スクロールの為
IF GETITEM(id,ITM_LIST,-1) AND GETSLCTLST(id,1)<>xt THEN CLKITEM(id, xt, CLK_LIST)
CLKITEM(id, file, CLK_LSTVEW or CLK_LEFTCLK or CLK_DBLCLK) //図形を選択
CASE ".bat"
CLKITEM(id, file, CLK_LSTVEW or CLK_LEFTCLK or CLK_DBLCLK) //外変を選択
CASE ".op4",".op1",".op2",".op3"
CLKITEM(ID,"ファイル選択", CLK_ACC or CLK_MUSMOVE,TRUE,VAL(file));BTN(LEFT);SLEEP(0.01);BTN(LEFT)
//CLK_LEFTCLK CLK_DBLCLK は反応せず。ラベル指定はカーソルがどこかに飛ぶのでNG
SELEND
SLEEP(0.1)
ACW(id0)

//新規JWWの場合図形配置 とりあえず、クライアント領域の中央に配置
IF mode=0 THEN BTN(LEFT,CLICK,STATUS(id0,ST_CLX)+STATUS(id0,ST_CLWIDTH)/2,STATUS(id0,ST_CLY)+STATUS(id0,ST_CLHEIGHT)/2)
SLEEP(2) //FUKISASI , PRINT 用
EXITEXIT
//メインルーチン終了


//WM_COMMAND を送ってダイアログを開く
FUNCTION OpenDlgJww(id,cmd,s)
PostMessageA(IDTOHND(id), WM_COMMAND, cmd, 0)
RESULT=WaitActiveDlg(s)
FEND

//ダイアログがアクティブになるまで待つ
FUNCTION WaitActiveDlg(s)
DbgPRINT(s)
id= GETID(s, "#32770", -1)
DbgPRINT(s+"発見")
//ACW(id)
REPEAT; SLEEP(wt);UNTIL STATUS(GETID(GET_ACTIVE_WIN),ST_TITLE)=s
DbgPRINT(s+"アクティブ完了")
RESULT=GETID(GET_ACTIVE_WIN)
FEND

//ウインドウがBUSYの間待つ
PROCEDURE BusyWait(id)
DbgPRINT("BusyWAit:"+STATUS(id,ST_TITLE))
WHILE STATUS(id,ST_BUSY); SLEEP(wt);WEND
DbgPRINT("BusyWAit完了")
FEND

//ウインドウがActiveになるまで待つ
PROCEDURE WinWaitActive(id)
BusyWait(id)
ACW(id)
REPEAT ;SLEEP(wt);UNTIL STATUS(id,ST_ACTIVE)
FEND


//強制終了
PROCEDURE ExitEx(s="",f=TRUE,w=1.5)
IF !f THEN EXIT
IFB s<>"" THEN
;DbgPRINT(s,1)
ENDIF
SLEEP(w)
EXITEXIT
FEND

//デバッグ用 コメントの代わりに使ってもよい
PROCEDURE DbgPRINT(s,dbg1=dbg,w=wt)
SELECT dbg1
CASE 1
;FUKIDASI(s,G_MOUSE_X+50,G_MOUSE_Y+50);SLEEP(w)
CASE 2
;PRINT s;SLEEP(w)
;SELEND
FEND

//変数代入用 3項演算子の代わりも可
FUNCTION LET(var a,b,c=EMPTY,flg=TRUE)
IF c=EMPTY THEN c=a
IF flg THEN a=b ELSE a=c
RESULT=a
FEND


以下、コメント

使用法ヒント

jwk,jws の場合:
関連付けして使う
(例) c:\tool\uwsc\uwsc.exe c:\jww\gaihen\OpenJwks2.uws "%1" %*
推奨関連付ソフト NirSoftさん作 FileTypesMan http://www.nirsoft.net/utils/file_types_manager.html

又は、このスクリプトと同じフォルダに以下の内容のbatファイルを作成し、それに関連付けをする
START "" "OpenJwks2.uws" "%1"


線記号変形・建具(4->1〜3に読替)の場合:
JW_OPT4ファイル内での番号を指定し、拡張子.op4 を付けて指定する
関連付しない場合は、個別にbatファイルを作成する
START "" "OpenJwks2.uws" "C:\jww\JW_OPT4.DAT\5.op4" "コーナー" //標準添付【線記号変形A】コーナー の場合
(スクリプトとbatファイルが同じフォルダにある場合)
関連付けする場合は、JW_OPT4.DAT@1.op4 の様に、.DATの後ろの\->@に置き換えた名前のダミーファイルをOPT4ファイルと同じフォルダに作成する
第2引数を指定すると、ファイル名の代わりにFUKIDASI表示される(これは、.op4に限らず有効)
リストをスクロールさせないので、最初のページに入らない物には非対応


フォルダのみ:
最期に\を付けると、フォルダのみ選択し、ダイアログが表示されたまま終了する
START "" "OpenJwks2.uws" "C:\jww\JW_OPT4.DAT\.op4\"

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/75.0.3770.100 Safari/537.36 Sleipni...@ntngno148233.ngno.nt.ngn.ppp.infoweb.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 R.N  - 19/8/31(土) 15:20 -
▼LAさん:

こんにちは、お久しぶりです。
いつも、参考・利用させて頂き、感謝致します。

初歩的かもですが、

LAさんの、"Res1"と"Res2"を連続して、ブラウザ画面を "クリップボード" にコピーしました。
("Res1"の、//============この次行から================== の次行から、"Res2"の、最後の FEND まで)

次に、私PCのLAさんフォルダーに「OpenJwks2」フォルダーを作成し、その中に「OpenJwks2.uws」として、クリップボードデータをペースト、新規保存しました。(「uwsc.exe」は、インストール済でしたので、uwscアイコンが表示されてます)

次に、「OpenJwks2.uws」を"Editor"で開き、"Res1"と"Res2"の間の、ブラウザコピーの不要部分、”//===次コメに続く=== から //============続き=================== までを削除し、上書き保存しました。

その上で、エクスプローラーから「OpenJwks2.uws」を単独起動すると、【は無効です】(スクリプト66行目当たり) とエラー表示されました。
これについては、図形データ等のパラメタがないので、そうかなと思います。

そこで、関連付けは置いといて、「OpenJwks2」フォルダーに「OpenJwks2.bat」ファイルを作成・保存、内容は、

c:\uwsc\uwsc.exe C:\jww\[外部変形]\039_LA\OpenJwks2\OpenJwks2.uws "%1"
(最後のパラメタを、 "%1" %* とすると、【ふたつ同時はだめです】(スクリプト22行目当たり)となるので、"%1" だけにしました)

この「OpenJwks2.bat」を実行しても、当然、前期同様のパラメタエラーになりますよね。

そこで、図形ファイル(.jws;.jwk)を、「OpenJwks2.bat」に "D&D" してみました。
ですが、タスクバーに「CMD」と「OpenJwks2」アイコンが表示されたままの状態で、それ以上進みません。(「OpenJwks2.bat」には、"pause" は入れていません)

タスクバーの「CMD」アイコンを最大化してみると、
[uwscのフルパス]\uwsc.exe "スペース" [OpenJwks2フォルダーのフルパス]\OpenJwks2.uws "スペース" "[図形フォルダーのフルパス]\図形ファイル名"
次行でカーソル点滅状態

となっていて、表示としては、問題ないように思いますが---

「OpenJwks2.uws」アイコンは、ただのアイコンのみです。

何処に問題があるか? よろしく、お願いします。

環境 ⇒ win10-HOME_64_19h1・uwsc5302.zip(Vector)

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0@pl18704.ag2323.nttpc.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 R.N  - 19/8/31(土) 17:39 -
【追記】

動作検証途中にフォルダー名に全角スペースがあることに気づき、スペースなしに変更しました。
半角スペースだけではなく、全角スペースでも問題ありのようで---?
(半角スペース同様、区切られてしまいました)

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0@pl18704.ag2323.nttpc.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 LA  - 19/8/31(土) 18:24 -
▼R.Nさん:
こんにちは
こちらこそ、いつもありがとうございます。


すいません。1ヶ所投稿時に修正し忘れていました。

72行目付近の、id0=EXEC("d:\jww\jw_win.exe")を、
id0=EXEC("c:\jww\jw_win.exe")
に修正して下さい。
JWWが起動していない場合、JWWを立ち上げるのですが、そのパスを修正し忘れていました。ここが違うと、JWWの起動が完了するまで待つので、無限ループにはまる可能性があります。
自環境で問題が無かったので見落としていました。すいませんです。


ひとつ気になるのが、【ふたつ同時はだめです】で、このスクリプトが二重起動した場合に表示されるはずのものです。
連続してスクリプトを起動した場合、複数のスクリプトから同時に操作を受けてJWWが異常動作を起こす可能性がありましたので、同名スクリプトが既に起動していた場合終了する様にしました。
おそらく、先の誤りで、動作中の同名スクリプトがあると思いますので、動作中の同名スクリプトを終了してみて下さい。

あと、どうしてもうまく動かない様でしたら、6行目付近、dbg=2 にしてみてください。
進行状態と要注意変数がテキスト表示されますので、問題解決に役立ちます。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/75.0.3770.100 Safari/537.36 Sleipni...@ntngno148233.ngno.nt.ngn.ppp.infoweb.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 R.N  - 19/8/31(土) 19:18 -
▼LAさん:

>すいません。1ヶ所投稿時に修正し忘れていました。

>72行目付近の、id0=EXEC("d:\jww\jw_win.exe")を、
>id0=EXEC("c:\jww\jw_win.exe")
>に修正して下さい。
>JWWが起動していない場合、JWWを立ち上げるのですが、そのパスを修正し忘れていました。ここが違うと、JWWの起動が完了するまで待つので、無限ループにはまる可能性があります。
>自環境で問題が無かったので見落としていました。すいませんです。

気づいてはいたのですが、、LAさんの環境でのこととは知らず、試さず読み飛ばしていました。(試してみるべきでした。反省)

>ひとつ気になるのが、【ふたつ同時はだめです】で、このスクリプトが二重起動した場合に表示されるはずのものです。
>連続してスクリプトを起動した場合、複数のスクリプトから同時に操作を受けてJWWが異常動作を起こす可能性がありましたので、同名スクリプトが既に起動していた場合終了する様にしました。
>おそらく、先の誤りで、動作中の同名スクリプトがあると思いますので、動作中の同名スクリプトを終了してみて下さい。

そうですね、「OpenJwks2.uws」がタスクに残っていると、そのエラーが出ますね。

>あと、どうしてもうまく動かない様でしたら、6行目付近、dbg=2 にしてみてください。
>進行状態と要注意変数がテキスト表示されますので、問題解決に役立ちます。

了解しました。試してみます。
試してみて、再度質問するかも知れませんが----
Res頂き、ありがとうございます。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0@pl18704.ag2323.nttpc.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 R.N  - 19/8/31(土) 20:24 -
▼LAさん:

感激で〜す!!

取り敢えず、
id0=EXEC("d:\jww\jw_win.exe")を
私環境の
id0=EXEC("c:\jww\jw_win.exe")
に変更したら、無事動作しました〜!!

関連付け起動についても,「OpenJwks2.bat」記述同様、「FileTypesMan」で記述したら問題なく、エクスプローラーからクリック起動できました。

感謝で〜す !!
今後とも、よろしくお願いします。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0@pl18704.ag2323.nttpc.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 R.N  - 19/9/5(木) 21:44 -
▼LAさん:

こんばんは、
先日は、ズバリの回答、ありがとうございました。

細かいことですが、

図形ファイル選択を、"リスト表示"からでなく、"サムネイル表示"から選択できないのか?

と思い、スクリプトを色々弄っては見たのですが、能力不足で---?

なぜ、そう思ったかは、単純に、スクリプト実行後、"図形"コマンド選択時、"サムネイル表示"にしたいということです。("リスト表示"を外せば、済むことですが)

"uwsc.exe"のステップ記録や、"fcuc.uws"スクリプト実行で、コマンド・パラメタ等、ヒントは得たのですが、解決能力がありません---w

最初、スクリプト実行の後に、"サムネイル表示"にすれば---とか思ったのですが、それでは、不自然で、何なの?、ですよね。

LAさんの考えの中に、簡単な方法で、アイデア・ヒント等あればのことですが、よろしくお願いします。
無理をお願いするつもりはありませんので、なければ、読み飛ばして下さい。

蛇足で、
UWSC本家サイトが、閉鎖されているのも---

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:69.0) Gecko/20100101 Firefox/69.0@pl18704.ag2323.nttpc.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 LA  - 19/9/5(木) 23:46 -
▼R.Nさん:
こんにちは


色々弄っていただき、ありがとうございます。

サムネイル表示での選択の仕方は、.op4とかの所を参考にしてみて下さい。

番号の指定の仕方については、
GETDIRを使ってファイル一覧を取得して順番を所得という方法を考えていたのですが、
・表示されている範囲の項目しか選択できず、スクロールする必要がある
・取得したファイル一覧をJWW側と全く同じ順番に並び替える必要がある
といった難点があったため、サムネイル表示での選択はしない事にしました。

が、それよりも、0.jwk(s) とか !.jws(k)というファイルにコピーして番号1を選択 の方が楽という事に今気付きました。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/76.0.3809.132 Safari/537.36 Sleipni...@ntngno148233.ngno.nt.ngn.ppp.infoweb.ne.jp>
・ツリー全体表示

Re:JWK JWSファイルの使い方
 R.N  - 19/9/6(金) 14:00 -
▼LAさん:

こんにちは、

早速の情報、ありがとうございます。
できるかどうかわかりませんが、Resを参考にやってみます。

>サムネイル表示での選択の仕方は、.op4とかの所を参考にしてみて下さい。
>
>番号の指定の仕方については、
>GETDIRを使ってファイル一覧を取得して順番を所得という方法を考えていたのですが、
>・表示されている範囲の項目しか選択できず、スクロールする必要がある
>・取得したファイル一覧をJWW側と全く同じ順番に並び替える必要がある
>といった難点があったため、サムネイル表示での選択はしない事にしました。
>
>が、それよりも、0.jwk(s) とか !.jws(k)というファイルにコピーして番号1を選択 の方が楽という事に今気付きました。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:69.0) Gecko/20100101 Firefox/69.0@pl18704.ag2323.nttpc.ne.jp>
・ツリー全体表示

31 / 338 ツリー    ←次へ | 前へ→
  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
 1007876
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b3
Jw_cad Copyright (C)1997-2016 Jiro Shimizu & Yoshifumi Tanaka