Delete Surface Anybody knows How?

[Anonymous]

Hi,

I have a surface called "RevolutionSfr1" in my part and this i want to delete?

I tried the code below but it does not work.

Does anybody knows how to call and delete a surface if you know the name of the surface.

Dim oSurFaces As WorkSurfaces

oSurFaces = oPartdoc.ComponentDefinition.WorkSurfaces

Dim oSurFace As WorkSurface

oSurFace = oSurFaces.Item("RevolutionSrf1")

oSurFace.Delete

Please Help.

Regards Kent boettger

[YuhanZhang]

Delete the part feature which the work surface depends on would delete the work surface. Try below code:

Dim oSurFeature As RevolveFeature
Set oSurFeature = oPartDoc.ComponentDefinition.Features.RevolveFeatures("RevolutionSrf1")

oSurFeature.Delete

[Anonymous]

Thank You, This was just what i needed..

Regards.

Kent Boettger