---

Hallo,
ich habe noch mal eine Frage Ich habe eine große Menge von Punkten, die ich mit geraden Linien verbinden möchte. Benutze ich eine oder mehrere Polyline stürzt CATIA ab.
Ich verwende CATVBA. Gibt es eine Möglichkeit so viele Punkte miteinander zu verbinden, ohne den Rechner abstürzen zu lassen?
Anbei ist mein Beispielcode.

Code:

---

Sub SubTest()
    Dim Document1 As Document
    Set Document1 = CATIA.ActiveDocument
    Dim TestPart As Part
    Set TestPart = Document1.Part
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = TestPart.HybridBodies.Add()
    Dim hybridShapeFactory1 As Factory
    Set hybridShapeFactory1 = TestPart.HybridShapeFactory
    For k = 1 To 100
        Set hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline()
        For i = 1 To 100
            Set Point = hybridShapeFactory1.AddNewPointCoord(i, i, i)
            Set reference1 = TestPart.CreateReferenceFromObject(Point)
            hybridShapePolyline1.InsertElement reference1, i
        Next
        hybridBody1.AppendHybridShape hybridShapePolyline1
    Next
    TestPart.Update
End Sub

---

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

---

Servus
Pack mal das Update in die erste For-next-Schleife ein (bzw öfters zwischendurch). Dann sollte es länger laufen

Gruß
Bernd

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

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

---

Jo danke, hat schon etwas geholfen. Dauert aber immer noch gefühlte Ewigkeiten . Gibt es vielleicht noch einen Trick?

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

---

Hallo,

kannst evtl. versuchen nach Set Point1 die Anweisung Point1.Compute einzufügen und den Update nur in der äußeren Schleife drinlassen.

Allerdings: Die Schleife und der Update wird insgesamt 100*100=10000-mal durchgelaufen. Das brauch natürlich sein Zeit.
Vielleicht streikt CATIA sogar, weil der Speicherbedarf plötzlich zu groß wird.
Ist wirklich die komplette Schleife notwendig, beide verschachtelt? Ich sehe nur da eine Möglichkeit.

Gruß,
Zoltan

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

---

Also ich habe alle drei Varianten durchprobiert. Dies war bei mir mit 1min die schnellste. Die anderen Varianten mit Point.compute und Testpart.update nach außen sind jeweils 10s langsamer. Zwei Schleifen habe ich deshalb genommen, weil wenn ich alle Punkte in ein Polygon packe, der Rechner immer abstürzte und ich mal probieren wollte, ob man 10000Punkte miteinander verbinden kann.

Code:

---

Sub SubTest()
    Dim Document1 As Document
    Set Document1 = CATIA.ActiveDocument
    Dim TestPart As Part
    Set TestPart = Document1.Part
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = TestPart.HybridBodies.Add()
    Dim hybridShapeFactory1 As Factory
    Set hybridShapeFactory1 = TestPart.HybridShapeFactory
    For k = 1 To 100
        Set hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline()
        For i = 1 To 100
            Set Point = hybridShapeFactory1.AddNewPointCoord(i, i, i)
            Set reference1 = TestPart.CreateReferenceFromObject(Point)
            hybridShapePolyline1.InsertElement reference1, i
        Next
        hybridBody1.AppendHybridShape hybridShapePolyline1
        TestPart.Update
    Next
   
End Sub

---

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