Imports NXOpen
Imports NXOpen.UF

Module NXJournal
    Sub Main()
        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim ufs As UFSession = UFSession.GetUFSession()
        Dim instanceTag As Tag = Tag.Null
	Dim info As ListingWindow = theSession.ListingWindow

        ufs.Part.AskFamilyInstance(workPart.Tag, instanceTag)
        If (instanceTag <> Tag.Null) Then
            ufs.Fam.DeleteInstance(instanceTag)
            info.Open()
    	    info.WriteLine(" Verbindungstag zur Teilefamilie war: " & instanceTag & ". Er wurde entfernt. ")
	    info.WriteLine(" Part ist nach speichern kein Kind mehr. ")
        ELSE
	    info.Open()
    	    info.WriteLine("Keine Teilefamilienverbindung vorhanden")
	End If
    End Sub
End Module