Indexへ
(4976)//【4973】→(4982)
------------------------
【タイトル】こんな外変ありますでしょうか
【記事番号】 4973 (*)
【 日時 】03/05/03 16:45
【 発言者 】ゆう

いろいろと外変を探しているのですが・・・・。

図面上の二つの寸法線を指示すると
ｍ単位の掛け算の式になってクリップボード
にコピーされる。

あるいは、二つの寸法線を指示すると
ｍ単位の二つの文字となって、その文字と文字の
間にｔａｂキーが挿入されてクリップボードに
コピーされる。

なんて、都合の良い事ばかり書きましたが・・・。
実は、図面を描いて、積算根拠用の寸法を図面に記入
そしてエクセルで計算式を作って積算をしているのですが
図面を打ち出して、エクセルの画面に手入力していますと
どうも、入力ミスがあります。
そこで、先に書きましたような外変があると
いいなー（しかもフリーで）・・・・なんて・・・・
みなさん、このような場合、どのようにされているのでしょうか。

いろいろと探したのですが、どうも見つからなくて・・・・
どこかにありましたら教えてくださるとうれしのですが。

　　　　　　　　　　　　　「ゆう」


Indexへ
(4973)←【4982】→(4987)
------------------------
【タイトル】RE: こんな外変ありますでしょうか
【記事番号】 4982 (4973)
【 日時 】03/05/04 07:42
【 発言者 】タール vzv00130@nifty.ne.jp
【 リンク 】http://homepage3.nifty.com/tarl/



ゆう　さん　おはようございます

似たものを持ってたのでちょっと作ってみました。
って言うか、DMonkey の 宣伝です。f(^^;

起動バッチファイル
---^ tabcopy.bat ( date:03-05-04　time:06:50 ) ------------< cut here
@rem　 文字tabコピー
@echo off

REM
REM　#jww
REM　#cd
REM　#1%dch 文字指示　
REM　#2%dch 文字指示　
REM　#99#ch
REM　#e

copy JWC_TEMP.TXT temp.txt
dm.exe tabcopy.dms >JWC_TEMP.TXT
del temp.txt
---$ tabcopy.bat ( lines:14 ) -----------------------------< cut here

外変ほんたい
---^ tabcopy.dms ( date:03-05-04　time:07:08 ) ------------< cut here
var rehhpch = new RegExp(/^hhp[0-9]+ch/);
var reMoji = new RegExp(/^(c[hvsroptkz2]) (\S+) (\S+) (\S+) (\S+) \"(.+)$/);
var jwc = new Strings;
var M=new String;
var strL=new String;
jwc.loadFromFile('temp.txt');
for (var i in jwc){
　　　　if (rehhpch.test(jwc[i])){
　　　　　　　　if (reMoji.exec (jwc[i+1])){
　　　　　　　　　　　　M=RegExp.$6.toHankaku();
　　　　　　　　　　　　strL += format("%.3f",Math.round (M)/1000 );
　　　　　　　　　　　　strL += "\t";
　　　　　　　　};
　　　　};
};
if (strL!=''){
　　　　var cp = new Clipboard;
　　　　cp.asText = strL;
　　　　println('he 文字' +　strL + '　をクリップボードにコピーしました');
}else{
　　　　println('he 文字がありません');
}
jwc.clear();
---$ tabcopy.dms ( lines:23 ) -----------------------------< cut here


DMonkey Script Host 0.3.4 2003-04-11 23:42
http://downloads.sourceforge.jp/dmonkey/3211/dmsh0_3_4.zip

これをダウンロードして、解凍フォルダ（dm.exeがあるフォルダ）
に上の
tabcopy.bat
tabcopy.dms
を置いてください。
可動すると思います。

で、外変は、文字指示型にしました。こっちの方がいいんじゃないかな
と思いまして、、　多少の修正ならするつもりなので、
気兼ね無く言ってくださいね。


DMonkeyは、
Delphi(Object Pascal)で作成されるアプリケーションの
マクロ言語としての組み込みを目的とした
ECMAScript(JavaScript)エンジン　だそうです。

私が知ってる物では、
irvine
BugBrowser
VxEditor
などがあります。

で今回つかったdm.exeはその機能の単独実行コンソール版です。
今、とっても気に入ってるのでちょこっと宣伝でした。


Indexへ
(4982)←【4987】→(4989)
------------------------
【タイトル】Re(1):RE: こんな外変ありますでしょうか
【記事番号】 4987 (4982)
【 日時 】03/05/04 22:14
【 発言者 】makoto

タールさん　今日は　横から申し訳ありません。
　こちらの外変　を　試して見たいのですが、なぜか
jwwで　batファイルと認識してくれず　外変呼び出しで表示されません　？。

何かおまじないがありますたら　よろしくお願いします。

以下をコピーし　tabcopy.bat　名で保存しました。
　
@rem　 文字tabコピー
@echo off

REM
REM　#jww
REM　#cd
REM　#1%dch 文字指示　
REM　#2%dch 文字指示　
REM　#99#ch
REM　#e

copy JWC_TEMP.TXT temp.txt
dm.exe tabcopy.dms >JWC_TEMP.TXT
del temp.txt


Indexへ
(4987)←【4989】→(4990)
------------------------
【タイトル】Re(2):RE: こんな外変ありますでしょうか
【記事番号】 4989 (4987)
【 日時 】03/05/04 22:38
【 発言者 】ゆう

▼makotoさん：
こんばんは
>タールさん　今日は　横から申し訳ありません。
>　こちらの外変　を　試して見たいのですが、なぜか
>jwwで　batファイルと認識してくれず　外変呼び出しで表示されません　？。
>
>何かおまじないがありますたら　よろしくお願いします。
>
> 以下をコピーし　tabcopy.bat　名で保存しました。
>　
>@rem　 文字tabコピー
>@echo off
>
>REM
>REM　#jww
>REM　#cd
>REM　#1%dch 文字指示　
>REM　#2%dch 文字指示　
>REM　#99#ch
>REM　#e
>
>copy JWC_TEMP.TXT temp.txt
>dm.exe tabcopy.dms >JWC_TEMP.TXT
>del temp.txt
「ゆう」と申します。私も最初認識してくれませんでしたが
>REM　#jww
>REM　#cd
>REM　#1%dch 文字指示　
>REM　#2%dch 文字指示　
>REM　#99#ch
>REM　#e
の各行のスペース部分を半角スペースに変えましたら
認識しました。
多分、これで良いと思いますが・・・・。
タールさん違っていたら、訂正願います。

　　　　　　　　　　　　　　「ゆう」


Indexへ
(4989)←【4990】→(4988)
------------------------
【タイトル】RE: Re(2):RE: こんな外変ありますでしょうか
【記事番号】 4990 (4989)
【 日時 】03/05/05 01:39
【 発言者 】タール vzv00130@nifty.ne.jp
【 リンク 】http://homepage3.nifty.com/tarl/



|各行のスペース部分を半角スペースに変えましたら
|認識しました。

ありがとうございます。
それが原因だと私も思います。


Indexへ
(4990)←【4988】→(4991)
------------------------
【タイトル】Re(1):RE: こんな外変ありますでしょうか
【記事番号】 4988 (4982)
【 日時 】03/05/04 22:30
【 発言者 】ゆう

▼タールさん：
こんばんは・・・
早速、ご返事ありがとうございます。
外変まで載せていただいて、ありがとうございます。
で、早速、ご指示のとおり、ダウンロードなどを
いたしまして、外変を起動したところ、次のように
なりました。
まず、寸法図形の寸法属性を解除しまして
文字を二つクリック、そして、「点指示終了」ボタンを
押しました。
すると、クリップボードのコピーされたのは0.000・0.0000
となりました。
不思議に思い、
寸法文字の３桁ごとの「，」を取り除くと
うまく、ｍ単位となってクリップボードにコピーされました。
また、クリップボードのコピーされた文字列の後ろには
必ず「ｔａｂ」が付いてしまいますね。この状態でエクセルに
貼り付けると、最後の「ｔａｂ」でセルの式などが消えてしまいます。
寸法の「，」の問題と最後の「ｔａｂ」の問題が解決できれば
とても良いなーと思いました・・・・・。

勝手な事ばかり書きました。お気を悪くしないでください。

なんと言っても、外変そのものを作れない私ですので・・・・。

それと、甘えついでで申し訳ないのですが、文字と文字の間の「tab」の
かわりに「※」・・・・掛け算の記号・・・が入る方法も出来ると
いいです。・・・と言うのは、エクセルのセルに「Textcalk」の文字関数
を使う事が多いので、JWWからそのような文字を二つクリックすることで
「○○※△△」と言う文字列がクリップボードにコピーできればうれしいです。

図々しい事ばかり書きました。
申し訳ありません。

　　　　　　　　　　　　　　　　　　　　　　「ゆう」


Indexへ
(4988)←【4991】→(5007)
------------------------
【タイトル】RE: Re(1):RE: こんな外変ありますでしょうか
【記事番号】 4991 (4988)
【 日時 】03/05/05 01:40
【 発言者 】タール vzv00130@nifty.ne.jp
【 リンク 】http://homepage3.nifty.com/tarl/



ゆうさんこんばんは。
おそくなりました。<(_ _)>


|寸法文字の３桁ごとの「，」を取り除くと
|うまく、ｍ単位となってクリップボードにコピーされました。
|また、クリップボードのコピーされた文字列の後ろには
|必ず「ｔａｂ」が付いてしまいますね。この状態でエクセルに
|貼り付けると、最後の「ｔａｂ」でセルの式などが消えてしまいます。
|寸法の「，」の問題と最後の「ｔａｂ」の問題が解決できれば
|とても良いなーと思いました・・・・・。

とりあえず手抜き仕様でＵＰしてました。<(_ _)> (^^;)


|それと、甘えついでで申し訳ないのですが、文字と文字の間の「tab」の
|かわりに「※」・・・・掛け算の記号・・・が入る方法も出来ると

tabcopy.dmsの１行目

static kakeru="*";//区切り子となる記号

の * をお好きな文字に変更してみてください。
全角、半角、複数文字列、にも対応させたつもりです。

|いいです。・・・と言うのは、エクセルのセルに「Textcalk」の文字関数
|を使う事が多いので、JWWからそのような文字を二つクリックすることで
|「○○※△△」と言う文字列がクリップボードにコピーできればうれしいです。

Textcalc 1.31　私もお世話になってます。
リアルな意見ありがとうございました。

---^ tabcopy.dms ( date:03-05-05　time:01:39 ) -------------< cut here
static kakeru="*";//区切り子となる記号
var rehhpch = new RegExp(/^hhp[0-9]+ch/);
var reMoji = new RegExp(/^(c[hvsroptkz2]) (\S+) (\S+) (\S+) (\S+) \"(.+)$/);
var reOnlysuuji =new RegExp(/[^0-9-.]+/g);
var jwc = new Strings;
var M=new String;
var strL=new String;
jwc.loadFromFile('temp.txt');
for (var i in jwc){
　　　　if (rehhpch.test(jwc[i])){
　　　　　　　　if (reMoji.exec (jwc[i+1])){
　　　　　　　　　　　　M=RegExp.$6.toHankaku();
　　　　　　　　　　　　M=M.replace(reOnlysuuji,'');
　　　　　　　　　　　　strL += format("%.3f",Math.round(M)/1000 );
　　　　　　　　　　　　strL += kakeru;
　　　　　　　　}
　　　　}
}
if (strL!=''){
　　　　var cp = new Clipboard;
　　　　strL = strL.substr(0,strL.length-kakeru.length);
　　　　cp.asText = strL;
　　　　println('he 文字' +　strL + '　をクリップボードにコピーしました');
}else{
　　　　println('he 文字がありません');
}
jwc.clear();
---$ tabcopy.dms ( lines:27 ) ------------------------------< cut here


Indexへ
(4991)←【5007】→(5157)
------------------------
【タイトル】Re(1):RE: Re(1):RE: こんな外変ありますでしょうか
【記事番号】 5007 (4991)
【 日時 】03/05/05 17:40
【 発言者 】ゆう

▼タールさん：
こんばんは。
この外変とてもGOODですね。
今回、バッチリ動きましたよ。
これで、JWWとエクセルとで数字の転記ミスを
無くす事が出来そうです。
感謝しています。

この外変・・・・いろいろと発展させると
とても便利な外変になりそうですね。

例えば、三角形の式や台形の式など・・・・
これは要求でもなんでもありません。
気にされないでくださいね。
本来は自分で勉強して外変を作る事ができれば
良いのですが・・・。

感謝しております。
ありがとうございました。

　　　　　　　　　　　　　「ゆう」


Indexへ
(5007)←【5157】//(4981)
------------------------
【タイトル】Re(1):RE: Re(1):RE: こんな外変ありますでしょうか
【記事番号】 5157 (4991)
【 日時 】03/05/08 22:09
【 発言者 】ゆう

▼タールさん：
こんばんは
先日は、外変でとても感謝しております。
かなり前のツリーにつなげてしまいました。
すみません。m(__)m
その後、あの外変を見ながら、内容も良く分からずに
試行錯誤しながら、いろいろな式にチャレンジしてみました。
掛け算用、足し算用、ｔａｂキー用などなど・・・・そして
少しづつ欲が出て、三角形面積式用・・・これはタールさんの
外変の部分を少し試行錯誤しながら、式を触ってみました。

先日の外変の式のうち
strL = strL.substr(0,strL.length-kakeru.length);
を
strL = strL.substr(0,strL.length-kakeru.length)+'/2';
としましたら、三角形の式になりました。
なんだかとてもうれしくなり、これらの式が一つのbatファイルで
外変が動くように、他の外変のbatファイルを見ながら作ってみました。
うまくゆきました。

ひとりで喜んでいます。(^O^)

円の面積の式もできるなーなどと夢をもちながら
まずは、台形の式を作りたくなり、タールさんの外変を眺めていたのですが
なにを、どうしたら良いか、さっぱり分からず、結局、この掲示板に書いて
しまいました。
あの外変では、無理なのでしょうか？？？？

ご迷惑をお掛けします。

　　　　　　　　　　　　　　　「ゆう」