using refplaneline as axis of revolution

Dim oRefAxis As SolidEdgePart.RefAxis

Dim oRefPlaneLine(3) As SolidEdgeFrameworkSupport.Line2d

 

oProfile(0).SetAxisOfRevolution(oRefPlaneLine(1))

oRefAxis = m_PartDoc.RefAxes.Item(1)

m_PartDoc.Models.AddFiniteRevolvedProtrusion(1, oProfile, oRefAxis, igRight, 2 *

Pi)

 

this always bombs out on me. If i create a line for the axis, it works, but it

doesn't like the refplaneline. Anyone else ever run into this one?

 

Bob

 

Posted by: Bob Reinkemeyer
Post date: 11/6/2008 4:33:15 AM