Indexへ
(14987)//【14986】→(14988)
------------------------
【タイトル】円の中に
【記事番号】 14986 (*)
【 日時 】06/08/31 11:42
【 発言者 】こーすけ

ある円にて　その円周の内側に１２個の円を書く場合どうすれば画けるでしょうか。アドバイスお願いします


Indexへ
(14986)←【14988】→(14991)
------------------------
【タイトル】Re(1):円の中に
【記事番号】 14988 (14986)
【 日時 】06/08/31 11:58
【 発言者 】スター

▼こーすけさん：
>ある円にて　その円周の内側に１２個の円を書く場合どうすれば画けるでしょうか。アドバイスお願いします

その円の中心から３０°幅の２線を引く（例えば水平と３０°）
接円でこの２線と円を指示し円を描く。
この円を中心点を基点として３０°で回転複写する。


Indexへ
(14988)←【14991】→(14992)
------------------------
【タイトル】Re(1):円の中に
【記事番号】 14991 (14986)
【 日時 】06/08/31 13:26
【 発言者 】コジマ

▼こーすけさん：
>ある円にて　その円周の内側に１２個の円を書く場合どうすれば画けるでしょうか。アドバイスお願いします

外部変形を使用した経験があれば、
以下の外部変形で、円周の内側を隙間無く１２の円で埋めることが可能です。
（半径は自動的に計算される）

尚、この外部変形の実行には、mswin32 版 Ruby　のインストールが必要です。
以下で入手できます。
http://www61.tok2.com/home2/gravelroad/tips/inst_msw.html

◎バッチファイル（円_円配置.bat）
以下の文をコピペ後、全角スペースを半角スペースに一括置換してください。

@REM 円周上に小円を配置していく
@echo off
REM　#jww
REM　#cd
REM　#h1
REM　#hc円を選択してください。
REM　#c小円の個数を指定してください　無指定:100/_/a
REM　#k|1)外周配置(L)|2)内周配置(R)|/_/b
REM　#hp
REM　#e
copy jwc_temp.txt temp.txt　> nul
ruby -Ks　円_円配置.rb temp.txt %1 %2 > jwc_temp.txt


◎スクリプトファイル（円_円配置.rb）
以下の文をコピペ後、全角スペースを半角スペースに一括置換してください。

include Math

$n=100
while ARGV.size>1
　　　　case argument=ARGV.pop
　　　　　　　　when /\/a/
　　　　　　　　　　　　$n=argument[2..-1].to_i
　　　　　　　　when /\/b/
　　　　　　　　　　　　iti=argument[2..-1]
　　　　end
end

iti=="1" ? keisu=1 : keisu=-1

en=[]
while ARGF.gets
　　　　xy=split
　　　　if xy[0]=~/^ci/
　　　　　　　　if xy.size==4
　　　　　　　　　　　　en<<[xy[1].to_f,
　　　　　　　　　　　　　　　　xy[2].to_f,
　　　　　　　　　　　　　　　　xy[3].to_f]
　　　　　　　　end
　　　　end
end
en.each{|item|
　　　　hen_arg=(2*PI)/$n
　　　　arg=0
　　　　$r=(item[2])*sin(hen_arg/2)/(1-keisu*sin(hen_arg/2))
　　　　arg=hen_arg/2
　　　　$n.times{
　　　　　　　　en2=[item[0]+(item[2]+keisu*$r)*cos(arg),
　　　　　　　　　　　　item[1]+(item[2]+keisu*$r)*sin(arg),$r]
　　　　　　　　puts ["ci",en2].flatten.join("\s")
　　　　　　　　arg +=hen_arg
　　　　}
}


Indexへ
(14991)←【14992】→(14995)
------------------------
【タイトル】Re(2):円の中に
【記事番号】 14992 (14991)
【 日時 】06/08/31 14:01
【 発言者 】スター

▼コジマさん：こーすけさん：
>尚、この外部変形の実行には、mswin32 版 Ruby　のインストールが必要です。
>以下で入手できます。
>http://www61.tok2.com/home2/gravelroad/tips/inst_msw.html
>

下記でインストール機能が付加された物がＤＬできます。
http://gravelroad.yh.land.to/category/2/subcatid/6


Indexへ
(14992)←【14995】→(15006)
------------------------
【タイトル】Re(1):円の中に
【記事番号】 14995 (14986)
【 日時 】06/08/31 18:43
【 発言者 】tetujin 123@123.12

▼こーすけさん：
>ある円にて　その円周の内側に１２個の円を書く場合どうすれば画けるでしょうか。アドバイスお願いします

はじめまして
私の試した書き方
1.任意の円の中心より私は垂直線を出す
2.12分割だからその半分の垂直線に対し15度の線を引く
3.1の垂直線と任意の円の交点より水平線を引く
4.接円で半径指示なしの状態で、2と3で引いた線を指定し垂直線と任意の円の交点
　を右クリック
5.出来た円を30度で複写

以上で出来ました。


Indexへ
(14995)←【15006】→(15085)
------------------------
【タイトル】Re(2):円の中に
【記事番号】 15006 (14995)
【 日時 】06/08/31 23:16
【 発言者 】somem
【 リンク 】http://homepage2.nifty.com/cad_dwg/



▼tetujinさん　こーすけさん：

>1.任意の円の中心より私は垂直線を出す
>2.12分割だからその半分の垂直線に対し15度の線を引く
>3.1の垂直線と任意の円の交点より水平線を引く
>4.接円で半径指示なしの状態で、2と3で引いた線を指定し垂直線と任意の円の交点
>　を右クリック
>5.出来た円を30度で複写

接円コマンドは、円も選択できるので、
2番で直線から30°の線を作図すれば、3番が省略できます。
垂直線/垂直線から30°/外接円をクリックすると内接円の作図が可能です。
お試しください。


Indexへ
(15006)←【15085】//(15000)
------------------------
【タイトル】:円の中に(みなさんありがとうございました）
【記事番号】 15085 (14995)
【 日時 】06/09/04 11:53
【 発言者 】こーすけ

ありがとうございました
なんとなくわかたった感じです
１５°線引いて交点で接円がわかりやすいようです
外部変換もやれば簡単のようですが　準備がめんどくさい（やってしまえばそえまでなのですが）