---

Hi,
per VB lese ich alle Parts eines Products aus (inkl. zugehöriger Daten wie Name, Masse, Schwerpunkt, ...).

For i = 1 To CATIA.ActiveDocument.Product.Products.Count
...
Dim InstanzenName = CATIA.ActiveDocument.Product.Products.Item(i).Name
...

Next

Das dauert allerdings so relativ lange... Gibt es eine schnellere Lösung dafür?

Danke im Voraus 

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

---

Sieht soweit ganz OK aus.

Ein paar Fragen:

- was ist relativ?
- wieviele Teile sind's denn?
- steht irgendwo ein 'Debug.Print' o.ä.?

Zeig mal deinen Code.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo,

man könnte auch alle geladenen Dokumente durchgehen.

For each oDoc in CATIA.Documents

  Select Case TypeName(odoc)
      case "PartDocument":  mach irgendwas mit dem Part
      case "ProductDocument": mach irgendwas mit dem Product
      case else: mach was anderes
  End Select

Next

Allerdings sollte man dann bevor man das Makro auf eine Baugruppe loslässt die CATIA Sitzung neu starten, damit nicht noch andere (nicht zu der Baugruppe gehörenden) Teile mit ausgelesen werden.

Bei deiner Vorgehensweise führst du unter Umständen das Auslesen der Parameter mehrfach durch (wenn z.B. ein Part 5 mal in der Baugruppe verbaut ist).

Andere Vorgehensweise wäre den Dateinamen der bereits ausgelesenen Parts zwischenzuspeichern und VOR dem Auslesen des nächsten Modells den Dateinamen zu überprüfen (ob dieses bereits ausgelesen/bearbeitet wurde) und ggf. zu überspringen.

Gruß
Randle

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

---

- was ist relativ?
Braucht bei 80 Parts schon ca. 15 Sekunden... denke dass muss auch irgendwie schneller gehen.

- wieviele Teile sind's denn?
Unterschiedlich... in dem Beispiel ca 80

- steht irgendwo ein 'Debug.Print' o.ä.?
Nein

@Randle: Interessant. Ist das schneller als meine Methode?

DANKE für die Hilfe 

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

---

Hallo,

nachdem nicht klar ist was Du wie ausliest,
kann ich Dir nicht weiterhelfen.

Ich brauch für 38 Parts ca. 0.015 sec.
Dabei wird 2x die Schleife durchlaufen. Ausgelesen werden je 4 Eigenschaften.

Voraussetzung: Arbeitsmodus 'Design'.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus
Was ist bei dir langsam?
Die Schleife durch die Products oder machst du noch mehr in der Schleife?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

@Randle: Interessant. Ist das schneller als meine Methode?

Das wäre nicht unwahrscheinlich. Aber solange du nicht, wie von anderen schon erwähnt, uns deinen Quellcode zeigst ist das nicht mit absoluter Sicherheit zu sagen. 15 Sekunden für 80 Parts finde ich (zu)viel, unabhängig davon welche (also auch eine "schlechte/re") Methode man verwendet.

Gruß
Randle

[Diese Nachricht wurde von Randle am 12. Dez. 2015 editiert.]

[Diese Nachricht wurde von Randle am 14. Dez. 2015 editiert.]

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

---

Ich lese für jedes Part diese Infos aus:
Name
Instanzname
Filename
Masse
über Analyze.Mass()
Schwerpunktslage
über ReferenceProduct.Analyze.GetGravityCenter(...)
Trägheitsmatrix
über ReferenceProduct.Analyze.GetInertia(...)
Ursprung
über Position.GetComponents(...)
Orientierung
über Position.GetComponents(...)
Farbe
Über

Code:

---

        Dim oSel = CATIA.ActiveDocument.Selection

        oSel.Search("Name=" & obj.Name & ",all")

        Dim visProp As VisPropertySet
        visProp = oSel.VisProperties

        visProp.GetVisibleColor(r, g, b)

---

Braucht ihr noch mehr Infos?

[Diese Nachricht wurde von cscp am 15. Dez. 2015 editiert.]

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

---

Hallo,

ich hab Dich vor knapp 2 Wochen aufgefordert, uns Deinen Code zu zeigen.
Gemeint war, die Routine mit der Du das alles ermittelst.

Wenn wir Dir sagen sollen wo Du die Zeit verlierst, musst Du uns zeigen wie Du bisher vorgehst.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

War leider nicht im Haus... deswegen erst jetzt...
Naja wie gesagt, ich hab diese Schleife

Code:

---

For i = 1 To parentProduct.Products.Count
            Dim partObj = parentProduct.Products.Item(i)

            Dim instName= partObj.Name
            Dim prodName= partObj.ReferenceProduct.Name
            Dim fileName= partObj.ReferenceProduct.Parent.Name
            Dim mass = GetMassV2(partObj)
            Dim cg= GetCGV2(partObj)
            Dim inertia= GetInertiaV2(partObj)
            Dim orientation= GetOrientationV2(partObj)
            Dim origin= GetOriginV2(partObj)
            Dim custColor= GetColor(partObj)
Next

---

Wie die Funktionen auf die einzelnen Daten kommen, habe ich ja schon im vorhergehenden Beitrag geschrieben.

Wird noch etwas gebraucht?

Vielen Dank schon Mal!

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

---

Hallo,

.. und jetzt wär noch interesant zu wissen, womit Du programmierst.
VB6/VBA versteht das nicht.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus
Meiner Ansicht nach sind die langsamen Sachen in deiner Schleife "GetMass", "GetInertia" und "GetColor".
"GetColor" kann vermutlich schneller gehen wenn du die Suche weg lässt und einfach das Product selektierst ("oSel.Add partObj").
Um herauszufinden welcher schritt langsam ist kannst du ja nach jedem Schritt dir ein Timestamp ausgeben (MsgBox, Konsole, Textdatei, ..) lassen.

Gruß
Bernd

PS: ggf kannst du auch den Export der Trägheitsmessung verwenden. Leider wird da AFAIR nur der Exemplarname ausgegeben.

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hey, doch das ist VB in einer DLL verpackt.

@bgrittmann: Lassen sich Masse etc. auch performanter auslesen?

Beste Grüße

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

---

Servus
Ist das bei allen Products so? Oder nur bei Unterbaugruppen?
Du kannst mal testen ob die Messungen über die SPAWorkbench schneller gehen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

die VB-Functionen sind immer in einer DLL, zB vba6.dll, vb6ide.dll.

Ein Dim mit gleichzeitiger Zuweisung des Wertes ist in VB6/VBA nicht zulässig.

Das

Code:

---

Dim instName= partObj.Name

---

geht in VB6/VBA nicht.

Nochmal: Womit programmierst Du?

Weiterhin:
Die Funktionen GetMassV2, GetCGV2, GetInertiaV2, GetOrientationV2, GetOriginV2, GetColor sind nicht Teil von der CAA,
also vermutlich Eigengewächse in Deiner Spezial-DLL.

Um sagen zu können, wo die Zeit verloren geht, müsste der Quell-Code dieser Funktionen bekannt sein.
So ist nix nachvollzieh- oder beurteilbar.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Um mal die Ausgangsfrage zu beantworten:

Ja, kann sein.

Nachfolgen ein VBA6.5-Skript zur Demo:

Code:

---

Sub catmain()
  Dim oProd As Product
  Dim strInstName As String
  Dim strRefProdName As String
  Dim strRefParentNum As String
  Dim oInertia As AnyObject
  Dim dblMass As Double
  Dim dCoord(2)
  Dim tmStart As Single
  Dim tmEnd As Single
  Dim oSel As Selection
  Dim oVisProps As Object                                'VisPropertySet
  Dim lClr(2) As Long
  Dim i As Integer
  Dim n As Integer

  tmStart = Timer
  For i = 1 To CATIA.ActiveDocument.Product.Products.Count

      Set oProd = CATIA.ActiveDocument.Product.Products.Item(i)
      strInstName = oProd.Name
      strRefProdName = oProd.ReferenceProduct.Name
      strRefParentName = oProd.ReferenceProduct.Parent.Name
  Next
  tmEnd = Timer
  Debug.Print "Time First: " & vbTab & tmEnd - tmStart

  tmStart = Timer
  For i = 1 To CATIA.ActiveDocument.Product.Products.Count

      Set oProd = CATIA.ActiveDocument.Product.Products.Item(i)
      Set oInertia = oProd.GetTechnologicalObject("Inertia")
      dblMass = oInertia.Mass
      oInertia.GetCOGPosition dCoord

  Next
  tmEnd = Timer
  Debug.Print "Time Second: " & vbTab & tmEnd - tmStart

  tmStart = Timer
  For i = 1 To CATIA.ActiveDocument.Product.Products.Count
      Set oSel = CATIA.ActiveDocument.Selection
      oSel.Clear
      oSel.Add CATIA.ActiveDocument.Product.Products.Item(i)
      Set oVisProps = oSel.VisProperties
      oVisProps.GetRealColor lClr(0), lClr(1), lClr(2)
  Next
  tmEnd = Timer
  Debug.Print "Time Third: " & vbTab & tmEnd - tmStart

End Sub

---

Typische Ergebnisse:

Time First:    0,0078125
Time Second:  13
Time Third:    0,0703125

Time First:    0,015625
Time Second:  12,95313
Time Third:    0,0625

für einen ZB mit 38 Parts/Products.

Ausserdem: Die Auflösung von 'Timer' ist nicht sonderlich gut.
Der Zeitfresser ist wohl die 'Inertia'.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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