Delete Blended Faces Example (VB.NET)

This example shows how to delete blended faces.

NOTE: You can only delete blended faces from a temporary body.

'----------------------------------------

' Preconditions:

' 1. Part is open.

' 2. Part only contains one solid body.

' 3. At least one blended (filleted) face on the part is selected.

'

' Postconditions:

' 1. New part is created.

' 2. New part has same body as original part

'    but with the selected blended faces removed.

'

' NOTE:  It might not be possible to remove the

' selected blended faces. If they're not removed, then

' the new body will be the same as the original

' body.

'----------------------------------------

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

 

Partial Class SolidWorksMacro

 

    Public Sub main()

 

        '   1 = Invisible

        '   0 = Visible

        Const CreateVisible As Long = 0

        Const sAttDefName As String = "temp_attrib"

        Const sAttRootName As String = "temp"

        Dim swAttDef As AttributeDef

        Dim swModel As ModelDoc2

        Dim swSelMgr As SelectionMgr

        Dim swPart As PartDoc

        Dim nSelCount As Long

        Dim swFace As Face2

        Dim swEnt As Entity

        Dim swAtt() As SolidWorks.Interop.sldworks.Attribute

        Dim vFaceArr As Object

        Dim swFeat As Feature

        Dim vBodies As Object

        Dim swBody As Body2

        Dim swCopyBody As Body2

        Dim swNewPart As PartDoc

        Dim i As Long

        Dim bRet As Boolean

 

        swAttDef = swApp.DefineAttribute(sAttDefName)

        swModel = swApp.ActiveDoc

        swSelMgr = swModel.SelectionManager

        swPart = swModel

        bRet = swAttDef.Register : Debug.Assert(bRet)

 

        ' Add attribute to selected faces

        nSelCount = swSelMgr.GetSelectedObjectCount

        ReDim swAtt(nSelCount)

        For i = 1 To nSelCount

            swFace = swSelMgr.GetSelectedObject6(i, -1)

            swEnt = swFace

            swAtt(i - 1) = swAttDef.CreateInstance5(swModel, swEnt, sAttRootName & i, CreateVisible, swInConfigurationOpts_e.swAllConfiguration) : Debug.Assert(Not swAtt(i - 1) Is Nothing)

        Next i

        vBodies = swPart.GetBodies2(swBodyType_e.swAllBodies, False)

        swBody = vBodies(0)

        swCopyBody = swBody.Copy

 

        ' Remove attribute from faces

        For i = 1 To nSelCount

            bRet = swAtt(i - 1).Delete(True) : Debug.Assert(bRet)

        Next i

        vFaceArr = GetFacesWithAttribute(swApp, swCopyBody, swAttDef)

        Debug.Assert(nSelCount = UBound(vFaceArr) + 1)

 

        ' Can only delete blends from a temporary body

        Debug.Assert(swCopyBody.IsTemporaryBody)

        bRet = swCopyBody.DeleteBlends3(vFaceArr, True, True) : Debug.Assert(bRet)

        swNewPart = swApp.NewPart

        swFeat = swNewPart.CreateFeatureFromBody3(swCopyBody, False, swCreateFeatureBodyOpts_e.swCreateFeatureBodyCheck) : Debug.Assert(Not swFeat Is Nothing)

 

    End Sub

 

    Public Function GetFacesWithAttribute(ByVal swApp As SldWorks, ByVal swBody As Body2, ByVal swAttDef As AttributeDef) As Object

        Dim swFace As Face2

        Dim swEnt As Entity

        Dim swAttCopy As SolidWorks.Interop.sldworks.Attribute

        Dim swFaceArr() As Face2

 

        ' Search for faces on temporary body based on copied attributes

        ReDim swFaceArr(0)

        swFace = swBody.GetFirstFace

        Do While Not Nothing Is swFace

            swEnt = swFace

            swAttCopy = Nothing

            ' Only one instance of attribute should exist

            swAttCopy = swEnt.FindAttribute(swAttDef, 0)

            If Not swAttCopy Is Nothing Then

                swFaceArr(UBound(swFaceArr)) = swFace

                ReDim Preserve swFaceArr(UBound(swFaceArr) + 1)

            End If

            swFace = swFace.GetNextFace

        Loop

        Debug.Assert(UBound(swFaceArr) >= 1)

        ReDim Preserve swFaceArr(UBound(swFaceArr) - 1)

        GetFacesWithAttribute = swFaceArr

    End Function

 

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

 

End Class