---

Hallo Cad-Gemeinde,
ich arbeite mit Catia V5 und versuche mich derzeit an dem Export von Punktkoordinaten einer Punktwolke aus einem Part-Dokument nach Excel mittels VBA-Makro. Aus der Fülle von bereits vorhandenem Code habe ich mir zwei für mich funktionierende Fälle zusammengebastelt.
Entweder werden alle Punkte (Fall 1) oder nur von mir selektierte Punkte (Fall 2) mit ihren Koordinaten extrahiert. Für den 2. Fall hier einmal der Code:

Dim objGEXCELapp As Object
Dim objGEXCELwkBks As Object
Dim objGEXCELwkBk As Object
Dim objGEXCELwkShs As Object
Dim objGEXCELSh As Object
Dim fs, f, f1, fc, s
Dim coords(2) As Variant
Dim PartDocument1
Dim varSelection
Dim selElement As SelectedElement

Sub CATMain()

Set varSelection = CATIA.ActiveDocument.Selection

StartEXCEL

ExportPoint

'objGEXCELSh.Application.ActiveWorkbook.SaveAs (ExcelFolder & Left(CATIA.ActiveDocument.Name,Len(CATIA.ActiveDocument.Name)-8) & ".xls")
'objGEXCELSh.Application.ActiveWorkbook.Close

End Sub

'******************************************************************************
Sub StartEXCEL()
'******************************************************************************
Err.Clear
On Error Resume Next
Set objGEXCELapp = GetObject(, "EXCEL.Application")

If Err.Number <> 0 Then
Err.Clear
Set objGEXCELapp = CreateObject("EXCEL.Application")
End If

objGEXCELapp.Application.Visible = True
Set objGEXCELwkBks = objGEXCELapp.Application.WorkBooks
Set objGEXCELwkBk = objGEXCELwkBks.Add
Set objGEXCELwkShs = objGEXCELwkBk.Worksheets(1)
Set objGEXCELSh = objGEXCELwkBk.Sheets(1)
objGEXCELSh.Cells(1, "A") = "Name"
objGEXCELSh.Cells(1, "B") = "X"
objGEXCELSh.Cells(1, "C") = "Y"
objGEXCELSh.Cells(1, "D") = "Z"

End Sub

'******************************************************************************
Sub ExportPoint()
'******************************************************************************
If (varSelection.Count > 0) Then
   
    For i = 1 To varSelection.Count

Set Selection = varSelection
Set Element = Selection.Item(i)
Set Point = Element.Value

'Write PointData to Excel Sheet
Point.GetCoordinates (coords)

objGEXCELSh.Cells(i + 1, "A") = Point.Name
objGEXCELSh.Cells(i + 1, "B") = coords(0)
objGEXCELSh.Cells(i + 1, "C") = coords(1)
objGEXCELSh.Cells(i + 1, "D") = coords(2)

Next

End If

End Sub

Da ich Anfänger bin, was VBA und Programmierung angeht, komme ich jetzt an dem Punkt nicht weiter, an dem ich mir die Koordinaten von projezierten Punkten (sog. Projections) ausgeben lassen kann, die sich auch in der Punktwolke befinden. Da diese nicht mir ihren physikalischen Eigenschaften vorliegen, müssen sie sicherlich erst erzeugt werden, um die XYZ-Koordinaten der Projektionen auszulesen? Wenn mir jemand hierbei Hilfestellung geben kann, wäre das super.

Danke und Grüße Flashidashi

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

---

Servus
Willkommen im Forum.
Hast du schon mal hier im Forum nach Diskussionen zum Koordinatenexport gesucht?
Für machen Punkttypen musst du eine Messung verwenden um die Koordinaten zu ermitteln (SPAWorkbench, Methode "GetPoint")

Gruß
Bernd

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

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

---

Servus Bernd,

ja ich hatte mich der Suchfunktion bedient, aber nix neues an Erkenntnissen gewinnen können. Dagegen scheinen deine Hinweise (SPAWorkbench,...) schon die Lösung des Problems zu sein. Nur an meiner Umsetzung hapert es jetzt, beliebig selektierte Punkte als neue Punkte zu generieren :P

Aber vielen Dank erstmal für deine Hilfe!

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

---

Servus
Schon mal nach "GetPoint" im Froum gesucht *grins*
(schau zB mal hier)

Gruß
Bernd

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

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