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: dgreatice

Update for make you first sketch full constraints

 

    Dim oApp As Application
    Dim oPD As PartDocument
    Dim oPCD As PartComponentDefinition
    Dim oSkt As Sketch
    Dim oXY As WorkPlane
    Dim oCentP As WorkPoint
    Dim oSktPt As SketchPoint
   
    oApp = ThisApplication
    oPD = oApp.ActiveDocument
    oPCD = oPD.ComponentDefinition
    oXY = oPCD.WorkPlanes.Item("XY Plane")
    oCentP = oPCD.WorkPoints.Item(1)
   
    oSkt = oPCD.Sketches.Item("Szkic2")
   
    If Not oSkt.PlanarEntity Is oXY Then
        oSkt.PlanarEntity = oXY
    End If
   
    Set oSktPt = oSkt.SketchPoints.Item(1)
    On Error Resume Next
    Call oSkt.AddByProjectingEntity(oCentP)

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

Autodesk Inventor Professional Certified 2014