Message 1 of 2
Not applicable
08-10-2015
03:34 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I wish to create an equivalent sweep for the sheet metal flange. It seems to work ok except that the features appear hidden. Please see attached picture.
Most likey its becuase the tool body created by feature is not able to JOIN with the existing part. Actually, I wish to have NEWBODY option. But it gives error (don't know why), so I had to use JOIN, which does not give error but does not show the feature.
ElseIf TypeOf oFeature Is FlangeFeature Then
oFeature.SetEndOfPart(True)
Dim flangefeat As FlangeFeature = oFeature
Dim definition As FlangeDefinition = flangefeat.Definition
Dim edges As Inventor.EdgeCollection = definition.Edges
Dim count As Integer = edges.Count
Dim planeCollection As ObjectCollection = _invApp.TransientObjects.CreateObjectCollection()
If Not edges Is Nothing Then
' Collect all inputs first, then rollback to the end
For Each ed As Edge In edges
Dim fc1 As Face = ed.Faces.Item(1)
Dim fc2 As Face = ed.Faces.Item(2)
Dim pl As Inventor.Polyline3d
If fc1.Evaluator.Area > fc2.Evaluator.Area Then ' smaller one needs to be swept
pl = ExtractBoundaryOfFace(fc2)
Else
pl = ExtractBoundaryOfFace(fc1)
End If
planeCollection.Add(pl)
Next
End If
m_compDef.SetEndOfPartToTopOrBottom(False)
For Each pl As Inventor.Polyline3d In planeCollection
Dim path As Inventor.Path = CreatePathForFlange(pl, oFeature)
Dim profileSketch As PlanarSketch = Nothing
CreateSketchOutOfFaceBoundary(pl, profileSketch)
Dim profile As Profile = profileSketch.Profiles.AddForSolid
CreateNewSweep(profile, path, PartFeatureOperationEnum.kJoinOperation)
Next
Attached also is code and part file.
Wish to have PartFeatureOperationEnum Enumerator kNewBodyOperation working for SWEEP feature
Solved! Go to Solution.