How to Redefine Sketch with iLogic and Maintain Full-Constraint Status

[JBerns]

Dear Community,

I have a part that I would like to be able to redefine a sketch and maintain its fully-constrained status.

If I redefine the sketch manually, the full-constraint status is maintained regardless of the number of Redefine operations that are performed.

However, when I use iLogic code to redefine the sketch, the full-constraint status is lost after the second operation.

See video here: https://autode.sk/2Zhs7yU 

How can I modify the iLogic code to maintain the full-constraint status regardless of the number of Redefine operations performed?

I suspect there is a problem in how I specify the Workplanes, WorkPoints, and WorkAxes. A portion of the iLogic follows. I have attached the part.

Sketch.Redefine(oDef.Sketches.Item(1).Name, partDef.WorkPlanes.Item(i).Name, partDef.WorkPoints(1).Name, partDef.WorkAxes(j).Name, AxisIsX := True, NaturalAxisDirection := True)

Thank you for your time and attention. I look forward to your replies.

Regards,

Jerry

[bradeneuropeArthur]

Hi,

Try this:

Public Sub SketchRedef()
    ' Get the active part document.
    Dim partDoc As PartDocument
    partDoc = ThisApplication.ActiveDocument
    Dim partDef As PartComponentDefinition
    partDef = partDoc.ComponentDefinition

    Dim sketch As PlanarSketch
    sketch = partDef.Sketches.Item(1)
    
    sketch.PlanarEntity = partDef.WorkPlanes.Item(1)

    ThisApplication.ActiveView.Fit
End Sub

or for VBA:

Public Sub SketchRedef()
    ' Get the active part document.
    Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument
    Dim partDef As PartComponentDefinition
    Set partDef = partDoc.ComponentDefinition

    Dim sketch As PlanarSketch
    Set sketch = partDef.Sketches.Item(1)
    
    sketch.PlanarEntity = partDef.WorkPlanes.Item(1)

    ThisApplication.ActiveView.Fit
End Sub

[JBerns]

@bradeneuropeArthur,

I should have clarified to review the code in the part.

Were you able to test this code with the existing code in the part?

The interface allows the user to select a Sketch (Work) Plane. After the first selection, the sketch is still fully-constrained. However, after the second plane selection, the full-constraint status is lost. I show this failure in the video. Hope it is helpful.

At a quick glance, I think your code will only  select the XY plane, correct?

Regards,

Jerry

[bradeneuropeArthur]

My sketch was fully constraint on the initial workplane, and is also after it have been redefined on the new workplane.

[bradeneuropeArthur]

For testing your file, I am missing a derived part!

It is asking for a link.

[JBerns]

@bradeneuropeArthur,

Would you tell me the file name the link requires or provide a screen capture? I am sure the link can be deleted.

Regards,

Jerry

[shastu]

What if you want to have the user Redefine an existing sketch to a face that they select?  In VBA please.