Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
dgreatice
in reply to: Anonymous

Hi, 

 

try this:

    Dim oApp As Application
    Dim oPD As PartDocument
    Dim oPCD As PartComponentDefinition
    Dim oSkt As Sketch
    Dim oXY As WorkPlane
   
    oApp = ThisApplication
    oPD = oApp.ActiveDocument
    oPCD = oPD.ComponentDefinition
    oXY = oPCD.WorkPlanes.Item("XY Plane")
    oSkt = oPCD.Sketches.Item("Szkic2")
   
    If oSkt.PlanarEntity Is oXY Then
    Else
        oSkt.PlanarEntity = oXY
    End If

 

Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.

Autodesk Inventor Professional Certified 2014