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