Jw_cad 情報交換室−その3New

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

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

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


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

こんな外部変形?
 kojima  - 18/8/4(土) 18:05 -
▼マッチンのパパさん:
>2005年頃にchi建築設計室さんが造られた建具集計という外変があっていまだに便利に使わさせてもらっています。
>
>丸の中の横線の上に番号の数字下にAWとかSDとかの記号を入れたものを
>キープランと言いますか?簡略平面図に所在箇所に書き込みその数を図上に文
>
>字で落とせるもので、プリントしてから検証してみてもバッチリです。
>念のために今日、外変でやってみましたが、見事に成功でしたが、chiさん
>
>のサイトが閉鎖されていてダウンロードできません。著作権のことは解りませんが皆さんが利用できるといいのですが!!
>
>うまがらせかな?

こんな外部変形かな?

@REM 円内毎の文字の集計
@echo off
REM #jww
REM #cd
REM #bz
REM #h1
REM #1集計値記入点を指示してください
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt > jwc_temp.txt
pause
goto end
#!ruby -Ks
include Math
puts "bz"
en_a=[];hch=[];cn_a=[];n=0
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]=~/^ci/
xy.collect!{|item|item.to_f}
en_a<<[xy[1],xy[2],xy[3]] if xy.size==4 or xy[4]==xy[5]
end
end
ch_a=[]
open("temp.txt","r"){|f|
while f.gets
xy=$_.split
if xy[0]=~/^ch/
moji=$'.chomp if $_ =~/\"/
ch_a<<[xy[1].to_f,xy[2].to_f,moji]
end
end
}
moji_a=[]
en_a.each{|item|
x,y,r=item
ch_a2=ch_a.select{|item2|
x2,y2,moji=item2
x-r<x2 && x+r>x2 && y-r<y2 && y+r>y2
}
if ch_a2 && ch_a2.size>0
ch_a2.sort!{|a,b|b[1]<=>a[1]}
ar=[]
ch_a2.each{|item2|ar<<item2[2]}
moji_a<<ar.join("/")
end
ch_a -= ch_a2
}
moji_a.sort!
moji_a2=moji_a.uniq
array=[]
moji_a2.each{|item|
n=0
moji_a.each{|item2|
n +=1 if item==item2
}
array<<[item,n]
}
x=hpx;y=hpy
array.each{|a,b|
printf("ch %.11f %.11f 1 0 \"%s:%d\n",x,y,a,b)
y -= moji_h+1
}
if array.size==0
printf("h#円内の文字はありません\n")
end
__END__
:end


引用なし

パスワード


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

建具個数拾い外部変形の難しさ 外注図面屋 18/5/26(土) 12:06
Re:建具個数拾い外部変形の難しさ Fu〜 18/5/26(土) 14:17
Re:建具個数拾い外部変形の難しさ 外注図面屋 18/5/26(土) 17:33
Re:建具個数拾い外部変形の難しさ 牛渡 18/7/10(火) 11:27
図形の検索・置換 kojima 18/7/21(土) 11:22
Re:建具個数拾い外部変形の難しさ マッチンのパパ 18/8/3(金) 15:43
こんな外部変形? kojima 18/8/4(土) 18:05
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
表記に変更 kojima 18/8/4(土) 22:13

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

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