---

Hallo zusammen,

hat hierzu irgendjemand eine Idee?

Gruß
Peter

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

---

Servus
Was für eine Tabelle? In der Zeichnung oder eine DesignTable?

Gruß
Bernd

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

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

---

Hallo Bernd,
natürlich die in der Zeichnung.
Wenn ich mich nicht irre, ist die Design Table schon Excel.
Gruß
Peter

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

---

Hier ist etwas, zwar nicht nach Excel, aber als csv datei. Nach Excel findest du, mit ein wenig suchaufwand, hier im forum genügend.

Sub CatMain()

Set outFile = CATIA.FileSystem.CreateFile("C:\users\" & CATIA.SystemService.Environ("USERNAME") & "\desktop\TableFile.csv", true)
Set outStream = outFile.OpenAsTextStream("ForWriting")
dim oType(0)
oType(0) = "DrawingTable"
STATUS = CATIA.ActiveDocument.Selection.SelectElement2(oType,"please select the table to extract",false)
If status = "Cancel" then Exit Sub
dim oTable as DrawingTable
set oTable = CATIA.ActiveDocument.Selection.Item(1).Value
outStream.Write oTable.Name & Chr(10)

rowSize = oTable.NumberOfRows
For row = 1 To rowSize
pt = oTable.GetCellString(row, 1)
x = oTable.GetCellString(row, 2)
y =oTable.GetCellString(row, 3)
outStream.Write pt + ";" + x + ";" + y + vbLF
Next
outStream.Close

End Sub

------------------
wer ist diese Catia und wo kann ich sie finden?

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

---

Hallo DasDon,

vielen Dank, hat mir sehr weitergeholfen.

Ich hab Deinen Code noch ins VB 2010 Express übernommen
und ein Kollege hat noch ein paar Anpassungen vorgenommen:

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim CATIA
        Dim Doc
        Dim outFile
        Dim outStream
        Dim STATUS
        Dim rowSize
        Dim columnSize
        Dim tmp_output

        CATIA = GetObject(, "CATIA.application")
        Doc = CATIA.ActiveDocument

        outFile = CATIA.FileSystem.CreateFile("C:\users\" & CATIA.SystemService.Environ("USERNAME") & "\desktop\TableFile.csv", True)
        outStream = outFile.OpenAsTextStream("ForWriting")
        Dim oType(0)
        oType(0) = "DrawingTable"
        STATUS = CATIA.ActiveDocument.Selection.SelectElement2(oType, "please select the table to extract", False)
        If status = "Cancel" Then Exit Sub
        Dim oTable
        oTable = CATIA.ActiveDocument.Selection.Item(1).Value
        outStream.Write(oTable.Name & Chr(10))

        rowSize = oTable.NumberOfRows
        columnSize = oTable.NumberOfColumns

        For row = 1 To rowSize
            tmp_output = ""

            For column = 1 To columnSize
                tmp_output = tmp_output & oTable.GetCellString(row, column) & ";"
            Next

            outStream.Write(tmp_output & vbCrLf)

        Next
        outStream.Close()

        MsgBox("Ausgabe beendet")

    End Sub
End Class

---

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