Code:
Option Strict Off
Imports System
Imports NXOpenModule NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")
Dim expression1 As Expression = CType(workPart.Expressions.FindObject("AD"), Expression)
Dim markId2 As Session.UndoMarkId
Dim nErrs1 As Integer
Dim AD_neu as Single
AD = ?????? ' der wert für AD soll ausgelesen werden
AD_neu=AD+20
workPart.Expressions.Edit(expression1, AD_neu)
nErrs1 = theSession.UpdateManager.DoUpdate(markId2)
theSession.DeleteUndoMark(markId2, "Update Expression Data")
End Sub
End Module