Create Workplane (Normal to Axis Through Point)

[Genicee]

You can create a Workplane Normal to and Axis through a point using the UI, but I can't not see where that is available in the API. I have tried WorkPlanes.AddByNormalToCurve, but an Axis does not qulify as CurveEntity.

[dano0310 · Accepted solution]

Hi Genicee

Try this code as a starting point.  Currently it is using the x axis and the centre point to creat a workplane.

Dim oPartCompDef As PartComponentDefinition
Set oPartCompDef = ThisApplication.ActiveDocument.ComponentDefinition
        
Dim oAxis As WorkAxis
Set oAxis = oPartCompDef.WorkAxes(1)

Dim oPoint As WorkPoint
Set oPoint = oPartCompDef.WorkPoints(1)

Dim oPlane As WorkPlane
Set oPlane = oPartCompDef.WorkPlanes.AddByNormalToCurve(oAxis, oPoint, False)

Hope this helps.

Dan

[Genicee]

That was basically what I was trying. What found out to be the problem is AddByNormalToCurve does not accept "Point" as a parameter. "WorkPoint" does work. 

Thanks for the help!