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

Dim oPD As PartDocument
    Dim oPCD As PartComponentDefinition
    Dim oSkt As PlanarSketch '<------
    Dim oXY As WorkPlane
    Dim oCentP As WorkPoint
    Dim oSktPt As SketchPoint
   
    oPD = ThisApplication.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
   
       oSktPt = oSkt.SketchPoints.Item(1)
    On Error Resume Next
    Call oSkt.AddByProjectingEntity(oCentP)

"PlanarEntity" isn't a member of 'Sketch' but is a member of 'PlanarSketch' which is derived from 'Sketch'.

If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State

Custom Glyph Icon for iMates