---

Moin,

ich versuche gerade aus Inventor 2015 Punkte aus einer Skizze nach Excel zu exportieren. Ich hab im Netz schon genügend VBA Makros gefunden die Arbeitspunkte exportieren. Diese funktionieren auchn super (Siehe unten). Leider klappt dies nicht mit Punkten aus einer Skizze.

Bitte um Hilfe

THX

Stefan

Option Explicit
Public Sub AP_to_excel()
    Dim oPoint As Point
    Dim oWP As WorkPoint
    Dim od As PartDocument
    Set od = ThisApplication.ActiveDocument
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = od.ComponentDefinition

    Dim iRow As Long
    Dim i As Long
    Dim XL As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Set XL = CreateObject("Excel.Application")
    Set xlWB = XL.Workbooks.Add
    Set xlWS = xlWB.ActiveSheet
 
    XL.Application.Visible = True
    iRow = 1
    xlWS.Cells(iRow, 1).Value = "NAME"
    xlWS.Cells(iRow, 2).Value = "X"
    xlWS.Cells(iRow, 3).Value = "Y"
    xlWS.Cells(iRow, 4).Value = "Z"
 
 
    For i = 1 To od.ComponentDefinition.WorkPoints.Count
    Set oWP = od.ComponentDefinition.WorkPoints.Item(i)
    Debug.Print oCompDef.WorkPoints.Item(i).Name
    Debug.Print oCompDef.WorkPoints.Item(i).Point.X
    Debug.Print oCompDef.WorkPoints.Item(i).Point.Y
    Debug.Print oCompDef.WorkPoints.Item(i).Point.Z

        xlWS.Cells((i + 1), 1).Value = oCompDef.WorkPoints.Item(i).Name
        xlWS.Cells((i + 1), 2).Value = oCompDef.WorkPoints.Item(i).Point.X
        xlWS.Cells((i + 1), 3).Value = oCompDef.WorkPoints.Item(i).Point.Y
        xlWS.Cells((i + 1), 4).Value = oCompDef.WorkPoints.Item(i).Point.Z
    Next
    'Passt Größe der Zeilen und Spalten an die Werte an
        XL.Cells.Select
        XL.Cells.EntireColumn.AutoFit
        xlWS.Range("A1").Select
End Sub

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

---

https://modthemachine.typepad.com/my_weblog/2011/06/writing-work-points-to-an-excel-file.html

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

---

Hey,

danke für den Link. Dieser funktioniert leider auch nur mit Arbeitspunkten. Ich kann jedoch in der Skizze kleine Arbeitspunkte erstellen.... Wenn ich jeden Skizzenpunkt in einen Abreitspunkt uwmandeln soll, ist mir dies bei geschätzten 300 Punkten zu viel Arbeit. Gibt es hier evtl. eine andere Lösung?

MfG

Stefan

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

---

vielleicht Bohrungen machen, dann dxf exprot von Oberflaeche, dann ins Autocad, dann EATTEXT Bohrungsmittelpunkte exprtieren. Nicht schoen, aber immer noch besser als von Hand zu Fuss

------------------
alle Räder stehen still, wenn Kinematiks starker Arm das will

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

---

Schau Dir mal das an:

https://ww3.cad.de/foren/ubb/Forum258/HTML/001728.shtml

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

---

        'Get the active part document.
        Dim oPartDoc As PartDocument
        oPartDoc = m_invApp.ActiveDocument
        Dim oPartDef As PartComponentDefinition
        oPartDef = oPartDoc.ComponentDefinition
        ' Get an existing sketch.  This arbitrarily gets the first sketch.
        Dim oSketch As PlanarSketch
        oSketch = oPartDef.Sketches.Item(1)

        Dim oSketchPoint As SketchPoint
        For Each oSketchPoint In oSketch.SketchPoints
            Debug.Print(oSketchPoint.Geometry.X & "  " & oSketchPoint.Geometry.Y)
        Next

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