2018.03.01
作りたい形を指定するだけでプラレールのレールの3Dプリントデータを作成するOpenSCADスクリプト
子育てとはこんなにも苦労が多いのか、息子（4歳）の教育が悪かったのか、無いものは作ればよいじゃんと言うようになってしまってパパ大変ですw。
使えない無茶なレールもこの通りw。こういうレールも息子のオモチャ箱に放り込むことで教育になるかもw
まずは手持ちのレールを物差しで測ってサイズを調べます。手書きで失礼、最近雑記帳がソニーのデジタルペーパーDPT-RP1なんです。
レールの軌跡はt[0～1]で定義するとします。レール中央の部分(body)と飛び出た凸構造部分(out)、凹部分(in)部分の3つに分けます。
t=t1における座標を(x1, y1)とする。この時の進行方向のベクトル、その時の垂直方向のベクトルを一般化。この式を用いて(x1, y1)から垂直方向にD離れた場所の座標(XA,YA)を一般式化、シンプルな式として表せるね。
同様に進行方向にD離れた座標（XB,YB)も簡単な式で表せる。
上記式でスクリプトを組んでいきます。
下記が全スクリプトです。OpenSCADにコピペしたら動きます。$fn=10ってのは3Dモデルをレンダリングする時の解像度を表しています。気にしなくて良し。
-----------------------------------------------------
$fn=10;
function t2xy(temp)=[(30+100*temp)*sin(temp*720),(30+100*temp)*cos(temp*720)];
// sub-routin
function XY(angle,distance)=[Sign(angle[0])*sqrt(pow(distance,2)/(1+pow(angle[1]/angle[0],2))),
Sign(angle[1])*abs(angle[1]/angle[0])*sqrt(pow(distance,2)/(1+pow(angle[1]/angle[0],2)))];
function Sign(temp)=temp/abs(temp);
pitch=0.02;
// body
for (t=[0:pitch:1]){
Dir1=t2xy(t+pitch)-t2xy(t);
Ver1=[-Dir1[1],Dir1[0]];
Dir2=t2xy(t+pitch*2)-t2xy(t+pitch);
Ver2=[-Dir2[1],Dir2[0]];
linear_extrude(height = 1.5,center=true){
polygon(points=[t2xy(t)+XY(Ver1,19),t2xy(t)-XY(Ver1,19),t2xy(t+pitch)-XY(Ver2,19),t2xy(t+pitch)+XY(Ver2,19)]);
}
linear_extrude(height = 8,center=true){
polygon(points=[t2xy(t)+XY(Ver1,19),t2xy(t)+XY(Ver1,17.5),t2xy(t+pitch)+XY(Ver2,17.5),t2xy(t+pitch)+XY(Ver2,19)]);
}
linear_extrude(height = 8,center=true){
polygon(points=[t2xy(t)-XY(Ver1,19),t2xy(t)-XY(Ver1,17.5),t2xy(t+pitch)-XY(Ver2,17.5),t2xy(t+pitch)-XY(Ver2,19)]);
}
linear_extrude(height = 8,center=true){
polygon(points=[t2xy(t)+XY(Ver1,9.5),t2xy(t)+XY(Ver1,8),t2xy(t+pitch)+XY(Ver2,8),t2xy(t+pitch)+XY(Ver2,9.5)]);
}
linear_extrude(height = 8,center=true){
polygon(points=[t2xy(t)-XY(Ver1,9.5),t2xy(t)-XY(Ver1,8),t2xy(t+pitch)-XY(Ver2,8),t2xy(t+pitch)-XY(Ver2,9.5)]);
}
}
//start out
for(t=[0]){
Dir=t2xy(t+pitch)-t2xy(t);
Ver=[-Dir[1],Dir[0]];
//hiraban
translate([t2xy(t)[0],t2xy(t)[1],0]){
linear_extrude(height = 1.5,center=true){
polygon(points=[-XY(Ver,3),-XY(Dir,7.5)-XY(Ver,5),-XY(Dir,7.5)+XY(Ver,5),XY(Ver,3)]);
}}
translate([t2xy(t)[0],t2xy(t)[1],0]){
linear_extrude(height = 8,center=true){
polygon(points=[XY(Ver,3),XY(Dir,1.5)+XY(Ver,3),XY(Dir,1.5)+XY(Ver,8),XY(Ver,8),XY(Ver,4.5),
-XY(Dir,9)+XY(Ver,6.5),-XY(Dir,9)-XY(Ver,6.5),-XY(Ver,4.5),-XY(Ver,8),XY(Dir,1.5)-XY(Ver,8),
XY(Dir,1.5)-XY(Ver,3),-XY(Ver,3),-XY(Dir,7.5)-XY(Ver,5),-XY(Dir,7.5)+XY(Ver,5)]);
}}
}
//start in
t=1;
Dir=t2xy(t+pitch)-t2xy(t);
Ver=[-Dir[1],Dir[0]];
translate([t2xy(t)[0],t2xy(t)[1],0]){
linear_extrude(height = 8,center=true){
polygon(points=[-XY(Ver,8),XY(Dir,9)-XY(Ver,4.5),XY(Dir,9)-XY(Ver,9.5),-XY(Dir,1.5)-XY(Ver,9.5),
-XY(Dir,1.5)+XY(Ver,9.5),XY(Dir,9)+XY(Ver,9.5),XY(Dir,9)+XY(Ver,4.5),XY(Ver,8)]);
}
linear_extrude(height = 1.5,center=true){
polygon(points=[XY(Ver,11),XY(Dir,9)+XY(Ver,11),XY(Dir,9)+XY(Ver,17.5),XY(Ver,17.5)]);
}
linear_extrude(height = 1.5,center=true){
polygon(points=[-XY(Ver,11),XY(Dir,9)-XY(Ver,11),XY(Dir,9)-XY(Ver,17.5),-XY(Ver,17.5)]);
}
linear_extrude(height = 8,center=true){
polygon(points=[XY(Dir,9)+XY(Ver,17.5),XY(Dir,9)+XY(Ver,19),XY(Ver,19),XY(Ver,17.5)]);
}
linear_extrude(height = 8,center=true){
polygon(points=[XY(Dir,9)-XY(Ver,17.5),XY(Dir,9)-XY(Ver,19),-XY(Ver,19),-XY(Ver,17.5)]);
}}
-----------------------------------------------------
スクリプトが出来てしまったので、今後は2行目の
function t2xy(temp)=[(30+100*temp)*sin(temp*720),(30+100*temp)*cos(temp*720)];
を変更すれば色々な形のレールを出力します。関数t2xyが、今回のぐるぐるまわるレールの軌跡を示す関数です。tが0～1まで動く時に720度回転して、それぞれのx,yの値を返します。
関数XYは距離と傾きのベクトルを与えるとその座標を返します。関数Signは数値がプラスかマイナスかを返します。pitchはbody部分をどれぐらいに分割して出力するかを示します。
まずはbody部分。
out部分。
in部分。
よ～し、ふざけたレールを量産するぞー。
Category:#DIYプラレール
Follow @fetuin
■ ■ ■ コメント ■ ■ ■
いいっすね！=107
001 [03.01 15:09]とくめいー@Biglobe:螺旋にするのって難しいの？ ↑(21)
002 [03.01 21:08]。@InfoWeb:車両が曲がれるサイズの割り出しも難しそう…。 ↑(23)
003 [03.02 02:14]鯵@Biglobe:早く3Dスキャナー買おうぜ。プリンターだけじゃ楽しみ半分だぞ ↑(11)
004 [03.02 12:21]exe:私は3DCADを使って仕事をしているので、プログラムでモデリングする人を見ると素直に凄いと思う。 ↑(9)
005 [03.03 05:32]鈴木:私はこちらに変なレールをいろいろ置いてあります。よろしければこちらもどうぞ。https://www.thingiverse.com/tag:plarail/ ↑(8)
本カテゴリーで直近コメントが書かれた記事
04/29 10:41:DIYカスタムプラレール売りに出しました！577323分前
03/23 01:08:お花見仕様のピンク水玉カスタム幾何学プラレール。by多色3Dプリンター。ちゃんと走るよ動画438日前
03/04 20:54:ピンクの水玉プラレールを大量製造中456日前
02/17 12:54:Bambulab A1 miniの多色出力でピンクの水玉のプラレール！472日前
→カテゴリー：#DIYプラレール(記事数:26)
本カテゴリーの最近の記事(コメント数)
2024.04.28DIYカスタムプラレール売りに出しました！11コメ
2024.03.22お花見仕様のピンク水玉カスタム幾何学プラレール。by多色3Dプリンター。ちゃんと走るよ動画38コメ
2024.03.02ピンクの水玉プラレールを大量製造中5コメ
2024.02.16Bambulab A1 miniの多色出力でピンクの水玉のプラレール！26コメ
2022.02.18俺のゴーストがこれを3Dプリンターとプラレールで再現しろと言っている8コメ
2021.04.05DIY幾何学プラレール第3弾【出力データあり】。これも美しいなぁ♪2コメ
2021.01.11DIY幾何学プラレール第2弾(メルカリに出品中)91コメ
2020.12.24幾何学DIYプラレール2020年12月最新版【3Dプリンタ用データ(stl)有り】21コメ
2020.03.05DIY幾何学プラレール3Dプリント用データ(.stl)公開(ver.2020.02.29)。完璧じゃないけど56コメ
2019.12.19DIY幾何学プラレールの外周部脱線多発ゾーンの要因分析71コメ
| 髫ｴ蟠｢ﾂ鬮ｴ蜿ｰ�ｻ�｣�ｽ�ｽ髯晢ｽｶ�ｽ�ｸ鬯ｨ�ｾ�ｽ�｣驍ｵ�ｺ髴郁ｲｻ�ｽ�ｽ 髣費ｿｽ�ｽ�ｬ驛｢譎�ｺ｢�趣ｽｦ3B(髫ｲ�｢闕ｳ讓奇ｿｽ驍ｵ�ｺ�ｽ�ｧ驛｢�ｧ郢ｧ�ｽ笙驛｢譎｢�ｿ�ｽ邵ｺ�ｽ)髫ｨ蛛�ｽｿ�ｽ40驍ｵ�ｲ�つDcd髫ｨ蛛�ｽｿ�ｽ85驍ｵ�ｲ�つ驍ｵ�ｺ陷ｷ�ｶ遯ｶ�ｳ驛｢�ｧ�ｽ�ｽ遯ｶ�ｳ髫ｨ蛛�ｽｿ�ｽ78驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｵ驍ｵ�ｺ�ｽ�ｽ�ｽ讓抵ｽｸ�ｺ�ｽ�｡驛｢�ｧ�ｽ�ｽ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ2驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｪ驍ｵ�ｺ�ｽ�ｪ驍ｵ�ｺ陷会ｽｱ�ｽ�ｽ�ｸ�ｺ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ73驍ｵ�ｲ�つ髫ｨ蛛�ｽｿ�ｽ髫ｨ蛛�ｽｿ�ｽ45驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｽ�ｽ�ｽ(髮句･�ｽｿ�ｽ陝ｷ�ｻ鬮｣謳ｾ�ｽ�ｦ鬮｣魃会ｽｽ�ｶ髣包ｽｵ�ｽ�ｽ�ｽ�ｽ驍ｵ�ｺ�ｽ�ｶ驛｢�ｧ�ｽ�ｽ)髫ｨ蛛�ｽｿ�ｽ70驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｨ驍ｵ�ｺ闕ｳ螂�ｽｽ竏ｫ�ｸ�ｺ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ82驍ｵ�ｲ�つJP髫ｨ蛛�ｽｿ�ｽ26驍ｵ�ｲ�つ鬨ｾ蜈ｷ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ53驍ｵ�ｲ�つ驛｢譎冗樟邵ｺ驢搾ｽｹ譎｢�ｽ�｡驛｢譎｢�ｽ�ｼ髫ｨ蛛�ｽｿ�ｽ17驍ｵ�ｲ�つ髯ｷ�ｷ隶朱宦閹夐辨�ｻ驕擾ｽｩ隴幢ｽｪ鬮ｫ蛛�ｽｽ�ｿ髣費ｿｽ�ｽ�ｺ TW髫ｨ蛛�ｽｿ�ｽ25驍ｵ�ｲ�つ驛｢譎�ｺ｢邵ｺ�ｽ髫ｨ蛛�ｽｿ�ｽ346驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｵ驍ｵ�ｺ�ｽ�ｽ隨�ｿｽ驛｢�ｧ�ｽ�ｽ�ｽ讓抵ｽｹ�ｧ�ｽ�ｽ(驛｢�ｧ�ｽ�ｵ驛｢�ｧ�ｽ�､驛｢譏懶ｽｺ蛹�ｽｽ�ｸ�ｽ�ｻ髯橸ｽｳ�ｽ�ｰ鬮｢�ｽ�ｽ�ｽ) TW髫ｨ蛛�ｽｿ�ｽ96驍ｵ�ｲ�つknob髫ｨ蛛�ｽｿ�ｽ2驍ｵ�ｲ�つ鬮ｫ�ｰ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ80驍ｵ�ｲ�つumomo髫ｨ蛛�ｽｿ�ｽ2驍ｵ�ｲ�つ10髯晢ｽｷ�ｽ�ｴ鬯ｩ蛹�ｽｽ�ｸ髫ｰ�ｽ�ｿ�ｽ髫ｨ蛛�ｽｿ�ｽ48驍ｵ�ｲ�つ�ｽ謫ｾ�ｿ�ｽ髫ｨ蛛�ｽｿ�ｽ105驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｵ驍ｵ�ｺ�ｽ�ｽ隨�ｿｽ驛｢�ｧ�ｽ�ｽ�ｽ讓抵ｽｹ�ｧ髦ｮ蜻ｻ�ｼ�ｽ�ｹ�ｧ髦ｮ蜻ｻ�ｿ�ｽ驍ｵ�ｺ遶丞､ｲ�ｽ�ｽ(驛｢�ｧ�ｽ�ｽ�ｽ迢暦ｽｹ�ｧ驗呻ｽｫ�ｽ�ｽ�ｹ譎｢�ｽ�ｩ驛｢譎｢�ｽ�ｪ驛｢譎｢�ｽ�ｼ)髫ｨ蛛�ｽｿ�ｽ101驍ｵ�ｲ�つ驍ｵ�ｺ�ｽ�ｽ遶企豪�ｹ�ｧ�ｽ�ｽ(em驍ｵ�ｺ�ｽ�ｧ驛｢譎樔ｺらｸｺ驢搾ｽｹ�ｧ�ｽ�ｵ驛｢�ｧ�ｽ�ｹ5驕ｶ鬆第��ｽ�ｿ�ｽ�ｽ)髫ｨ蛛�ｽｿ�ｽ38驍ｵ�ｲ�つ774(驕ｶ雍具ｽｻ蜻趣ｽｿ�ｽ鬮ｫ諤懶ｿｽ�ｽ�ｽ驍ｵ�ｺ�ｽ�ｲ驍ｵ�ｺ�ｽ�ｨ)髫ｨ蛛�ｽｿ�ｽ83驍ｵ�ｲ�つ鬯ｩ貊馴ｱ抵ｿｽ繧会ｽｸ�ｺ髣企ｯ会ｽｽ�ｽ髫ｨ蛛�ｽｿ�ｽ41驍ｵ�ｲ�つ髯具ｽｹ�ｽ�ｿ髯ｷ�ｷ隰ｳ�ｾ�ｽ�ｼ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ28驍ｵ�ｲ�つorz髫ｨ蛛�ｽｿ�ｽ38驍ｵ�ｲ�つ驛｢�ｧ陝ｲ�ｨ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ32驍ｵ�ｲ�つ驍ｵ�ｺ髴域喚ﾂ�ｻ驍ｵ�ｺ髴域喚ﾂ�ｻ髫ｨ蛛�ｽｿ�ｽ30驍ｵ�ｲ�つ髴大､ｲ�ｽ�ｹ髯ｷ�ｻ�ｽ�ｽ驍ｵ�ｺ髴郁ｲｻ�ｽ�ｽ髫ｨ蛛�ｽｿ�ｽ79驍ｵ�ｲ�つ�ｽ謫ｾ�ｿ�ｽ(驍ｵ�ｺ�ｽ�ｯ驍ｵ�ｺ陋滂ｽ･�ｽ竏ｫ�ｸ�ｺ�ｽ�ｦ驍ｵ�ｺ�ｽ�ｮ驍ｵ�ｺ陷ｷ�ｶ遶擾ｽｪ驍ｵ�ｺ�ｽ�ｻ) TW髫ｨ蛛�ｽｿ�ｽ52驍ｵ�ｲ�つF髫ｨ蛛�ｽｿ�ｽ52驍ｵ�ｲ�つ |
