Jw_cad 相談室−その2 New

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

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

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


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

曲線上に等間隔の点 初心者ちゃん 21/7/23(金) 15:14

続々 kojima 21/8/4(水) 0:36

続々
 kojima  - 21/8/4(水) 0:36 -
#rensenの並べ替え
def rev_array(rensen)
rensen2=[]
rensen.each{|item|
item[0],item[1],item[2],item[3]=item[2],item[3],item[0],item[1]
rensen2<<item
}
return rensen2.reverse
end
#コマンドライン引数
pitch=200.0;nn=10
sitei=ARGV[1].to_i
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
pitch=argument[2..-1].to_f
when /\/b/
kiten=argument[2..-1].to_i
when /\/c/
houkou=argument[2..-1].to_i
when /\/d/
nn=argument[2..-1].to_i
end
end
#メインルーチン
sen_a=[];hp_a=[]
while ARGF.gets
xy=$_.split
if xy[0]=~/^hp/
hp_a<<[xy[1].to_f,xy[2].to_f]
end
if xy[0]=~/^\d|^-/
xy.collect!{|item|item.to_f}
sen_a<<xy
end
if xy[0]=~/^ci/
xy.collect!{|item|item.to_f}
if xy.size==4
xy<<0<<360<<1<<0
end
if(xy[4]>xy[5])
xy[4] -= 360
elsif xy[4]==xy[5]
xy[4]=0
xy[5]=360
end
zahyo=xy[1..-1]
ten=daenko_siten(zahyo);
x1=ten[0];y1=ten[1];
ten=daenko_syuten(zahyo);
x2=ten[0];y2=ten[1];
if(xy[7] != 0 && xy[6]==1)
xy[4] += xy[7]
xy[5] += xy[7]
xy[7]=0
end
sen_a<<[x1,y1,x2,y2,xy[1],xy[2],xy[3],xy[4],xy[5],xy[6],xy[7]]
end
end
0.upto(hp_a.size-1){|i|
ten=hp_a[i]
j,rensen=loop_renzoku_seach(sen_a,ten)
if rensen.size>0
if j==1
array=rensen_point_array(rensen)
s=zahyo_s(array)
if houkou ==1
if s<0
rensen=rev_array(rensen)
end
else
if s>0
rensen=rev_array(rensen)
end
end
end

t_l=rensen_total_l(rensen)
n=(t_l/pitch).to_i
if sitei==1
if kiten==2
l2=pitch-((t_l-n*pitch)+pitch)/2
yo_tyo=l2

elsif kiten==3
pitch=t_l/(n+1)
yo_tyo=0
printf("h#(#{n+1}分割) %.3fmm\n",pitch)
else
yo_tyo=0
end
printf("h#(#{n+1}分割)\n") unless kiten==3
else
pitch=t_l/nn
yo_tyo=0
printf("h#%.3fmm\n",pitch)
end
rensen_ten_draw(rensen,pitch,yo_tyo)
end
}
__END__
:end

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/92.0.4515.107 Safari/537.36 Edg/92.0.902.62@ai126170232220.41.access-internet.ne.jp>
・ツリー全体表示

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

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