溶接板金CADプログラム研修所

MA-F　逆歪(角変形)とステンレスフラック入りワイヤー

MはMAGかMIGのMでしょう。

SA-2F（3層盛）のステンレス版。溶接協会の資格一覧の下にある。試験片はステンレスSUS304なので高いから？熱伝導性が悪いので大きくしても意味がないからか幅１００ｍｍ。SA-2Fは１２５ｍｍ。溶接する長さは同じ２００ｍｍ。

JIS検定で裏当て金ありは結構簡単です。

注意点は、逆ひずみを５度ほどとること。逆歪がゼロだと角変形で落ちる。ビードが太くなりすぎたら6-7度くらい歪みます。ルートギャップ/RG/ルート間隔が狭いと歪みは少なくなる。TN-FもそいだがステンレスSUS304はネバイので曲げ試験にはめっぽう強いので曲げで割れない。だから、歪み/角変形にご注意。

下図はSolidWorksで試験片の寸法で描いてみた。試験片を仮付け溶接する時の逆歪の例です。裏当て金分で逆歪を取れば187.69となっているので、だいたい7-8度の逆歪みがとれる。溶接歪みがプラス７度になっても0度、ほぼ真っ直ぐ。

SA-2Fだと逆歪は、t3.2の板を両側に置いて仮付けする。逆歪は3度程度。ルートギャップが3mくらいだと溶接の歪みは1-2度なのでマイナス3度程度の逆歪があれば溶接で戻りきらないくらいだから、間違いなく5度以内におさまる。実は、SA-2Fでは、両端のt3.2を6mmにしてぼぼ真っ直ぐに仮付けしても歪みは5度以内なので逆歪みはいらないくらいだ。歪みの要注意はSUS304です。

もう一つ注意点があるとすれば、ステンレスのフラックス入りワイヤー /DW-308 Φ1.2を使うのでフラックスの巻き込みに注意かな。まあ電流を200以上240とか高くしとけばフラックスは表面まで浮いてくる。

ガスは炭酸ガス、溶接ワイヤDW-308Φ1.2。ルートギャップRGは4-5mm。ルートフェイスRFゼロ。1層目240A32V後進/引きストレート、2層目240A32V後退/引き細かいウィービング。3層目/最終層220A30V後退/引きウィービング。引きなのでビードの高さを見ながらする。開先加工の肩から1mm低くする。最終層は200A29V。突き出し長さが長くなると200A以下になるので突き出し長さ20mm以内。電圧も書いてますが、「一元」の設定でいいです。動画では3層だが4層になる人は、一層が薄いのでスラグの巻き込み、スピードも早い（プールの先頭にアーク）ので溶け込み不良になることもないでしょう。この場合はどの層も20A低くしてもいい。層が増えるのは問題ありません。

最終層のウィービングは両端で止める。中心は早めに通過。開先加工の肩が残ってないとウィービングの止端(シタン/溶接用語です)が見えない。見にくい時は前進/押しでする。

SUS304は急冷しても何も問題はないので粒界腐食を避けるために水冷、濡れタオルで層ごとに冷やす。水につけてもいいぐらいだがJIS検定ではいらない。大抵は一層ごとに掃除を丁寧にして時間をおけば受かる。鉄は急冷禁止です。

200A以上なので溶接面の遮光番号は11番が普通です。60歳超えの私も11番です。若い人は12番がいいかもしれません。JIS規格の簡易閲覧20ページでは、11か12番です。個人差があります、年齢差ですね。例えば、100A以下が10番となってますが私の年齢では150A以下が10番です。炭酸ガスの立向きや横向きではたいて10番を使ってます。50歳のころは確か11番でした。もしかして、JIS規格の遮光番号は40-50歳以下の規格かも。

球やアールを展開図にする

アールはともかく球は展開図にできない。サッカーボールは球だが、複数の六角形の展開図でボールっぽく作ることができる。だから、細かくすれば球に見える。

ソリッドワークス/SolidWorksの板金のタブの「とめつぎフランジ」は、スケッチで直線を書くとフランジを作ってくれる。いろいろな角度があり、複雑な形状を描く場合は便利です。次図は、直線をアールっぽく、底を１２多角形で円っぽく。

球の1/8やアールが多いと加工がしにくい。溶接するとなると直線的で短い方がひずみ、研磨が少なくていい。

参考にこっちも。

展開は最後の最後にしてます。

CADって肩こり？腕コリする

動画みたいに肘を付け、肘を曲げる。これで結構楽になる。

あとトラックボールだけど、慣れが必要。私のマウスの操作スピードからすると今の所、通常の無線マウスの勝ち。

正三角錐　板金展開図

板金に変換
とめつぎフランジ
エッジフランジ

上記は板金のタブにあるコマンドです。正三角錐を上記のコマンドで作成します。

その前に経過説明。

ソリッドワークス/Solidworksを使い始めて、同僚から「三角錐」って作るの難しいよ」と言われる。

確かに、「押し出しボス」を多用するのでななかなか斜めに描くことは慣れていなし。それに、斜面がある図面って３Dではなく三面図なんかでは読図が難しい。

以前にこんなのアップしている。

高評価もいただいている。m(_ _)m。

時は随分と経って、技能もアップしたので以下の展開図可能な正三角錐を作った。順に、

板金に変換
とめつぎフランジ
エッジフランジ

角エルボ（出入り口のサイズ違い）

入り口と出口のサイズが違い、ねじりや曲げにくい板厚3.2以上を前提に展開図を描く。

ロフトで作ると絞りや打ち出し加工が必要になる。ロフトの作成例

まず、球は展開できない。円筒や面は展開図を作ることができる。面は三角形で考える。

ソリッドワークス/Solidworksのサーフェスを使って展開できない状況を判断する。ロフトを使って３Dモデルを作った。

ロフトで絞り、打ち出しが必要なことを確認。展開サーフェス、変形プロットで確認する。

展開サーフェースを作る時にメッシュ/ワイヤーフレームが見える。サーフェースってワイヤーフレームなんです。CADの表現方法、モデルとして以下の３つある。

ワイヤーフレーム
サーフェース
ソリッド

ソリッドワークス/SolidWorksのサーフェースはワイヤーフレームでもある。

で、

ワイヤーフレームと言えば三角形、展開図ができる最小の面でもある。三角形ができれば２つの直角三角形が作れるので展開図の手法の三角形法が使える。ん。つなげすぎか。

さて、元に話に戻って。

角エルボを作る基本部分の作成方法

展開可能な角エルボの例。出口側は直線の面。

Rの部分は順次変化するように変更。

角ダクトの骨格

以下はマクロ記録を一部修正したます。動画の下に置きたかったが5000文字までという制約で置けませんでした。

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.PartDoc
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()


Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

Dim skSegment As Object
Set skSegment = Part.SketchManager.Create3PointArc(0.025, 0.084, 0#, 0.118798, 0.029, 0#, 0.088, 0.073, 0#)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0.025, 0.084, 0#, 0.109064, 0.084, 0#)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SketchBoxSelect("0.079", "0.058", "0.000", "0.090", "0.095", "0.000")
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("平面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True

Part.ShowNamedView2 "*等角投影", 7

Part.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(0.061, 0.046, 0, 0.11, -0.05, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("ｽｹｯﾁ1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("ｽｹｯﾁ1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "外側R")
boolstatus = Part.Extension.SelectByID2("ｽｹｯﾁ2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("ｽｹｯﾁ2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "入り口")
boolstatus = Part.Extension.SelectByID2("右側面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
vSkLines = Part.SketchManager.CreateCornerRectangle(-0.041, 0.074, 0, 0.041, 0.033, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("ｽｹｯﾁ3", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "出口")
boolstatus = Part.Extension.SelectByID2("出口", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID2("Point1@原点", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgVERTICALPOINTS2D"
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True

' Named View
'Part.ShowNamedView2 "*等角投影", 7
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID2("外側R", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("入り口", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("入り口", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID2("Point1@原点", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgHORIZONTALPOINTS2D"
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("外側R", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("外側R", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.ReorderFeature("外側R", "出口")
boolstatus = Part.Extension.SelectByID2("外側R", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line1@出口", "EXTSKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgATPIERCE"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line4@入り口", "EXTSKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgATPIERCE"
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("正面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.Create3PointArc(0.018, 0.035, 0#, 0.048, 0.004, 0#, 0.046, 0.031, 0#)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0.018, 0.035, 0#, 0.167765, 0.035, 0#)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SketchBoxSelect("0.029", "0.028", "0.000", "0.043", "0.044", "0.000")
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line3@出口", "EXTSKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgATPIERCE"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line2@入り口", "EXTSKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgATPIERCE"
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("ｽｹｯﾁ4", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "内側R")
End Sub

伏せる

ふせる。訓読みね。日本語読み。

伏兵、伏線

クレーン、玉掛けのテキストに起伏とある。ふせる。でわかった。クレーンのデリックの説明にある。

ビードフラッシュ？

聞くとビードカットかな。グライダーかけ。ナンカね、フラッシュとなると閃光(せんこう)なんでグラインダーかけの様子を言うのかな？

ビードの盛り上がりを切除してすると溶接跡もわからないし、盛り上がった部分の引張応力の除去になるし、板厚が均一になるので応力の集中も避けることができる。

アークストライクのことでも無い。

青いところがアークストライク。炭酸ガスアーク溶接の立て向き溶接でアークを切ってすぐに左にトーチを移動したときに付いた傷。

2024年11月
日	月	火	水	木	金	土
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30