Create Path for Sweep

- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Not able to create path for sweep. Input Polyline3d represents a rectangle in a planar sketch. Now wish to create path line normal to rectangle at one of the points. Note: "m_thickness" is some double value.
Private Function CreatePathForFlange(ByVal oPl As Inventor.Polyline3d) As Inventor.Path
Dim point1 As Point = oPl.PointAtIndex(1)
Dim point2 As Point = oPl.PointAtIndex(2)
Dim point3 As Point = oPl.PointAtIndex(3)
Dim point4 As Point = oPl.PointAtIndex(4)
Dim v1 As Vector = _invApp.TransientGeometry.CreateVector(point2.X - point1.X, point2.Y - point1.Y, point2.Z - point1.Z)
Dim uv1 As UnitVector = v1.AsUnitVector
Dim v2 As Vector = _invApp.TransientGeometry.CreateVector(point4.X - point1.X, point4.Y - point1.Y, point4.Z - point1.Z)
Dim uv2 As UnitVector = v2.AsUnitVector
Dim v3 As Vector = v1.CrossProduct(v2)
Dim uv3 As UnitVector = v3.AsUnitVector
uv3.AsVector.ScaleBy(m_thickness)
Dim point5 As Point = point1.Copy()
point5.TranslateBy(uv3.AsVector)
Dim wpt1 As WorkPoint = m_compDef.WorkPoints.AddFixed(point1)
Dim wpt2 As WorkPoint = m_compDef.WorkPoints.AddFixed(point5)
Dim pl As WorkPlane = m_compDef.WorkPlanes.AddFixed(point1, uv1, uv3)
Dim skt As PlanarSketch = m_compDef.Sketches.Add(pl)
Dim skpt1 As SketchPoint = skt.AddByProjectingEntity(wpt1)
Dim skpt2 As SketchPoint = skt.AddByProjectingEntity(wpt2)
Dim skln1 As SketchLine = skt.SketchLines.AddByTwoPoints(skpt1, skpt2)
Dim oPath As Inventor.Path = m_compDef.Features.CreatePath(skln1) '*************ERROR
CreatePathForFlange = oPath
End Function
Anything missing?