DELETE THE HOLES AND SKETCH IN THE FLATPATTERN OF A SM

[formobalaji]

I NEED A ILOGIC CODE TO DELETE THE HOLES AND ITS SKETCH IN THE FLATPATTERN OF A SM

[bradeneuropeArthur · Accepted solution]

Dim p As Inventor.PartDocument = ThisDoc.Document
Dim sp As Inventor.SheetMetalComponentDefinition = p.ComponentDefinition
Dim fp As Inventor.FlatPattern = sp.FlatPattern
Dim hf As Inventor.HoleFeature 
For Each hf In fp.Features.HoleFeatures
	hf.Delete
	Next