---

Hallo CAD.de Gemeinde!
Ich möchte 3D Punkte in eine Exceltabelle auslesen.
Vorgehensweise:
Ich setze in meinem Bauteil Arbeitspunkte und von diesen möchte ich die X,Y,Z Koordinaten in eine *.xls exportieren.
Ich habe eine Möglichkeit mit der Bohrungstabelle gefunden, da man da in den Stilen sagen kann, dass er die Arbeitspunkte und nicht die Bohrungen abgreifen soll. Geht leider aber nur für 2 Koordinaten (X,Y).

Hat da jemand einen Lösungsweg?

Thx, Richi

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

---

Hallo Richi,

Ihr habt doch sicher API-Programmierer bei Westcam. Einfach über die API alle Punkte abgreifen, die X-, Y- und Z-Werte auslesen und in ein Excel-Sheet schreiben.

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

Hallo Richi,

das ist ganz einfach möglich. 
Du musst die Punkte nur vom Inventor ex- und in Excel importieren.   
Mit einem kleinen Programm lässt sich das in einem Arbeitsgang erledigen.     

------------------
Grüßle
Bernhard
Inoffizielle Inventor Hilfeseite
      http://Inventor.CAD.de  www.PowerCAD.de

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

---

Dies hier sollte helfen
*************
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 = odComponentDefinition
 
    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

------------------
[img][/img]

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

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

---

 

Zitat:

---

Original erstellt von Frank_Schalla:
Dies hier sollte helfen

Code:

---

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 = odComponentDefinition
  
    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

---

---

Zeile 8 fehlt ein Punkt: Set oCompDef = od.ComponentDefinition aber sonst funzt es  

------------------
Grüße Igor

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 23. Nov. 2007 editiert.]

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

---

Hi Igor
ist wohl beim Cut&Paste verlorengegangen.
Ich wünsche dir (und allen anderen) ein angenehmes Wochenende.

------------------
[img][/img]

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

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

---

Das müßte auch gehen

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Dann werde ich mal wieder meine alten VB Bücher ausm Schrank holen.
Danke für eure Antworten.

Grüße, Richi

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