---

Hallo zusammen !
Kennt jemand eine schnelle Möglichkeit benutzerdefinierte I-Properties aus einer ipt z.B. nach Excel zu exportieren ?
Umweg über Zeichnung und Stückliste würde sich in diesem Fall nicht lohnen, da ich sonst die Daten von Hand genau so schnell eingeben könnte.
Vielen Dank schon mal für Eure Hilfe !

Gruß
Michael

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

---

Hi Michael! 
Excel weiß ich nicht, aber mit dem Konstruktionsassistenten nach txt geht.

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

---

Hi Michael,

als csv:

Code:

---

Private Sub exportUserProps()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As Inventor.Document
  Set oDoc = oApp.ActiveDocument
 
  Dim oUserProps As PropertySet
  Set oUserProps = oDoc.PropertySets(4)
 
  Dim oProp As Property
 
  Dim sFileName As String
  sFileName = sFileName & ".csv"
 
  ' Erzeught eine CSV-Datei mit gleichem Namen wie die Inventor-Datei
  ' mit der Erweiterung .csv, allfällig bestehende Datei wird überschrieben
  Open sFileName For Output As #1

  For Each oProp In oUserProps
    Print #1, oProp.DisplayName & ";" & oProp.Value
  Next oProp
 
  Close (1)

End Sub

---

HTH...

------------------
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 Tom, Hallo Paul,
Vielen Dank für die super schnellen Antworten.
@Tom: wäre an sich nicht schlecht, befürchte aber, daß es vom Handling für den Programmierer schwierig werden dürfte mit dem Txt-File.
Es geht darum, daß ich die wichtigsten Parameter unserer Angebotszeichnungen vor Jahren in die I-Properties bzw. Fx-Liste einer Ipt hab hacken lassen. Jetzt bekommen wir ein neues ERP-System und ich möchte die Daten dort weiterpflegen.

@Paul: Vielen Dank ! Hat funktioniert, allein den Dateinamen hat er nicht erzeugt ??, sondern nur .csv
Ganz komm' ich ja mit den Makros nicht mehr klar (hab' schon lange nichts mehr damit gemacht), aber das Ergebnis stimmt.
Wäre es eigentlich denkbar, daß die Zahlen ohne Einheit exportiert werden ?

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

---

Zitat:

---

Original erstellt von mimamb:
...
@Paul: Vielen Dank ! Hat funktioniert, allein den Dateinamen hat er nicht erzeugt ??, sondern nur .csv
...

---

Da muss halt was ergänzt werden:

Code:

---

Dim sFileName As String
sFileName = left(oDoc.FullFileName, Len(oDoc.FullFileName)-4)
sFileName = sFileName & ".csv"

---

------------------
Gruß Lothar

-----------------------------------------------------
Wir unterstützen die Arbeit der
- Rettungshundestaffel des DRK Viersen

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

---

Vielen Dank auch an Dich Lothar !
Ihr seid einfach Spitze !!

Viele Grüße

Michael

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

---

 

Zitat:

---

Original erstellt von lbcad:

Da muss halt was ergänzt werden:

Code:

---

Dim sFileName As String
[b]sFileName = left(oDoc.FullFileName, Len(oDoc.FullFileName)-4)
sFileName = sFileName & ".csv"

---

[/B]

---

Danke Lothar... stimmt natürlich...
Da hat sich wohl beim korrigieren der einen Zeile die andere in Luft aufgelöst...

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

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

Meine Tochter auf Youtube

[Diese Nachricht wurde von PaulSchuepbach am 11. Dez. 2010 editiert.]

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

---

Zitat:

---

Original erstellt von PaulSchuepbach:
 
Danke Lothar... stimmt natürlich...
...

---

@Paul:

brauchst Dich nicht dafür zu bedanken. Ist doch selbstverständlich! 

------------------
Gruß Lothar

-----------------------------------------------------
Wir unterstützen die Arbeit der
- Rettungshundestaffel des DRK Viersen

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