How to get the WorkSurfaces of a extruded surface (line no solid)

[bradeneuropeArthur]

How to get the WorkSurfaces of a extruded surface (line no solid)

[WCrihfield · Accepted solution]

Hi @bradeneuropeArthur.  I am not sure I understand, but maybe like this?

Dim oPDoc As PartDocument = ThisDoc.Document
Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition
Dim oExtFeat As ExtrudeFeature = oPDef.Features.ExtrudeFeatures.Item(1)
For Each oSB As SurfaceBody In oExtFeat.SurfaceBodies
	If oSB.IsSolid = False Then
		Logger.Info("Found the SurfaceBody.")
	End If
Next oSB
Dim oWSs As WorkSurfaces = oPDef.WorkSurfaces
For Each oWS As WorkSurface In oWSs
	If oWS.SurfaceBodies.Item(1).CreatedByFeature Is oExtFeat Then
		Logger.Info("Found the WorkSurface.")
	End If
Next oWS

[bradeneuropeArthur]

Thanks @WCrihfield That worked