---

Moin Leute,

in Sache VB bin ich ein leidiger anfänger. Mit großer mühe habe ich es geschafft ein VB-Skript zu erstellen für meine Gewichtsberechnung.

Ich habe nur leider einen kleinen Haken beim errechnen:
    UG nimmt jedes Part nur einmal in die Berechnung,...
    (    For Each a_part As Part In s.Parts  )
    kann mir jemand sagen, wie ich die Anzahl der Teile abfragen kann?

Grundsätzlich wird das Gewicht der Teile bei uns auf ein Attribut gelegt und die Attribute lasse ich dann einfach aufeinander addieren. Daher auch der Fehler. Wir arbeiten nur mit Symbolischen Parts, daher kann ich das Gewicht nicht aus UG direkt bekommen.

Bin für jede Antwort dankbar...

Gruß und schönes Wochenende

Patric

------------------
E-Mail: patric.tilge@imtech.de
Internet: http://www.imtech.de

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

---

Hallo Patric,

Du kannst Dir eine PartCollection mit allen Parts der Session geben lassen und
dann über die Wandlung in ein Array die Länge abfragen und erhälst somit die Anzahl der Teile
in der Session, z.B. so:

--------------------------------------------------
Option Strict off
Imports System
Imports System.Reflection
Imports System.Windows.Forms
Imports NXOpen

Module NXEXample
Sub Main
  Dim theSession as Session
  Dim anzahlParts As Integer
  Dim message as String

  theSession = Session.GetSession()

  ' Anzahl Teile in der Session ermitteln
  anzahlParts  = theSession.Parts.ToArray().Length

  ' Messagebox mit Info ausgeben
  message = "Sie haben " & anzahlParts.ToString() & " Teile in der Session geladen"
  MessageBox.Show(message,"Info")

End Sub
End Module

Gruss Hardy

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

---

Wenn ich dich jetzt richtig verstanden habe bekomme ich als Ergebnis die Anzahl geladener Teile. Ich brauche aber die Anzahl der gleichen Teile.
Also wenn ich meine Partinformationen abrufe mit,
For Each a_part As Part In s.Parts,
muss ich gleichzeitig fragen, wie viele gleiche Schrauben noch in der Baugruppe sind.

Gruß Patric

------------------
E-Mail: patric.tilge@imtech.de
Internet: http://www.imtech.de

[Diese Nachricht wurde von master001 am 30. Nov. 2008 editiert.]

[Diese Nachricht wurde von master001 am 01. Dez. 2008 editiert.]

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

---

Hallo Patric,

Die PartCollection gibt Dir die geladenen Parts der Session an. Das beinhaltet jedoch nicht die Zahl die angibt, wie oft ein Part verbaut ist. Dazu müßte das Assembly durchsucht und die einzelnen Komponenten erfasst werden.
Außerhalb der NX- Session gibt's dazu schon was fertiges namens ugpc.exe. Mit der Option -n gestartet, gibt ugpc die Komponenten zusammen mit ihrer jeweiligen Anzahl aus. Also:

ugpc.exe -n partname

Wenn's aus NX heraus gestartet werden soll, ist es möglich, die Assembly- Struktur selbst zu durchsuchen oder einfacher die ugpc aus z.B. einem Journal heraus zu starten.

Gruß, Michael

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

---

Das Stichwort ist hier Assembly -> Component -> Part

Dim theSession As Session
theSession = Session.GetSession()

Dim ufs As UFSession
ufs = UFSession.GetUFSession()

Dim DisplayPart As part
DisplayPart = theSession.Parts.Display

Dim CompRoot As Component
CompRoot = DisplayPart.ComponentAssembly.RootComponent

Dim CompImmediate() As Component
Dim CompQty As Integer

CompImmediate = CompRoot.GetChildren()
CompQty = Ubound(CompImmediate)

Dim CompTmp As Component
Dim CompMasterPart as Part

For Each CompTmp In CompImmediate

CompMasterPart = CompMasterObject.Prototype

Next

Achtung die Prototype Eigenschaft verursacht einen Fehler bei nicht geladenen Komponenten. Hier ist evtl. mit einer Try Catch Funktion ein Fehler abzufangen. Außerdem muss darauf geachtet werden, dass GetChildren() auch Refernce Komponenten ausspuckt. Diese kann man aber durch die entsprechenden Text - Attribute erkennen.

Gruß

Matthias

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