Sketch consumption by PartFeature (browser tree analysis)

[Maxim-CADman77]

I'm composing iLogic rule that should inform user whether the IPT has any sketch that was not used for creating Solid/Surface Bodies (return Sketch Name if any).

Initially I thought I would use Sketch.Parent property value but now I don't think it was good idea because it only returns Part or SheetMetal Component definition enumerator.

Now I think the fastest way would be to analyse browser tree (check if there is any parent PartFeature object for each Sketch) but i lack experience of processing the model-tree. Till now I have this:

Dim oSketch As Sketch
Dim oCompDef As PartComponentDefinition
oCompdef = ThisApplication.ActiveDocument.ComponentDefinition
Dim oControlDef As ControlDefinition
oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFindInBrowserCtxCmd")

For each oSketch in oCompDef.Sketches
	ThisApplication.ActiveDocument.SelectSet.Clear
	ThisApplication.ActiveDocument.SelectSet.Select(oSketch)
	oControlDef.Execute
	MsgBox(oSketch.Name) ' Comment after debugging
'if ??? Then  MsgBox (oSketch.Name): Exit For	
Next

Could somebody hint what should I put instead "???" to achieve my goal  ?

[chandra.shekar.g · Accepted solution]

@Maxim-CADman77,

Hoping that below iLogic code might help to determine sketch which is not used for solid body.

Dim oSketch As Sketch
Dim oCompDef As PartComponentDefinition
oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
 
For Each oSketch In oCompDef.Sketches
	If oSketch.Consumed = False Then
		MessageBox.Show("Name of sketch which is not used to create solid body : "+oSketch.Name, "Sketch name")
	End If	
Next

Thanks and regards,