---

Hey,

ich bin gerade dabei mein Programm ein bisschen nutzerfreundlicher zu machen. Dabei möchte ich beim Aufrufen von PointConstruct eine von mir vergebene Anweisung in der Anweisungszeile stehen haben. Normalerweise würde ich gemäß nachfolgenden Codes erwarten, dass in der Anweisungszeile "Select a point" steht. Jedoch ist der Text ein komplett anderer. Kann mir jemand helfen, wie ich das hinbekomme?

Code:

---

Dim cue As String = "Select a point"
   
nxopenSession.Ui.PointConstruct(cue, nxopenSession.Ui.PointBaseMethod.PointCursorPos, point_tag, base_pt, response)

---

Grüße, Andreas
       

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

versuch's mal über UFSession.GetUFSession.UI. Da gibt's ein setprompt(..) oder ähnlich.

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michael,

ich bin deinem Tipp mal nachgegangen. Soweit funktioniert es auch. Allerdings ist es so, dass der Text von SetPrompt und SetStatus für eine Millisekunde erscheint und beim Auftauchen des Fensters von PointConstruct durch dessen Anweisung ersetzt wird. Auch nach Abschluss der Punktauswahl ist der Text von SetPrompt wieder sichtbar. Allerdings ist das ja nicht die Stelle, an der ich die Anweisung haben möchte.

Code:

---

UFSession.GetUFSession.Ui.SetPrompt("Message for prompt line")
UFSession.GetUFSession.Ui.SetStatus("Message for status line")

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Anweisung.PNG

Ich hatte mir das eher so, wie bei dieser Selektierfunktion (s. Anhang), vorgestellt. Aber das sollte doch auch bei pointconstruct funktionieren.

Code:

---

Dim message As String = "Hier steht die Anweisung"            
Dim title As String = "Hier der Titel"           

theUI.SelectionManager.SelectObject(message, title, scope, _
                                                keepHighlighted, selectionMask_array, _
                                                selectedObject, cursor)

---

[Diese Nachricht wurde von Andreas NX am 17. Dez. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

PointConstruct hat eben nur den einen String, und der überschreibt, was vorher da war.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

versuch die Funktion:

Code:

---

theUFSession.UF.PointSubfunction(...)

---

------------------
Gruß
Wladimir

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen lieben Dank Wladimir,

du hast mir mal wieder geholfen! Mein Text wird nun abgegrenzt mit einem Bindestrich vor den ursprünglichen Text gesetzt. Das reicht für meine Anwendung! Auch nochmal Dank an Michael! Ohne Euch/dieses Forum wäre ich nicht so weit mit meiner Thesis gekommen.

Grüße, Andreas

Falls nochmal jemand mal das Problem hat, hier der etwas ausführlichere Code:

Code:

---

Dim mode1() As Integer = {0, 0}
Dim pointDisplayMode As Integer = 0
Dim pt1(2) As Double

theUfSession.Ui.PointSubfunction("Hier der Text!", mode1, pointDisplayMode, pt1)

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP