Journal to Delete Basic Curves

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module Module1

    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim featTag As Tag = Tag.Null

        For Each myCurve As Curve In workPart.Curves
            theUfSession.Modl.[highlight #FCAF3E]AskObjectFeat(myCurve.Tag, featTag)[/highlight]
            If featTag = Tag.Null Then
                'curve is unused
                myCurve.Highlight
            End If
        Next

    End Sub


End Module