Create Sketch From Extrude Feature

[Anonymous]

While create the Extrude feature from Sketch entities, some of the closed area does not convert as Solid during the Extrude process.So i need to identify all the entities are converted as solid or not.

For this case, i need to create the sketch from Extrude feature. Since i need to compare the two sketch entities.

So kindly guide me how to create Sketch using Extrude feature?

Otherwise how to create the profile shape by projecting a solid?

[WCrihfield]

Have you tried playing around with the Sketch.Profiles.AddForSolid() function's optional settings?

For example:

Dim oPDoc As PartDocument = ThisApplication.ActiveDocument
Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition
Dim oSketch As PlanarSketch = oPDef.Sketches.Item(1)
Dim oProfilePathSegments As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
For Each oProfileOption As Profile In oSketch.Profiles
	If oProfileOption.RegionProperties.Area = 56 Then
		oProfilePathSegments.Add(oProfileOption)
	End If
Next
Dim oProfile As Profile = oSketch.Profiles.AddForSolid(False,oProfilePathSegments)
Dim oExtFeats As ExtrudeFeatures = oPDef.Features.ExtrudeFeatures
Dim oExtDef As ExtrudeDefinition = oExtFeats.CreateExtrudeDefinition(oProfile,PartFeatureOperationEnum.kNewBodyOperation)
Dim oExtFeat As ExtrudeFeature = oPDef.Features.ExtrudeFeatures.Add(oExtDef)

[Anonymous]

Thanks for the reply.

But i need to create sketch from Part or Extrude feature. 

(since i need to confirm whether all closed skecth profiles are converted as Part)

Is it possible?