Sub main_Right()
REF_GEOM = swRefGeom_e.Right
main_Called REF_GEOM
End Sub


Sub main_Called(refGeomType As swRefGeom_e)

Set swApp = Application.SldWorks

Dim swModel As SldWorks.ModelDoc2

Set swModel = swApp.ActiveDoc

REF_GEOM = refGeomType

If Not swModel Is Nothing Then

If swModel.GetType() = swDocumentTypes_e.swDocASSEMBLY Or _
swModel.GetType() = swDocumentTypes_e.swDocPART Then

Dim swSelMgr As SldWorks.SelectionMgr
Set swSelMgr = swModel.SelectionManager

Dim swComp As SldWorks.Component2
Set swComp = swSelMgr.GetSelectedObjectsComponent3(-1, -1)

If swComp Is Nothing Then
SelectRefGeom swModel.FirstFeature(), REF_GEOM
Else
SelectRefGeom swComp.FirstFeature(), REF_GEOM
End If

Else
MsgBox "Only assemblies and parts are supported"
End If
Else
MsgBox "Please open part or assembly"
End If

End Sub

Sub SelectRefGeom(firstFeat As SldWorks.Feature, refGeomType As swRefGeom_e)

Dim refGeomIndex As Integer

Dim swFeat As SldWorks.Feature

Set swFeat = firstFeat

Do While Not swFeat Is Nothing

If swFeat.GetTypeName = "RefPlane" Or swFeat.GetTypeName2() = "OriginProfileFeature" Then

refGeomIndex = refGeomIndex + 1

If CInt(refGeomType) = refGeomIndex Then

Dim defScrollState As Boolean
defScrollState = swApp.GetUserPreferenceToggle(swUserPreferenceToggle_e.swFeatureManagerEnsureVisible)
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swFeatureManagerEnsureVisible, SCROLL

Dim append As Boolean

If APPEND_SEL Then
append = True
Else
append = GetKeyState(VK_CONTROL) < 0
End If

If refGeomType = Origin Then
SelectOrigin swFeat, append
Else
swFeat.Select2 append, -1
End If

swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swFeatureManagerEnsureVisible, defScrollState

Exit Sub

End If

End If

Set swFeat = swFeat.GetNextFeature

Loop

End Sub

Sub SelectOrigin(origFeat As SldWorks.Feature, append As Boolean)

Dim swSketch As SldWorks.Sketch
Set swSketch = origFeat.GetSpecificFeature2

Dim swSkPoint As SldWorks.SketchPoint
Set swSkPoint = swSketch.GetSketchPoints2()(0)

swSkPoint.Select4 append, Nothing

End Sub

2021-12-20

アルミフレームエンドキャップに猫を乗せてみる。

欄干や欄間のようにアルミフレームにも＋αが必要・・・というわけで猫を乗せてみました。

f:id:automationTAROU:20211220231150j:plain — ねこのつもり

Blenderを勉強
20年ぶりくらいにBlenderを勉強。生き物の作り方を以下の動画で勉強。

www.youtube.com

こんな感じで作ってみた。
BlenderでSTLを保存
SolidworksでSTLを開き、一度sldprtで保存
　Solidworksでは、直接STLをsldprtファイルにインポートできなません。一度、STLを読み込んでsldprtで保存したファイルを部品コマンドでインポートします。
　STLを読み込んだ後は、グラフィックボディになっているので”メッシュボディに変換”を実行しボディにしています。その後、sldprtとして保存しました。
事前に作っていたエンドキャップと合成
”挿入”→”部品”にてインポートした後、”移動ボディーの移動”と”スケールの変更”にて、好きな位置に移動。
その後に押し出しカットでプレス部分を穴あけ

SW画面
あとは３Dプリンタで印刷

最初の画像をよく見るとわかりますがあまり印刷が上手くいってませんでした。まだまだ工夫が必要です。

Blenderを組み合わせることで表現力アップの一例かと思います。狛犬とかいろいろ作っていけないかと考えております。

2021-11-07

3Dプリンタで印刷できるアルミフレームエンドキャップ

f:id:automationTAROU:20211107144829p:plain

　久しぶりのblogになってしまいました。久しぶりの投稿ですが、アルミフレームのエンドキャップを作りました。今は40角のみです。そのうち品種を増やせればと思っています。

　自然に緩むなどがあり、結局10回近く作り直して今の形状にたどり着きました。

M社タイプ向け40角
取り外し可能
構造については動画で紹介しています。
３Dプリンタで印刷する際は、アルミフレーム側を上にして印刷して、サポートをなしにしてください。

www.youtube.com

　作り始めたきっかけは高剛性GFSに樹脂製のねじ止めエンドキャプが付かなかったからです（・・・四隅のリブをニッパーで切って止めています）。最初はネジ式で作りましたが、作っているうちに樹脂の押し込みでいけないか？と思いここに至りました。

　そのうち、エンドキャップに欄干みたいな突起だったり、猫だったり、いろいろつけたいと思っていますが、いつになるやら・・・。

データ

　利用環境に合わせて、ご自身で責任をとれる方のみご利用ください。

STLファイル　エンドキャップ40角用

20211107endcap-v1.STL - Google ドライブ

STLファイル　治具

20211107endcap_zig-v1.STL - Google ドライブ

SLDPRT（SOLIDWORKS Maker専用です）

20211107endcap-v1.SLDPRT - Google ドライブ

2021-09-13

【無料ダウンロード】イーゼルを作ってみた

いろいろあってイーゼルを作ったのでデータをアップロードしておきます。

f:id:automationTAROU:20210913224019j:plain

f:id:automationTAROU:20210913224138j:plain

組付け方

嫁からのLINEを読んでなくて、モデル作り終わったところで不要と分かったイーゼルです。せっかくだから印刷しました。iPadスタンドにします。#3Dプリンター #3Dprinting #soildworks pic.twitter.com/4D5ddmlf06
— 大利根S (@fVnhextOTULhDrt) 2021年9月12日