---

Hallo zusammnen.

Ich muss aus ca. 3000 Kurven mit dem Part Design Blöcke mit den gleichen Parametern erstellen. Ich habs probiert mit einer for - next Schleife bekomme es aber nicht hin. (Ich hab aber auch nicht so die Auhnung wenns ums programmieren geht.)

Es wäre toll wenn jemand helfen könnte.

Anbei mal der Quelltext meines aufgezeichneten Makros.

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set shapeFactory1 = part1.ShapeFactory

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Geöffneter Körper.1")

Set hybridShapes1 = hybridBody1.HybridShapes

Set hybridShapeThickness1 = hybridShapes1.Item("Kurve.1")

Set reference1 = part1.CreateReferenceFromObject(hybridShapeThickness1)

Set pad1 = shapeFactory1.AddNewPadFromRef(reference1, 1.000000)

pad1.IsSymmetric = True

part1.Update

End Sub

Danke funki

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

---

Befinden sich die Kurven alle im Geöffneten Körper.1 und sind fortlaufend nummeriert?(Kurve.1 bis Kurve.3000)

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

---

Hallo Gilga210

Die Kurven sind alle im selben geöffneten Körper. Einen Schleife die die Operation ausführt, wenn die Kurven durchgehend nummeriert sind, hab ich schon hin bekommen.

Allerdings sind durch Filterung der Kurven die Nummern nicht mehr fortlaufend. Das ist jetzt das Problem!

Hat jemand eine Idee?

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