'Auswerferabmessungen ändern
    
Private Sub Abmessung_AW(workpart As Part, ByVal Titel As String, ByVal Wert As Double)

        Dim E As Double
        For Each ex As Expression In workpart.Expressions
            If ex.Name = "E" Then
                E = CDbl(ex.Value)
            End If
        Next



        Dim objects1(0) As NXObject
        objects1(0) = workpart
        Dim attributePropertiesBuilder1 As AttributePropertiesBuilder
        attributePropertiesBuilder1 = workpart.PropertiesManager.CreateAttributePropertiesBuilder(objects1)

        attributePropertiesBuilder1.Category = "Auswerferabmessung"
        attributePropertiesBuilder1.Title = Titel
        attributePropertiesBuilder1.Units = "MilliMeter"
        attributePropertiesBuilder1.IsArray = False
        attributePropertiesBuilder1.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.Number



        If Titel = "L" Then
            attributePropertiesBuilder1.NumberValue = Wert - E
        Else
            attributePropertiesBuilder1.NumberValue = Wert
        End If


        Dim changed1 As Boolean
        changed1 = attributePropertiesBuilder1.CreateAttribute()

        Dim nXObject1 As NXObject
        nXObject1 = attributePropertiesBuilder1.Commit()

        attributePropertiesBuilder1.Destroy()

    End Sub