---

Hallo cad.de - Gemeinde,

ich möchte ein Makro schreiben, welches die Koordinaten von 3D-Punkten ändern soll.
Ich denke die Möglichkeit sollte bestehen, allerdings fehlt mir dazu der passende Befehl. Bei meinen Recherchen bin ich leider nicht fündig geworden. Könnt ihr mir da unter die Arme greifen?

Als kleine Anmerkung noch; die Koordinaten werden aus einer Exceltabelle ausgelesen.

Vielen Dank schon einmal.

[Diese Nachricht wurde von El Froggo am 15. Okt. 2010 editiert.]

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

---

Hallo El Froggo,

erkläre mal bitte wie du was Ändern willst und was schon vorhanden ist.

Mit MyPoint.GetCoordinates kannst du die Koordinaten auslesen und mit
MyPoint.SetCoordinates kannst du diese auch vergeben.

mfG
Mario

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

---

Points.rar

Servus,

und Willkommen im Forum.

Anbei 2 VBA Makros die dir sicherlich weiterhelfen. Der Rest dürfte nicht mehr allzu schwer sein.

PS: Bitte Systeminfo ausfüllen.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Hallo,

zuerst vielen Dank für die schnellen Antworten.
Nun zur genaueren Beschreibung. Also ich habe mir in ähnlicher Form wie Christian.O ein Makro geschrieben, welches Punkte aus Excel in CATIA importiert und diese wie in Excel benennt.
Jetzt wollte ich ein zweites Makro schreiben, mit dem ich die Koordinaten der einzelnen Punkte ändern kann (beispielsweise um zwischen Konstruktionsständen zu springen). Der andere Konstruktionsstand ist dann in gleicher Weise in einer Exeltabelle aufgeführt.

Ich möchte also das mit dem ersten Makro erstellte Geometrische Set ansteuern und dann die Koordinaten der Punkte ändern.

Ich hoffe, dass ich das Problem etwas detaillierter und besser beschreiben konnte.

Mfg
El Froggo

[Diese Nachricht wurde von El Froggo am 08. Nov. 2010 editiert.]

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

---

Hallo,

ich habe es un fast geschafft das Makro wie zuvor beschrieben zu schreiben. Allerdings ist noch ein Fehler/ Problem darin. Ich hoffe dazu hier Hilfe zu finden.

Also wie schon einmal erklärt, soll das Makro Koordinaten bestehender Punkte ändern.
Die Koordinaten und die Namen der Punkte stehen in einer Exceltabelle.
Namen --> Spalte D
x-Koordinaten --> Spalte A
y-Koordinaten --> Spalte B
z-Koordinaten --> Spalte C

Nun sucht das Makro nach einem Punkt in CATIA mit dem Namen aus der Exceltabelle. Anschließend werden die Koordinaten entsprechend der Exceltabelle geändert.
Danach wird in einer Schleife zur nächsten Zeile in der Exceltabelle gegangen.

und genau da tritt das Problem auf. Beim Ausführen des Makros wird nicht der nächste Punkt selektiert. Stattdessen werden immer nur die Koordinaten des ersten Punktes geändert, so dass dieser zum schluss die Koordinaten des letzten Punktes in der Exceltabelle besitzt.

Ich hoffe, dass das Problem bei meiner Ausführung klar geworden ist. Wenn es noch fragen gibt einfach posten, dann versuch ich es besser zu erklären.

Anbei gleich noch ein Teil des Codes. Der wird sicher hilfreich sein.

Vielen Dank schon einmal.

Gruß
El Froggo

Set Dokument = CATIA.ActiveDocument
Set PunktePart = Dokument.Part
Set Hbody = PunktePart.HybridBodies.Item("Punkte")

Set selection1 = Dokument.Selection
selection1.Clear

selection1.Add Hbody

For i=14 To y Step 1

If Excel.Sheets(v).Cells(i,1).Value<>Error Then
n=Excel.Sheets(v).Cells(i,4).Value
selection1.Search "..Name='"&n&"',sel"

Set Auswahl=selection1.Item(1).Value

Dim acoord(2)

acoord(0)=Excel.Sheets(v).Cells(i,1).Value
acoord(1)=Excel.Sheets(v).Cells(i,2).Value
acoord(2)=Excel.Sheets(v).Cells(i,3).Value

Auswahl.SetCoordinates acoord

selection1.Clear

Else

On Error Resume Next

End If

Next

PunktePart.Update

End Sub

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

---

Nochmals ich,

ich konnte das Problem beheben.

Gruß
El Froggo

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