Jw_cad 情報交換室−その3New

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

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

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


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

建具個数拾い外部変形の難しさ 外注図面屋 18/5/26(土) 12:06

Re:こんな外部変形? R.N 18/8/4(土) 19:39
Re:こんな外部変形? kojima 18/8/4(土) 19:53
Re:こんな外部変形? R.N 18/8/4(土) 20:45
Re:こんな外部変形? kojima 18/8/6(月) 21:17

Re:こんな外部変形?
 R.N  - 18/8/4(土) 19:39 -
▼kojimaさん:

こんばんは、

この、chiさんの外変、「建具集計_2」は、
円の中の文字列2つを判断(大文字・小文字も区別)して、集計し書き出すようです。

また、部分出力して、その出力データを再度選択し、合算・集計することもできます。
(後で、データ再確認も、"楽"かもです)

引用なし

パスワード


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

Re:こんな外部変形?
 kojima  - 18/8/4(土) 19:53 -
▼R.Nさん:
>▼kojimaさん:
>
>こんばんは、
>
>この、chiさんの外変、「建具集計_2」は、
>円の中の文字列2つを判断(大文字・小文字も区別)して、集計し書き出すようです。

掲載した外部変形は、円内の全ての文字を / で接続し、一つの文字列として集計します。
1行でも2行でも3行でも可。


>また、部分出力して、その出力データを再度選択し、合算・集計することもできます。
>(後で、データ再確認も、"楽"かもです)

この部分は、意味がよく分かりません。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; MALNJS; rv:11.0) like Gecko@ai126174008137.26.access-internet.ne.jp>
・ツリー全体表示

Re:こんな外部変形?
 R.N  - 18/8/4(土) 20:45 -
▼kojimaさん:

書き方が悪くて、すみません。

>>この、chiさんの外変、「建具集計_2」は、
>>円の中の文字列2つを判断(大文字・小文字も区別)して、集計し書き出すようです。
>
>掲載した外部変形は、円内の全ての文字を / で接続し、一つの文字列として集計します。
>1行でも2行でも3行でも可。

使用してみて、問題があるわけではありません。

>>また、部分出力して、その出力データを再度選択し、合算・集計することもできます。
>>(後で、データ再確認も、"楽"かもです)
>
>この部分は、意味がよく分かりません。

kojimaさんのスクリプトも、1行でも2行でも3行でも可---ですが、chiさんのは、円内の文字列は、多分2文字列限定かと思いますが、個別に書き出したデータ同士を、更に選択し、集計することができる、ということです。

引用なし

パスワード


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

Re:こんな外部変形?
 kojima  - 18/8/6(月) 21:17 -
>また、部分出力して、その出力データを再度選択し、合算・集計することもできます。
>(後で、データ再確認も、"楽"かもです)

部分出力?
エリア単位の小集計のこと?
エリア1の少集計とエリア2の少集計を選択して、エリア1とエリア2の合計を書き出す
ということならば、以下の外変で可能。

1、最初に掲載した外変でエリアごとに集計結果を書き出す。(書式例 AW/1:5)
2、1の集計結果を以下の外変で集計結果を全て選択して合計を書き出す。
個人的には必要? と思いますが。


REM 円内毎の文字の集計の合計
@echo off
REM #jww
REM #cd
REM #bz
REM #h3
REM #1集計値記入点を指示してください
REM #k|1)計算式無(L)|2)計算式有(R)|/_/a
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %1> jwc_temp.txt
pause
goto end
#!ruby -Ks
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
siki=argument[2..-1].to_i
end
end
puts "bz"
en_a=[];hch=[];cn_a=[];n=0;ch_a=[]
while ARGF.gets
xy=$_.split
if xy[0]=~/^hp1/
hpx,hpy=xy[1].to_f,xy[2].to_f
end
if xy[0]=~/^hch/
xy.each{|item|hch<<item.to_f}
end
if xy[0]=~/^cn(\d+)$/
n += 1
cn=$1.to_i
if cn==0
moji_h=xy[2].to_f if n==1
else
moji_h=hch[cn] if n==1
end
end
if xy[0]=~/^ch/
moji=$'.chomp if $_=~/\"/
if moji=~/\:(\d+)$/
ch_a<<[$`,$1 .to_i]
end
end
end
ch_a.sort!{|a,b|a[0]<=>b[0]}
if ch_a.size==0
printf("h#該当する文字はありません")
exit
end
hash={}
ch_a.each{|a,b|
if hash.key?(a)
hash[a] += b
else
hash[a]=b
end
}
x=hpx;y=hpy
hash2={}
ch_a.each{|a,b|
if hash2.key?(a)
hash2[a] << "+#{b}"
else
hash2[a]= "#{a}:計#{hash[a]}=#{b}"
end
}
array=[]
if siki==1
hash.each{|a,b|array<<sprintf("%s:計%d\n",a,b)}
else
hash2.each{|a,b|array<<sprintf("%s\n",b)}
end
array.sort!
array.each{|item|
printf("ch %.11f %.11f 1 0 \"%s\n",x,y,item)
y -= moji_h+1
}
__END__
:end

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@ai126168021220.40.access-internet.ne.jp>
・ツリー全体表示

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

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