TRIMSOLID Error With VBA

[Olsndot]

Hi,All.

I'm trying to trim SolidBody with SurfaceBody, but an error occurs.

In the case of using WorkSurface ,this code works.

Whats wrong with this code?

Sub Trim_Solid()

    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oDef As PartComponentDefinition
    Set oDef = oDoc.ComponentDefinition
    
    Dim oFace As Face
    Set oFace = ThisApplication.CommandManager.Pick _
    (SelectionFilterEnum.kAllEntitiesFilter, "Select a surface")
    
    Dim oSBody As SurfaceBody
    Set oSBody = oFace.Parent

    Dim oSplitFeature As SplitFeature
    Set oSplitFeature = oDef.Features.SplitFeatures.TrimSolid(oSBody, oDef.SurfaceBodies.Item(1), True)
      
End Sub

[Sergio.D.Suárez · Accepted solution]

Hi, try this code maybe I can serve you.

Sub Trim_Solid()

    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oDef As PartComponentDefinition
    Set oDef = oDoc.ComponentDefinition
    
        
    Dim oFace As Face
    Set oFace = ThisApplication.CommandManager.Pick _
        (SelectionFilterEnum.kPartFaceFilter, "Select a surface")
        
    Dim oWS As WorkSurface
    Dim oSplitFeature As SplitFeature

    For Each oWS In oDef.WorkSurfaces
        
        If oWS.SurfaceBodies(1).Name = oFace.SurfaceBody.Name Then
            Set oSplitFeature = oDef.Features.SplitFeatures.SplitBody(oWS, oDef.SurfaceBodies.Item(1))
        End If
    Next

End Sub

I hope this helps. Grettings!

[Olsndot]

Thank you,Sergio.

I had no idea there is such a way!

I appreciate your help!