By Vladimir Ananyev

Issue

I need to create a workplane that is parallel to a line in an existing sketch and rotated a certain angle off of that sketch. Is there an example showing how to do this?

Solution

The following example will add a new work plane. Before running this example select a line in a sketch. When the code completes a new workplane will be created. The workplane will be parallel to the line and rotated 45 degrees off the sketch plane.

VBA code:

Private Sub testAddWorkPlane()

  ‘ Set a reference to the select set of the active document.

  Dim oSelectSet As SelectSet

  Set oSelectSet = ThisApplication.ActiveDocument.SelectSet

  If oSelectSet.Count = 1 Then

    If TypeOf oSelectSet.Item(1) Is SketchLine Then

      Dim oPartCompDef As PartComponentDefinition

      Set oPartCompDef = ThisApplication _

         .ActiveDocument.ComponentDefinition

      Dim oSketchLine As SketchLine

      Set oSketchLine = oSelectSet.Item(1)

      Dim oSketch As Sketch

      Set oSketch = oSketchLine.Parent

      Debug.Print oSketch.Name

      Dim oWrkPlane As WorkPlane

      Set oWrkPlane = oPartCompDef.WorkPlanes _

        .AddByLinePlaneAndAngle(oSketchLine, oSketch, 45#)

    End If

  End If

End Sub

VB.NET code:

Public Sub AddWorkPlane()

  ‘ Set a reference to the select set of the active document.

  Dim oSelectSet As SelectSet

  oSelectSet = m_inventorApp.ActiveDocument.SelectSet

  If oSelectSet.Count = 1 Then

    If TypeOf oSelectSet.Item(1) Is SketchLine Then

      Dim oPartCompDef As PartComponentDefinition _

         = m_inventorApp.ActiveDocument.ComponentDefinition

      Dim oSketchLine As SketchLine = oSelectSet.Item(1)