---

list_part_rev.JPG

hallo zusammen

bin mich am einarbeiten in die ugmgr funktion, kann mir jemand helfen:

leider stolpere ich schon bei einem einfachen Befehl, wer kann mir auf die Sprünge helfen?

-------------------------

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow

Sub Main()

Dim part_revision As String = "869604/00"
Dim file_count As Integer
Dim file_types As String()
Dim file_names As String()

' listen der
ufs.Ugmgr.ListPartRevFiles(part_revision, file_count, file_types, file_names)

' hier folgt dan die ausgabe im lw

End Sub
End Module

--------------------------

vielen dank im voraus....

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

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

---

Mit dem Parameter Part_Revison ist die Part Revision ID gemeint.
Die bekommst du mit

Code:

---

TheUFSession.Ugmgr.AskPartRevisionId(revisions[i], out revision_id);

---

und mit

Code:

---

TheUFSession.Ugmgr.ListPartRevisions(database_part_tag, out revision_count, out revisions);

---

und den database_part_tag mit

Code:

---

TheUFSession.Ugmgr.AskPartTag(ItemID, out database_part_tag);

---

du musst diche praktisch von oben nach unten durchhangeln...

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

---

hallo matthias-p

vielen dank für deine antwort, das hilft mir weiter.
aber ich habe trotzdem noch fragen, die ausgabe habe ich noch falsch:

--------------ausgabe-----------

database_part_tag = 172577
revision_count = 2
revisions = NXOpen.Tag[]
revision_id = System.Char[]
file_count= 2
file_types = System.String[]
file_names = System.String[]

-------------code--------------

Option Strict Off

Imports System
Imports System.Windows
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF

Module NXJournal

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow

Sub Main()

lw.Open()

'database_part_tag abholen

Dim ItemID As String = 869604
Dim database_part_tag As String
ufs.Ugmgr.AskPartTag(ItemID, database_part_tag)
lw.WriteLine("database_part_tag = " + database_part_tag)

' ListPartRevisions abholen

Dim revision_count As Integer
Dim revisions As Tag()
ufs.Ugmgr.ListPartRevisions(database_part_tag, revision_count, revisions)

lw.WriteLine("revision_count = " + revision_count.ToString())

lw.WriteLine("revisions = " + revisions.ToString())
'MessageBox.Show("revisions = " + revisions.ToString())

' PartRevisionId abholen

Dim i As Integer
Dim revision_id As char()
ufs.Ugmgr.AskPartRevisionId(revisions(i), revision_id)

lw.WriteLine("revision_id = " + revision_id.ToString())

' ListPartRevFiles

Dim file_count As Integer
Dim file_types As String()
Dim file_names As String()

ufs.Ugmgr.ListPartRevFiles(revisions(0), file_count, file_types, file_names)

lw.WriteLine("file_count= " + file_count.ToString())
lw.WriteLine("file_types = " + file_types.ToString())
lw.WriteLine("file_names = " + file_names.ToString())

End Sub
End Module

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

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

---

Code:

---

revisions = NXOpen.Tag[]
revision_id = System.Char[]
file_types = System.String[]
file_names = System.String[]

---

Diese Elemente sind Arrays (zu Deutsch: Datenfelder). Diese musst du mit einer Schleife durchlaufen.

Anbei ein Link von Galileo Open Book...das sind Grundlagen der Sprache VB.NET

OpenBook

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

---

hallo matthias

danke....das mit den arrays und schleifen habe ich verstanden.
krieg ich aber nicht hin, kannst du mir bei "revisions" helfen, damit ich das prinzip verstehe, danke.

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

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

---

ok, bin ein stück weiter...

stimmt denn diese reihenfolge:

Ugmgr.AskPartTag
  Ugmgr.ListPartRevisions
    Ugmgr.AskPartRevisionId
      ufs.Ugmgr.ListPartRevFiles

kann "Ugmgr.AskPartRevisionId" nicht übersprungen werden?

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

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
Imports NXOpen.UF

Module NXJournal

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow

Sub Main()

lw.Open()

'database_part_tag abholen

Dim ItemID As String = 869604
Dim database_part_tag As String

ufs.Ugmgr.AskPartTag(ItemID, database_part_tag)

lw.WriteLine("database_part_tag = " + database_part_tag)

' ListPartRevisions abholen

Dim revision_count As Integer
Dim revisions As Tag()

ufs.Ugmgr.ListPartRevisions(database_part_tag, revision_count, revisions)

lw.WriteLine("revision_count = " + revision_count.ToString())

' schleife durch array "revisions"

Dim index As integer

For index = 0 To revisions.GetUpperBound(0)

lw.WriteLine("S1/Revision " + index.ToString)
    lw.WriteLine(revisions(index))

' PartRevisionId abholen

Dim revision_id As char()

ufs.Ugmgr.AskPartRevisionId(revisions(index), revision_id)

Dim index2 As integer

For index2 = 0 To revision_id.GetUpperBound(0)

'lw.WriteLine("----------------------------------")
lw.WriteLine("S2 revision_id " + index2.ToString)
    lw.WriteLine(revision_id(index2))

Next

Next

End Sub
End Module

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

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