Hallo Zusammen,
ich möchte ein Journal schreiben das folgendes können soll:
Eine InputBox öffnet sich und fragt nach dem Durchmesser.
Ich gebe den Wert für den Durchmesser ein.
NX erstellt einen Parameter (Tools/Expressions) mit dem Namen "Diameter" und dem Wert den ich vorher in der InputBox eingegeben habe.
Momentan habe ich das hier:
Das problem liegt denke ich an der fett und kursiv markierten Stelle.
' NX 8.5.1.3
Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String)
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
' ----------------------------------------------
' Menu: Tools->Expression...
' ----------------------------------------------
Dim message, title, defaultValue, myValue As String
message = "Dateneingabe"
title = "Durchmesser angeben"
defaultValue = "20"
myValue = InputboX(message, title, defaultValue)
If myValue is "" Then myValue = defaultValue
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")
Dim unit1 As Unit = CType(workPart.UnitCollection.FindObject("MilliMeter"), Unit)
Dim expression1 As Expression
expression1 = workPart.Expressions.CreateWithUnits("diameter=myValue", unit1)
Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Update Expression Data")
Dim nErrs1 As Integer
nErrs1 = theSession.UpdateManager.DoUpdate(markId2)
theSession.DeleteUndoMark(markId2, "Update Expression Data")
Dim markId3 As Session.UndoMarkId
markId3 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Update Expression Data")
Dim nErrs2 As Integer
nErrs2 = theSession.UpdateManager.DoUpdate(markId3)
theSession.DeleteUndoMark(markId3, "Update Expression Data")
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module
setze ich an der fett kursiven Stelle statt diameter=myValue ein diameter=50 ein erstellt er den Parameter aber eben immer mit konstant 50mm
Jemand eine Idee?
PS: Entwicklungsumgebung folgt erst in ein paar Tagen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP