---

-

[Diese Nachricht wurde von NXESPRESS am 12. Jun. 2014 editiert.]

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

---

In UF_UI könnte was dabei sein.

Gruß, Michael

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

---

Zitat:

---

Original erstellt von mseufert:
In UF_UI könnte was dabei sein.

Gruß, Michael

---

Hallo Michael,

genau da habe ich auch als erstes geschaut und auch etwas äußerst vielversprechendes gefunden:
UF_UI_ask_open_part_filename()
"Displays the File-->Open File Selection Dialog."

Leider wirft mir NX einen Fehler bei der Ausführung:
"UF_UI[...] ist nicht deklariert. Auf das Objekt kann aufgrund der Schutzstufe nicht zugegriffen werden".

Habe aber alles Public...

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

---

probier mal:

Code:

---

Option Strict Off
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UFUI

Module har_PrintAllDrawings

Dim theSession As Session = Session.GetSession()
Dim theUFSession As UFSession = UFSession.GetUFSession()
Dim defaultPrinterName As String = ""

Sub Main()

Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
Dim intResponse As Integer

theUFSession.Ui.AskOpenPartFilename("hallo", False, intResponse)

MsgBox(intResponse)

End Sub

End Module

---

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

---

Hallo jo.sch,

leider wirft die Zeile theUFSession.Ui.AskOpenPartFilename("hallo", False, intResponse)
folgenden Fehler:
NXOpen.NXException: Internal error
  bei NXOpen.UF.UFUi.AskOpenPartFilename(String& file_name, Boolean& unused, Int32& response)
  bei har_PrintAllDrawings.Main() in C:\temp\tcua\NXJournals3020\journal.vb:Zeile 18.

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

---

Bei mir geht es (NX8.5)
Vielleicht geht es nicht mit Teamcenter?

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

---

Zitat:

---

Original erstellt von jo.sch:
Bei mir geht es (NX8.5)
Vielleicht geht es nicht mit Teamcenter?

---

Das wäre natürlich ultra-bitter, nutze auch NX8.5 ...
versuche es gerade mal ohne TC

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

---

Zitat:

---

Original erstellt von NXESPRESS:

Das wäre natürlich ultra-bitter, nutze auch NX8.5 ...
versuche es gerade mal ohne TC

---

Mist, es ist Tatsache: Liegt an TC 

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

---

schau mal in der API nach "UFUgmgr" und / oder "NXOpen.PDM"
Was passiert denn, wenn du ein journal davon aufzeichnest?

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

---

Zitat:

---

Original erstellt von jo.sch:
schau mal in der API nach "UFUgmgr" und / oder "NXOpen.PDM"
Was passiert denn, wenn du ein journal davon aufzeichnest?

---

Das Journal bietet leider wenig Aufschluss, das habe ich als allererstes versucht:

Code:

---

Dim theSession As Session = Session.GetSession()
' ----------------------------------------------
'  Menu: File->Open...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")
theSession.SetUndoMarkName(markId1, "Open Part File Dialog")
theSession.UndoToMark(markId1, Nothing)
theSession.DeleteUndoMark(markId1, Nothing)
theSession.DeleteUndoMark(markId1, Nothing)

' ----------------------------------------------
'  Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

---

Da fehlt doch was... oder habe ich hier einen Knick in der Optik?

In der NXOpen.PDM kann ich leider nichts gutes finden,
jedoch scheint die UFUgmgr nicht ganz verkehrt zu sein.
Es gibt hier einige Wrapper-Methoden für die ask... Methoden, jetzt darfst du 3 mal raten, welche nicht dabei ist. Richtig: Ask_open_part [...] 

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

---

So, habe nun fast die komplette Referenz durchforstet, kann nichts finden. Die Journal-Erstellung macht es sich auch extrem einfach, der File-Dialog wird gekonnt ignoriert, stattdessen wird einfach der eingetragene Wert übergeben:

Code:

---

theSession.Parts.SetNonmasterSeedPartData("@DB/[...]")
Dim basePart1 As BasePart
Dim partLoadStatus1 As PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay("@DB/[...]", partLoadStatus1)
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
partLoadStatus1.Dispose()

---

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

---

Hallo,

bei funzt es mit TC 9.

Code:

---

int _response = 0;
string _filename = string.Empty;
bool _unused = false;
theUFSession.Ui.AskOpenPartFilename(ref _filename, ref _unused, out _response);
MessageBox.Show(_filename);

---

Wichtig ist in C# ref und out bzw. VB ByRef

------------------
Gruß Robert

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