How do I identify if a split command is an error?

[Anonymous]

I have a routine that performs a split on each solid body in a model based on a surface.  The command will run but it performs splits on each solid even if there's an error.  I'd like to be able to know when an error occurs so that I can skip the split for that body.

[rossano_praderi]

May you post the code?

[Anonymous]

Option Explicit
Dim oWorkSurf As WorkSurface
Dim oWorkSurfs As WorkSurfaces
Dim oSurfBody As SurfaceBody
Dim oSurfBodies As SurfaceBodies
Dim oCompDef As ComponentDefinition
Dim oPartCompDef As PartComponentDefinition
Dim oPartDoc As PartDocument
Dim oSplitFeat As SplitFeature


Public Sub SplitAllFaces()

    Set oPartDoc = ThisApplication.ActiveDocument
    Set oPartCompDef = oPartDoc.ComponentDefinition
    Set oSurfBodies = oPartCompDef.SurfaceBodies
    Set oWorkSurfs = oPartCompDef.WorkSurfaces
    
    oWorkSurf = oWorkSurfs.Item("Srf5")
    
    For Each oSurfBody In oSurfBodies
        
        Set oSplitFeat = oPartCompDef.Features.SplitFeatures.SplitBody(oWorkSurf, oSurfBody)
    
    Next oSurfBody

End Sub

 I have some items that are outside of the surface that cause an error.  I'd like to be able to ID them as they come by rather than just have the program run and find out when it's done. 

Also I'm running into a problem declaring the surface.  I didn't have this problem before and I'm not sure what changed but that's a seperate issue.

[Anonymous · Accepted solution]

Talked to a computer programmer who gave me this.

Option Explicit
Dim oWorkSurf As WorkSurface
Dim oWorkSurfs As WorkSurfaces
Dim oSurfBody As SurfaceBody
Dim oSurfBodies As SurfaceBodies
Dim oCompDef As ComponentDefinition
Dim oPartCompDef As PartComponentDefinition
Dim oPartDoc As PartDocument
Dim oSplitFeat As SplitFeature


Public Sub SplitAllFaces()
    On Error GoTo err_SplitAllFaces

    Set oPartDoc = ThisApplication.ActiveDocument
    Set oPartCompDef = oPartDoc.ComponentDefinition
    Set oSurfBodies = oPartCompDef.SurfaceBodies
    Set oWorkSurfs = oPartCompDef.WorkSurfaces
    
    Set oWorkSurf = oWorkSurfs.Item("Srf5")
    
    For Each oSurfBody In oSurfBodies
        
        Set oSplitFeat = oPartCompDef.Features.SplitFeatures.SplitBody(oWorkSurf, oSurfBody)
    
    Next oSurfBody
    
end_SplitAllFaces:
    Exit Sub

err_SplitAllFaces:
    Select Case Err.Number
    Case -2147467259  'Place holder for no split surface
        Resume Next
    Case Else
      MsgBox ("Error ")
      Resume end_SplitAllFaces
    End Select
End Sub