---

Hy@all!

Ich möchte gerne eine Konstruktionstabelle automatisch per Makro (VBA) erzeugen lassen. Ich habe es mit folgendem Code versucht, jedoch lässt sich der aus dem Makro erzeugten Konstruktionstabelle händisch keine weiter Elemente mehr zuordnen, im Register "Zuordnen" sind alle Einträge grau. Außerdem fügt der Code auch den Parameter (in dem Fall die X-koordindate eine 3D Punktes) nicht hinzu. Für mich sieht es so aus, als würde die Konstruktionstabelle nach dem erzeugen gesperrt werden, aber wieso?

Code:

---

Private Sub CommandButton2_Click()

    Dim partDocument1 As PartDocument
    Set partDocument1 = CATIA.ActiveDocument

    Dim part1 As Part
    Set part1 = partDocument1.Part

    Dim relations1 As Relations
    Set relations1 = part1.Relations

    Dim designTable1 As DesignTable
    Set designTable1 = relations1.CreateDesignTable(Abschnittname.text, "Tiefensteuerungskonstruktionstabelle", False, CATIA.ActiveDocument.Path & "\" & Abschnittname.text)

    designTable1.Configuration = 1
   
    Dim Punkt As HybridShapePointCoord
    Dim Factory1 As Factory
    Set Factory1 = part1.HybridShapeFactory
    Set Punkt = Factory1.AddNewPointCoord(0, 10, 20)
   
    Dim HBody As HybridBody
    Set HBody = part1.HybridBodies.Add
    HBody.Name = "Punkte"
   
    HBody.AppendHybridShape Punkt
   
    designTable1.AddAssociation Punkt.X, Punkt.Name

End Sub

---

MfG
Tonka

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