---

Hallo, bin relativ neu in der VBA Programmierung und richte mich mit meinem Anliegen nun an euch:

Ich habe eine Punktwolke in Catia aus 13 Punkten, welche ihre Koordinaten aus einer Excel Datei beziehen. (1. Spalte X-Koordinaten, 2. Spalte Y-Koordinaten, 3. Spalte Z-Koordinaten).

Mithilfe eines Makros konnte ich diese Punkte 1zu1 in Catia importieren. Allerdings legt er mir mit diesem Makro immer neue Punkte an.
Ich hätte aber gerne, dass er die Namen (4. Spalte) ebenfalls mit einliest und die Punkte nicht neu setzt, sondern schlichtweg die Koordinaten der bestehenden Punkte aktualisiert. Ist dies so einfach wie ich es mir vorstelle? Ich kenne leider die ganzen Befehle nicht wirklich und bin in der Suche auch nicht wirklich fündig geworden.

Hier ist der Code meines Makros:
Sub CreationPoint()

    'recuperation de CATIA
    Dim PtDoc As Object
    Set PtDoc = GetCATIAPartDocument
   
    'recup de l'HybridBody
    Dim myHBody As Object
    Set myHBody = PtDoc.Part.HybridBodies.Item(1)
   
    Dim iLigne As Integer
    Dim iValide As Integer
    Dim X As Double
    Dim Y As Double
    Dim Z As Double
    Dim Point As Object
   
    iLigne = 1
    'Analyse du fichier
    While iValide <> Cst_iEND
        'lecture d'une ligne complete
        AnalyseChaine iLigne, X, Y, Z, iValide
        iLigne = iLigne + 1
       
        'nous ne sommes pas sur un startcurve ou endcurve -> pt valide
        If (iValide = 0) Then
            Set Point = PtDoc.Part.HybridShapeFactory.AddNewPointCoord(X, Y, Z)
            myHBody.AppendHybridShape Point
        End If
    Wend
   
    'Mise a jour du modele
    PtDoc.Part.Update
End Sub

Wäre euch sehr dankbar, wenn ihr mir weiterhelfen könntet.

Liebe Grüße
Max

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

---

Servus Max

Eventuell könntest du, wenn du immer die gleiche Anzahl an Punkten hast, eine Design Table nutzen. Dann würde das auch ohne Makro gehen.

Bei einem Punkte die Kooridnaten zu ändern könnte so aussehen:

Code:

---

Set MyPoint = myHBody.HybridShapes.Item(sPointName)  ' Der Punktname aus der Tabelle (Fehlerbehandlung falls es den Punkt nicht gibt fehlt)
MyPoint.X.Value = XCoord 'Werte aus Tabelle (double)
MyPoint.Y.Value = YCoord
MyPoint.Z.Value = ZCoord

---

Gruß
Bernd

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

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

---

Hallo Bernd,
Danke für die schnelle Hilfe!

Ich habe noch nie mit einem Design Table gearbeitet aber werde mich dann mal einlesen!
Die Anzahl der Punkte, sowie die Benennung bleibt immer gleich.

Vielen Dank!

Liebe Grüße
Max

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