お問い合わせリンク

https://terakoya2018.com/question

自動化/効率化ご指導させていただきます。
ツールを依頼するのではなく、ご自身で自動化しませんか。
誰でも自動化は簡単です。コツさえわかれば、手品のたね明かしと同じです。

問合せはこちらからhttps://terakoya2018.com/question

連絡先 hagi@terakoya2018.com

1自動化のノウハウから覚えていただき効率化の推進ができます。
解析の自動化例：等速ジョイントブーツ

2分で寸法入り作図可能

CADの自動化例：等速ジョイントブーツ

初心者でもミスなく同じ工数

１形状45分（作図） → ２分（９５％工数削減）
断面メッシュと簡単な名前付けで設計担当が結果処理まで３０分で解析可能

慣れると１分以内
2

２D-CADの自動化
ＭＡＣＲＯ
実行例）
大径部

小径部

蛇腹作図

寸法記入

１形状45分（作図）→２分

CADの作図機能を利用して、簡単に類似形状は３D含めて自動化が可能。
特に凡ミス削減効果は大きい。（例 ARC,中心，始点，終点）

解析の自動化例：等速ジョイントブーツ

リバースエンジニアリング：等速ジョイントブーツ
解析結果から３D-CAD作成の自動化
FEM解析結果のメッシュ

自動スプライン

断面メッシュと簡単な名前付けで設計担当が結果処理まで３０分で解析可能

表面にサーフェースを貼り１０MB程度のモデル

効率化、自動化
支援

自働化手順概要［設計が検討する寸法関係］［CAD言語との合体 マクロ］

設計者が必ず行う検討シートを利用します。
［EXCELシートを追加して寸法抽出＆算出］

次のシートで
CAD言語と座標情報合体

描画自動プロット
直行性の計算など

CADの描画コマンド
LINE ARC CIRCLEなど座標を引き取ります。

プログラム作成します。
これらをマクロコマンドとして実施。

自力自動作図ソフト、作成のきっかけ

見積もりのための打ち合わせ（１回のみ）

見積もり見て⇒外注、無理ストレスの軽減は出来ている

当時、新しい機能
アイソパラメトリック機能※元図を描いて、寸法ピック⇒形状変更される

バラバラになる
形状不成立
打ち合わせ時のキーワード、（ソフト作成する予定の方の）たった一言、“はじめから寸法入れて描いてしまえば・・・“⇒？？？？？？？？？？ ⇒考える？？？？？

解析の効率化

詳細部の座標計算• 山谷部の座標をＥＸＣＥＬで計算
Exel計算機能を利用して座標計算

内積を取り直交性等確認

解析の効率化

ＭＡＣＲＯ形式の書き出し

これらをテキスト形式で書き出す｡
チェックしやすいように３分割

ＭＥ１０-ＣＡＤでの実施例{ 小径部作図を行う ｝
LINE POLYGON
WHITE
SOLID
ABCDEFARC CEN_BEG_END G H F
LINE POLYGONAIJKLMN
ARC THREE_PTS
NPOLINEPQARC CEN_BEG_END R S Q
ARC CEN_BEG_END T S U LINE POLYGONABCDEFARC CEN_BEG_END V W U ARC CEN_BEG_END G H F
・寸法記入の架空点は同じ{ 下側の作成 小径部 ｝
LINE POLYGONAIJKLMNLINE POLYGON
A2 B2 C2D2 THREE_PTS
E2 F2ARC
NPO
非表示で作るARC CEN_BEG_END G2 F2 H2LINEPQ
LINE POLYGON
A2 I2 J2ARC
K2 L2M2 N2
CEN_BEG_END
RSQ
ARC THREE_PTS
N2 P2 O2ARC CEN_BEG_END T S U
DIM_LINE
HORIZONTAL
P4Oi
P5OI
DDH4LINE
P2 Q2 ARC CEN_BEG_END V W U
DIM_LINE
HORIZONTAL
P5OI
P6OI
DDH5
ARC
CEN_BEG_END
R2Q2 S2LINE POLYGON
A2 B2 C2 D2 E2 F2DIM_LINE
HORIZONTAL
P6OI
P7OIDDH6多角形と円弧ARC CEN_BEG_END
T2 U2 S2ARC CEN_BEG_END G2 F2 H2DIM_LINE
HORIZONTAL
P7OI
A3DDH7
DIM_LINE
HORIZONTAL
A3M3DDH8
ARC CEN_BEG_END V2 U2 W2LINE POLYGON
A2 I2 J2 K2 L2 M2 N2
DIM_LINE
HORIZONTAL
E
A3DDD1ARC THREE_PTS
N2 P2 O2
DIM_LINE
HORIZONTALA
M3DDD2POINTBLACK
P1OI2LINE
P2 Q2
POINT
BLACK
P2OI2
ARC CEN_BEG_END R2 Q2 S2POINT
BLACK
P3OI2
ARC CEN_BEG_END T2 U2 S2POINTBLACK
P4OI2POINTBLACK
P5OI2ARC CEN_BEG_END V2 U2 W2POINTBLACKP6OI2LINEA3 B32
POINT
BLACK
P7OI2
寸法記入
ARC CEN_BEG_END B31 B33 B32
DIM_LINE
VERTICAL
M
M2
DV1
DIM_LINE
VERTICALC
C2DV2LINE POLYGON
B33 C3 D3
DIM_LINE
VERTICAL
E
E2
DV3ARC CEN_BEG_END E3 F3 D3DIM_LINE
VERTICAL
P1OI
P1OI2
DV4
DIM_LINE
VERTICAL
P2OI
P2OI2
DV5LINE
F3 G3
DIM_LINE
VERTICAL
P3OI
P3OI2
DV6ARCCEN_BEG_END
H3 I3 G3
DIM_LINE
VERTICALP4OI
P4OI2DV7

別シートで計算
１枚のシートに参照、抽出CADの自動化例：等速ジョイントブーツ

自動作画の作り方［自動作画システム］
山・谷部の寸法入力

EXCELと組み合わせると非常に簡単
山谷部の寸法をEXCELで計算
寸法を拾って、線(LINE)、円（CIRCLE)CIRCLE
LINE
LINE

寸法計算EXCEL
中点Ix

R寸法GH 山部R
25.75
62・・・中心間の差より求める

ARC THREE_PTS∠PcIs
0.3028849
長さPｃG 長さPcI 長さGI ∠PcIPo ∠PoIs
10.057833 2.5145 7.543375 0.919667 1.222552
X成分

BB6
R1IIB
R2IIB

BB61
R1II2B
R2II2B

R6IS2 R6IE2 R6II2

寸法（DIM)
上記∠換算

長さPosI X成分 Y成分 長さIG1.5239751 0.5201 1.432496

SOLID
SOLID
SOLID

円弧（ARC)

Iy
85.5

YELLOW
WHITE
WHITE

Y成分

1.5601601 4.2974877

DIM_LINE
DIM_LINE

VERTICALVERTICAL

R1OI
R2OI

R1OI2
R2OI2

このコマンドを実行して作図

DV19
DV18

まずは、山部お谷部のそれぞれの座標を計算

EXCELで間違いないか確認

大径側座標計算
内径
外径

各部座標
中心
中心線横中心線縦内径作図
中心
内径
外径始点
１3deg
6deg
中点
R4終点
R4終点
中点
6deg
3deg
交点
3deg
6deg
中点
R4終点

42.6
43.85

0-46.0425
46.042500000-46.0425
46.0425000
42.6

02.347268
4.6881027.033798
7.065721
31.00663
43.27699
43.28234
44.60431
44.78853
44.85
44.78853
44.60431
43.28234
43.27699
31.00663

44.85
44.78853
44.60431
43.28234
43.27699
31.00663
7.065721
7.033798
4.6881022.347268
0-2.34727-4.6881-7.0338-7.06572-31.0066

計算結果から形状確認自動化の効果と作成のヒント/ポイント
点と点、直接座標入力で点作成、円弧作成など必ずスクリプトが残ります。
P2＋*add_curves
12
3
4

ポイント１－２、３－４つないで線分

P6＋＋
P1

P7＋ARC 円弧宣言

P3＋

*set_curve_type arc_ppp*add_curves-1.00E-03

P5 ＋ ＋
P4

0.00E+00

円弧と線分選択してこの領域に自動メッシュ作成

P50.00E+00
1.00E-03
0.00E+00*add_curves

ポイント５－６

直接X,Y,Z座標入力

50.00E+00

60.00E+00
1.00E-03
0.00E+00

P6P7

どのソフトも操作するとこの記録が残ります。
表面上画面に出なくても、ファイルに保管されます。 ⇒これを使って自動化
ソフトのクセを探して（サポートに確認して誰でも自動化ソフトが作れます。
⇒ バグ取りは、単なる気力の問題で若者向きです、
当面、外出も少ないので移動時間が空きました。 ⇒ お手伝いできます。

打ち合わせ時のキーワード、（ソフト作成する予定の方の）たった一言、“はじめから寸法入れて描いてしまえば・・・“

寸法分かれば描けるCADでの書き方の勉強

あちこちメール出してCADの先生探し
EXCELの計算式利用

週末、金曜１５～１７時 CADの基本

・作図（線を描く、円を描く、フィレットを描くetc.）
・寸法の描き方・寸法の位置決め ・編集
・前回のご指導に対する実行⇒質問

４週、週末の勉強会 ⇒ 終了後大宮で、飲み会「指導料５万円商品券 ＋懇親会費２万円（交通費）」×４
別途、先生の紹介料 商品券５万円⇒ 約３３万円（交通費含め４０万円以下）
金曜の勉強会、土日に忘れないように作業 ⇒次週疑問持って勉強会 ⇒自力でソフト作成

自動化の効果と作成のヒント
諸々の検討の為

１０～２０枚/日 作図
なぜ、必要かは聞き取りから不明

作図工数 ３０～５０分/枚
CAD専任者 寸法なしなら２５分

３形状（５、６、７山）
右向き、左向き

寸法入り含めて、平均３０分として
２０日 １月３００枚 × １２か月 × １５年（２００４年から現在も継続）
時給２，０００円で計１０８，０００千円 （１億８百万）
なぜか、偶然効果が 煩悩

１０８

ソフトの制作費用
約５００千円（授業料＋懇親会費用）

ソフト６パターンの見積もり
４２，０００千円

外注、無理
自力で造れるか？

ＦＲＥＥ－ＣＡＤの例
２D作図

点を描く

連続線を描く

線分を描く

円を描く弧を描く
円を描く

矩形を描く

それぞれのソフトをご確認下さい。

FreeCADの例：マクロの活用
１）マクロ
２）マクロのウィンドウ３）名前入力４）作成
５）この後実行したものが記録される： 例） ２点と距離寸法
（一部省）

１点目の点

２点目の点

App.ActiveDocument.Sketch.addGeometry(Part.Point(App.Vector(-10.057069,9.796331,0)))App.ActiveDocument.Sketch.addGeometry(Part.Point(App.Vector(10.131569,-0.111745,0)))App.ActiveDocument.Sketch.addConstraint(Sketcher.Constraint('PointOnObject',1,1,-1))
App.ActiveDocument.Sketch.addConstraint(Sketcher.Constraint('Distance',0,1,1,1,22.439902))
App.ActiveDocument.Sketch.setDatum(1,App.Units.Quantity('22.440000 mm'))
距離（寸法記入）
ブーツトライ１¥点と寸法（距離）.FCMacro# Macro End: C:¥Users¥kaien¥Desktop¥FreeCAD¥+++++++++++++++++++++++++++++++++++++++++++++++++

マクロの中身
ファイル名.FCMacro というファイルが作成される。
(前ページ例）
App.ActiveDocument.Sketch.addGeometry(Part.Point(App.Vector(-10.057069,9.796331,0)))App.ActiveDocument.Sketch.addGeometry(Part.Point(App.Vector(10.131569,-0.111745,0)))App.ActiveDocument.Sketch.addConstraint(Sketcher.Constraint('PointOnObject',1,1,-1))
App.ActiveDocument.Sketch.addConstraint(Sketcher.Constraint('Distance',0,1,1,1,22.439902))
App.ActiveDocument.Sketch.setDatum(1,App.Units.Quantity('22.440000 mm'))# Macro End: C:¥Users¥kaien¥Desktop¥FreeCAD¥ブーツトライ１¥点と寸法（距離）.FCMacro+++++++++++++++++++++++++++++++++++++++++++++++++
自動描画の方法/作図コントロール

この数値（寸法）部分をEXCELの別セルを使って入力を反映 ⇒テキストで書き出し ⇒ MACROとしてテキストファイル実行 詳細後述

自動化の方法：ＣＡＤ自動化と同様

ブーツ解析の自動化

拘束１
拘束１

一度解析を実行
⇒その記録を使用

１）メッシュ作成、上下の拘束条件設定
要素に“boot“ ”shaft” という名前付ける

２）解析設定、３Ｄ化、順次手動で実行| Version : MENTAT II 2.3.1*select_elements_class
all_visible
line2*select_clear*remove_elements*select_sets
all_selected
rigid3*element_type 10*visible_selected
all_existing*expand_curves$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
all_visible*select_sets*store_surfaces rigid3s
rigid1
all_visible*visible_selected*invisible_selected*expand_reset*fill_view*set_expand_rotations*select_clear-10 0 0*select_sets

３）記録をテキストで残す*element_type 10
all_existing*expand_axito3d_reset*set_expand_non_equi_angle 1-10*set_expand_non_equi_repetitions 1
18*expand_axito3d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$*select_setsboot*new_material

実作業の記録［実際に作る・・・］
EXCELに実施した履歴をコピー

３D化

入力すべき項目を赤字で追記

材料
入力

要素のコピー
番号付け
元に戻して節点共有
隣の出力用シートに反映

④材料定数定義
金属部については、鉄やアルミ、その他の材質を与える｡通常、鉄の材料定数をデフォルトとする。
ゴム部はサブルーチンでGs値で与えるが、熱膨張係数のみ、ここで定義する｡
金属
材料定数
metal1
metal2
metal3
metal4
metal5
通常使わない為、ヤング率(kgf/mm2)
21000
21000
21000
21000
7000 ５のみ鉄を参考に記す｡
ポアソン比
0.28
0.28
0.28
0.280.33
質量密度(kg/mm4)
8.00E-10 8.00E-10 8.00E-10 8.00E-10 2.80E-10線熱膨張係数(/deg) 1.55E-05 1.55E-05 1.55E-05 1.55E-05 2.40E-05

別シートで材料入力

ゴム
通常使わない為、
材料定数
rubber1
rubber2
rubber3
rubber4
rubber5５のみ別材を参考に記す｡
質量密度(kg/mm4)
1.10E-10 1.10E-10 1.10E-10 1.10E-10 1.00E-10
線熱膨張係数(/deg) 1.70E-04 1.70E-04 1.70E-04 1.70E-04 1.50E-04

圧力条件
見える化も（グラフ）

別シートへ集約

EXCELに取り込んで、別シートで寸法を整えます。
EXCELなら計算式も使えます。
P7＋P6＋［EXCEL記述］
P5 ＋

中心xyz

000

分割数

分割した要素に材料の割り当ても可能

50

その他解析の設定も・・・

50

半径5.00E-01

材料定義

A

ヤング率72000

ポアソン比0.17

降伏応力1.00E+20

このブーツは、上記の繰り返し応用として接線寸法の計算くらいです。

当面、外出も少ないので・・・・・・ ⇒お手伝いできます。

設計FEM解析の立ち上げ
手順書例

手順書を充実ＣＡＤ・解析ソフトの事前能力調査
入力データのＯＵＴ/ＩＮデータ確認

自動化・効率化のコツ
事前に目的を確認、実施計画報告

ＯＫ

CAD・解析の自動化/効率化
実習による適用実施、簡単なモデルからターゲットまでＮＧ・再検討

注意：自動化の方法のご説明であって、方法を学んでいただくことを主眼にしていますので１日で充分。

※特定の自動化案件をご相談の方は、お問い合わせください。

ＣＡＤ・解析の自動化/効率化サポート

問合せはこちらからhttps://terakoya2018.com/question
３名まで、６時間１５万円/日（時間延長可、追加費用なし） ※あくまでも自動化手法の習得です。

※おそらく１～２日で習得可能と思われます。時間内であれば、ＣＡＤ／解析、その他お困りごと。

２日間、税別２５万円/費用は相談に応じます。/１時間程度のご説明は無料対応します。

お問い合わせ先

寺子屋

問合せ https://terakoya2018.com/question

https://terakoya2018.com/
TEL：080-2230-8785
MAIL：hagi@terakoya2018.com

日本テクノフォート株式会社
問い合わせ https://monocollab.jp/
TEL：03-5050-2665
MAIL：inf@monocollab.jp
25