Jw_cad 相談室−その2 New

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

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

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


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

Re:円図形に番号をふる外部変形を作ろうとしています
 kojima  - 21/11/9(火) 15:45 -
前回のものは、高さ順ですが
高さ判定に幅を持たせたい時は、以下のようになります。

@REM 円内に通し番号を描く(高低差の許容値有)
@echo off
REM #jww
REM #cd
REM #bz
REM #h1
REM #c高低差の許容値(図寸) 無指定:5/_/a
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %1 > jwc_temp.txt
pause
goto end
#!ruby -Ks
puts "bz","cc4"
cl=5.0#高低差の許容値
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
cl=argument[2..-1].to_f
end
end
en_zahyo_a=[]#円のXY座標の配列
while ARGF.gets
xy=$_.split
if xy[0]=~/^ci/
en_zahyo_a<<[xy[1].to_f,xy[2].to_f]#円のXY座標を配列に格納
end
end
#円のXY座標の並べ替え
en_zahyo_a.sort!{|a,b|
if (a[1]-b[1]).abs<cl
a[0]<=>b[0]
else
b[1]<=>a[1]
end
}
i=1
en_zahyo_a.each{|x,y|
printf("ch %.11f %.11f 1 0 \"%d\n",x,y,i)
i += 1
}
__END__
:end


引用なし

パスワード


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

円図形に番号をふる外部変形を作ろうとしています 高槻 21/11/9(火) 12:15
Re:円図形に番号をふる外部変形を作ろうとしています kojima 21/11/9(火) 15:03
Re:円図形に番号をふる外部変形を作ろうとしています kojima 21/11/9(火) 15:45
Re:円図形に番号をふる外部変形を作ろうとしています 高槻 21/11/9(火) 16:22

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

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