@ToddPig wrote:
That's a good trick. Thanks. Do you have one for chamfer?
Hi ToddPig,
I have a trick to do that, but it's customization. I don't know of a way to do it otherwise.
Maybe it would be a good Idea Forum post:
http://forums.autodesk.com/t5/Inventor-IdeaStation/idb-p/v1232
This iLogic creates a chamfer on already chamfered edges, which is shouldn't do, but I didn't bother trying to filter those out.
Use at your risk!
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
oSize = InputBox("Enter a size for the chamfer", "iLogic", "")
If oSize = "" Then
Return
End If
oDoc = ThisDoc.Document
' Set a reference to the component definition.
Dim oCompDef As PartComponentDefinition
oCompDef = oDoc.ComponentDefinition
Dim oFace As face
' define the edge collection.
oEdgeCollection = ThisApplication.TransientObjects.CreateEdgeCollection
'Keep Selecting Faces, Hit Esc to finish
Do
oFace = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select Face (Press ESC to exit)")
If Not oFace Is Nothing Then
' Add all of the edges of the face to the edge collection.
For Each oEdge In oFace.Edges
oEdgeCollection.Add (oEdge)
Next
Dim oChamfer As ChamferFeature
Try
oChamfer = oCompDef.Features.ChamferFeatures.AddUsingDistance(oEdgeCollection, oSize)
Catch
MessageBox.Show("Chamfer could not be created.", "iLogic")
End Try
End If
Loop While Not oFace Is Nothing