---

Hallo alle zusammen,

Ich bin neu hier und ich fand noch keine passende Lösung auf mein Problem, deswegen frag ich einfach mal selber.

Und zwar möchte ich einfach nur das der Speicherort meiner zeichnung als Textfeld automatisch in meiner Zeichnung ist.
Es gibt ja die Möglichkeit über den Befehl <w@$SH_part_name> sich den Namen anzuzeigen. Dann habe ich auch noch gehört das man mit Hilfe der Expression ug_askCurrentWorkPart man auch einen Ausdruck erstellen kann den man dann anrufen kann. Aber geht sowas auch mit dem Speicherort oder muss man da etwas mehr machen um in abzurufen.
Am besten wäre mir eine ähnlich simple Lösung wie bei dem teile Namen 
Danke schonmal im Voraus

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

---

Hallo Jochen141

Ist das Native denke ich, nicht mit Teamcenter?

------------------
gruss urs 

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

---

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim pfad As String = workPart.FullPath
System.Windows.Forms.MessageBox.Show(pfad)

End Sub
End Module

------------------
gruss urs 

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

---

Danke für die Antwort

Aber wenn ich das bei Journal eingebe, dann zeigt er mir den Speicherort in einem extra Fenster an und dann kam ich ok drücken und das wars. Wie kann ich jetzt dafür sorgen das er das in einem Textfeld von meinem Schriftkopf anzeigt? Bzw. kann ich dafür sorgen das er den Speicherort als Expression oder Attribut erstellt, damit ich das dann im Textfeld abrufe.

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

---

Expression oder Attribut?

------------------
gruss urs 

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

---

'nachfolgende Anpassung mit Attribut

Option Strict Off

Imports System
Imports NXOpen
Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim pfad As String = workPart.FullPath
'System.Windows.Forms.MessageBox.Show(pfad)

'Attribute
workPart.SetAttribute("mein_pfad", pfad)

End Sub
End Module

------------------
gruss urs 

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

---

Vielen Dank   
Hat super funktioniert. Jetzt überlege ich nur noch ob das selbe auch mit dem Datum an dem die Datei erstellt wurde funktioniert. Das wäre dann wirklich perfekt.
Aber trotzdem schonmal danke

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

---

Option Strict Off

Imports System
Imports System.Windows
Imports System.Windows.Forms
Imports NXOpen
Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim pfad As String = workPart.FullPath
'MessageBox.Show("pfad = " + pfad)

'Attribute "pfad" schreiben
workPart.SetAttribute("mein_pfad", pfad)

'Abfrage File Info
Dim fileDetail As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(pfad)

Dim CreationTime As String = fileDetail.CreationTime
'MessageBox.Show("CreationTime = " + CreationTime)

Dim LastWriteTime As String = fileDetail.LastWriteTime
'MessageBox.Show("LastWriteTime" + LastWriteTime)

'Attribute "CreationTime" erstellen
workPart.SetAttribute("CreationTime", CreationTime)

'Attribute "LastWriteTime" erstellen
workPart.SetAttribute("LastWriteTime", LastWriteTime)

End Sub
End Module

------------------
gruss urs 

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

---

Super!
Hat einwandfrei funktioniert. Nochmal vielen Dank 

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