| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Mit SAP ERP/PLM den Anlagenbau perfekt organisiert - NEUMAN & ESSER GROUP (CIDEON, SAP, ERP, PLM, CAD), ein Anwenderbericht
|
Autor
|
Thema: Benutzerdefinierte I-Properties exportieren (2309 mal gelesen)
|
mimamb Mitglied Maschinenbauingenieur
Beiträge: 1001 Registriert: 08.07.2003 intel core i7 3770 3,4 GHz NVidia Quadro FX 1600M Win 7 64bit IV 2012 Home Edition SWX 2013 Premium Edition EPDM 2013
|
erstellt am: 11. Dez. 2010 10:16 <-- editieren / zitieren --> Unities abgeben:
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 |
nightsta1k3r Ehrenmitglied V.I.P. h.c. plaudern
Beiträge: 11273 Registriert: 25.02.2004 Hier könnte ihre Werbung stehen!
|
erstellt am: 11. Dez. 2010 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für mimamb
|
PaulSchuepbach Mitglied Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 11. Dez. 2010 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für mimamb
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 |
mimamb Mitglied Maschinenbauingenieur
Beiträge: 1001 Registriert: 08.07.2003 intel core i7 3770 3,4 GHz NVidia Quadro FX 1600M Win 7 64bit IV 2012 Home Edition SWX 2013 Premium Edition EPDM 2013
|
erstellt am: 11. Dez. 2010 12:14 <-- editieren / zitieren --> Unities abgeben:
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 |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 11. Dez. 2010 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für mimamb
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 |
mimamb Mitglied Maschinenbauingenieur
Beiträge: 1001 Registriert: 08.07.2003 intel core i7 3770 3,4 GHz NVidia Quadro FX 1600M Win 7 64bit IV 2012 Home Edition SWX 2013 Premium Edition EPDM 2013
|
erstellt am: 11. Dez. 2010 12:40 <-- editieren / zitieren --> Unities abgeben:
|
PaulSchuepbach Mitglied Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 11. Dez. 2010 13:17 <-- editieren / zitieren --> Unities abgeben: Nur für mimamb
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 11. Dez. 2010 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für mimamb
|