---

Hallo zusammen.
Habe mich gerade erst angemeldet und hätte da gleich mal eine Frage.

Es gibt das schöne Progrämmchen xls- import um Koordinatenpunkte aus einer Excelliste in eine 3D Skizze einzufügen.
Gibt es ein Programm, das umgekehrt funktioniert, heisst 3D Punkte in Excel exportieren?

Vielen Dank im voraus

Th. Martz

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

---

Willkommen im Forum,

laß das Programm einfach rückwärts laufen!

Jetzt Ernst was willst Du genau.

Welche Punkte (Arbeitspunkte?) in welcher Reihenfolge (nach Erstellung?)

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Hallo Thomse,

schau mal hier http://www.fx64.de/commons/freeware.php
da gibt es das Tool WP to Excel (Update R10) falls du Arbeitspunkte meinst.

------------------
Grüsse
Jürgen
Neue FAQ-Seite blog.inventor-faq.de
www.dressler-ds.de
Autodesk Inventor Certified Expert

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

---

Hallo Seher.
Danke für die Antwort.
Tschuldigung, hab mich etwas unklar ausgedrückt.
Natürlich meinte ich Arbeitspunkte und wenn möglich in der richtigen Reihenfolge.
Gruss Thomse

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

---

Hallo Jürgen.
Danke für die Antwort.
Leider funktioniert das tool nicht bei Inv 11.

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

---

Hier mal schnell gekritzelt. Die Ausgabe kannst du dann in eine Excel Tabelle einfügen.

Code:

---

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation _
        As String, ByVal lpFile As String, ByVal lpParameters _
        As String, ByVal lpDirectory As String, ByVal nShowCmd _
        As Long) As Long
       
Sub Export_Workpoints()
    If (ThisApplication.ActiveDocumentType <> kPartDocumentObject) Then
        MsgBox ("Bauteil öffnen")
        Exit Sub
    End If
   
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   

    Dim intFH1 As Integer
    intFH1 = FreeFile
    Open "C:\Output.txt" For Output As #intFH1
    Print #intFH1, "Name" & vbTab & "X" & vbTab & "Y" & vbTab & "Z" & vbCrLf
    Dim oWP As WorkPoint
   
    For Each oWP In oPart.ComponentDefinition.WorkPoints
        Print #intFH1, oWP.Name & vbTab & oWP.Point.X & vbTab & oWP.Point.Y & vbTab & oWP.Point.Z
    Next
   
    Close #intFH1
    Call ShellExecute(0, "Open", "notepad.exe", "C:\Output.txt", "", 1)
End Sub

---

Am besten in ein neues Modul in VBA Projekt einfügen.

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

FX64 Software Solutions
HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60

[Diese Nachricht wurde von daywa1k3r am 14. Mrz. 2007 editiert.]

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

---

Suche mal im vba forum

z.B. unter Koordinaten

http://ww3.cad.de/foren/ubb/Forum258/HTML/000036.shtml#000000

/Edit/ Igor Du warst mal wieder schneller! /EndEdit/

------------------
Gruß
SEHER
www.inventor-tools.de

   

[Diese Nachricht wurde von SEHER am 14. Mrz. 2007 editiert.]

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

---

Zitat:

---

Original erstellt von SEHER:
Suche mal im vba forum

z.B. unter Koordinaten

http://ww3.cad.de/foren/ubb/Forum258/HTML/000036.shtml#000000

/Edit/ Igor Du warst mal wieder schneller! /EndEdit/

---

Gab es da wohl was? Hab nichts gefunden  Egal.

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

FX64 Software Solutions
HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60

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

---

Hallo Igor.
Danke für die Hilfe. Funktioniert genial.

------------------
Gruss Thomse

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

---

Hallo Igor.
Danke nochmals für das skript.
Eine Frage hätte ich noch. Kann es sein das die Abstände von Punkt zu Punkt ausgegeben werden und nicht vom Nullpunkt?
Habe leider von vba's keine Ahnung, deswegen die Frage.
Danke
Gruß Thomse

------------------
Gruss Thomse

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