sketch orientation

[GeorgK]

Hello together,

how could I get the sketch orientation?

If I create the sketch I know the orientation.

Public Sub ActivateSketch()
Dim partDoc As PartDocument
Set partDoc = ThisApplication.ActiveDocument
' Create a new sketch on the X-Y base work plane.
Dim sk As Sketch
Set sk = partDoc.ComponentDefinition.Sketches.Add(partDoc.ComponentDefinition.WorkPlanes.item(3))
' Bring the sketch into edit mode.
sk.Edit
End Sub

But how to get it reverse (which workplanes)?

Thanks

Georg

[sajith_subramanian]

HI GeorgK,

There is an existing blog article with sample code on a similar topic. Could you check it out and see if it helps?

Link to article:

http://beinginventive.typepad.com/being-inventive/2012/08/how-to-find-the-plane-a-sketch-sits-on.htm...

Regards,

Sajith