Add workplane by selected face

[NachoShaw]

Hi

How can i add a workplane by selecting a face? I need to select a face then add a workplane to that face. I am working in a part file only

Thanks

Nacho

[Anonymous · Accepted solution]

Something like this?

Sub WorkPlaneOffset()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oFace As Face
Set oFace = oApp.CommandManager.Pick(kPartFaceFilter, "Select Face")

Dim dblOffset As Double
dblOffset = 0

Dim oWorkPlane As WorkPlane
Set oWorkPlane = oDoc.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset(oFace, dblOffset)

End Sub

[NachoShaw]

Hi

Perfect mate thanks. My code attempt was almost identical albeit i had a PartDefinition that i think wasnt allowing it to work.

Thanks again

Nacho