---

Hallo,

ich möchte die Teileliste auf der IDW über VBA-Macro befüllen, doch das dauert ewig (bei 90 Positionen und 10 Spalten ca. 45min und mehr)

Hier noch der entsprechende Code-Schnipsel:

    Dim oPartList As PartsList
    Dim iPartList As Long
    Dim iRow As Long
    Dim oRow As PartsListRow
    For iPartList = 1 To objacaddoc.ActiveSheet.PartsLists.Count
        Set oPartList = objacaddoc.ActiveSheet.PartsLists.Item iPartList)
        For iRow = 1 To oPartList.PartsListRows.Count
            Set oRow = oPartList.PartsListRows.Item(iRow)
            oRow.Item(sBomAttName).value = sBomAttText
            ...

Die letzte Zeile ist der Übeltäter.
Nur diese Zuweisung dauert ca.10sec und länger, was sich dann natürlich aufsummiert.

Hat da jemand eine Idee, wie man das beschleunigen kann.
Ach ja, es handelt sich um Inventor 11.

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

Gruß :-)
Schminsel

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

---

Hallo Schminsel,

hast Du mittlerweile eine Lösung gefunden?.
Habe das gleiche Problem! Ein Abgleich der Positionsnummern aus dem PPS  nach Inventor dauert beim 11er wesentlich länger als wie beim 8er. Die ocell.value Zuweisung braucht extrem lange?

Selbst das Sample Beispiel PartListEdit läuft total langsam.

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Kann es sein, dass dort eine immer größer werdende Matrix mit Daten gefüllt wird? Dann kann es auch sein - hängt von der internen Datenverwaltung ab - dass diese Matrix, wenn denn eine neue Zeile hinzugefügt wird immer umgespeichert werden muß, da der vorhandene Platz ja nicht mehr reicht.

In verschiedenen Programmiersprachen kann man signifikante Geschwindigkeitszuwächse beobachten, wenn man das Datenfeld gleich am Anfang mit der richtigen Größe anlegt und dann nur noch die dann schon vorhandenen Speicherplätze mit Daten belegt.

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

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

---

Hallo Forum,
Tipp von Sanjay Ramaswamy \(Autodesk\) im Ami Forum

Ami-Forum

Vor dem Editieren die Aktualisierung mit oDoc.DrawingSettings.DeferUpdates = True
ausschalten und nachher wieder einschalten, hat bei mir mehr als 50% gebracht.

------------------
Gruß
SEHER
www.inventor-tools.de

            

[Diese Nachricht wurde von SEHER am 31. Jul. 2007 editiert.]

[Diese Nachricht wurde von SEHER am 31. Jul. 2007 editiert.]

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