---

Hallo,

wollte so zum ausprobieren mal ein Makro aufzeichnen und das VBA dann nachvollziehen. Leider ist die erzeugte Datei bis auf

Language="VBSCRIPT"

Sub CATMain()

End Sub

völlig leer. Was ist denn da loooos?

Danke schon mal für eure Hilfe.

Sebastian

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

---

Hallo Sebastian!

Der Makrorekorder funktioniert nicht bei allen Befehlen, insbesondere in der Drawing-Umgebung wird nichts aufgezeichnet.

Was wolltest Du denn aufzeichnen?

Gruß
Jan

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

---

Eine Flächenaufdickung im PartDesign.
Habe schon gesehen, dass das auf ner anderen Maschine funktioniert.

Sebastian

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

---

Hallo!
Bei mir funktioniert die Aufzeichnung.Ich erhalte

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Part31.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

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

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeLoft1 As HybridShapeLoft
Set hybridShapeLoft1 = hybridShapes1.Item("Fläche mit Mehrfachschnitten.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeLoft1)

shapeFactory1.AddNewThickSurface reference1, 0, 1#, 0#

part1.Update

End Sub

Welches Release benutzt du?
Bist du sicher dass du im Richtigen Makroordner bist?

Gruss,grammar

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

---

Hallo,

also erstmal: V5R12Sp4

Und die Sache mit der Bibliothek, ich geb ja ein Verzeichnis an, wo es reingeschrieben werden soll. Da muß ich mir doch um die Bibliothek keine großen Gedanken machen.

Ja, aber schon mal vielen Dank für den Code, den du gepostet hast, bringt mich um einiges weiter, auch wenn das Problem damit natürlich noch besteht.

Sebastian

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