How can I break link reference component of sketch

[tim11_manhhieu]

I am trying to break link reference component of sketch show as image.

Did i do something wrong?

Option Explicit

Sub zzzzzzzzzzz()

Dim oPart As PartDocument
Set oPart = ThisApplication.ActiveDocument

Dim oPartDef As ComponentDefinition
Set oPartDef = oPart.ComponentDefinition

Dim oSketch As PlanarSketch
Set oSketch = oPart.ComponentDefinition.Sketches.item("Sketch29")

oSketch.ReferenceComponent.BreakLinkToFile

End Sub

[WCrihfield · Accepted solution]

Have you tried PlanarSketch.BreakLink method?

Another alternative may be to iterate through every SketchEntity in the sketch, and set the SketchEntity.Reference property's value to False, since that is a ReadWrite property.  It says the only valid value we can set is False, since just specifying True does not specify what the entity would be getting referenced to, and can not reestablish any association.

[tim11_manhhieu]

It's still error.

-----------------------------------------------------------

I tried method oSketchEntity.Reference = False and it worked.

The purpose of my breaking link is to remove the projected entity.

Although reference21 is still left, the above method is still OK.