Adding WorkPlane By Using AddByTwoPlanes in Part Environment

[KKizildemir]

Hi everyone,

I am trying to add a work plane by using 'AddByTwoPlanes' method in the part environment. Here is VBA code:

Sub CreateWP()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument

    Dim oPartCD As PartComponentDefinition
    Set oPartCD = oPartDoc.ComponentDefinition

    Dim WP1 As WorkPlane
    Set WP1 = oPartCD.WorkPlanes.Item(1)
    
    Dim WP2 As WorkPlane
    Set WP2 = oPartCD.WorkPlanes.Item(2)
      
    Dim oWPlane As WorkPlane
    Set oWPlane = oPartCD.WorkPlanes.AddByTwoPlanes(WP1, WP2)
End Sub

All the other work plane adding methods are working but unfortunately I am not able to use this method. When I run the code, oWPlane returns nothing after a run-time error.

Any comments on this?

Thanks!

[Michael.Navara]

This is because work planes are perpendicular.  WorkPlanes(1) is YZ and WorkPlanes(2) is XZ. In this case the third argument QuadrantPoint is required. 

See API documentation of this function for more information

[clutsa]

Can you give an example of creating a quadrantpoint? I don't see it in the object browser and the function help text simply calls it [QuadrantPoint] not "as" any other object type.

[Michael.Navara · Accepted solution]

Here is the final code

Sub CreateWP()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument

    Dim oPartCD As PartComponentDefinition
    Set oPartCD = oPartDoc.ComponentDefinition

    Dim WP1 As WorkPlane
    Set WP1 = oPartCD.WorkPlanes.Item(1)
    
    Dim WP2 As WorkPlane
    Set WP2 = oPartCD.WorkPlanes.Item(2)
    
    Dim oQuadrantPoint As Point
    
    'WorkPlane to quadrants 1-3
    'Set oQuadrantPoint = ThisApplication.TransientGeometry.CreatePoint(1, 1, 0)
    
    'WorkPlane to quadrants 2-4
    Set oQuadrantPoint = ThisApplication.TransientGeometry.CreatePoint(-1, 1, 0)
 
    Dim oWPlane As WorkPlane
    Set oWPlane = oPartCD.WorkPlanes.AddByTwoPlanes(WP1, WP2, oQuadrantPoint)
End Sub

[KKizildemir]

Thanks @Michael.Navara , it works for me.

But I really don't understand what the quadrant point is. Can you please give more information about this?

[Michael.Navara · Accepted solution]

Quadrant point specifies concrete result for given inputs when multiple solutions is possible.

[KKizildemir]

Great explanation, thank you. It's all clear now.

Kind regards!