Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Teileliste als csv exportieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Teileliste als csv exportieren (1417 mal gelesen)
CADZCHEN
Mitglied
Konstrukteur


Sehen Sie sich das Profil von CADZCHEN an!   Senden Sie eine Private Message an CADZCHEN  Schreiben Sie einen Gästebucheintrag für CADZCHEN

Beiträge: 204
Registriert: 04.03.2005

erstellt am: 15. Apr. 2009 14:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo !

Ich bin auf der Suche nach einem Makro, welches die Teileliste von der Zeichnung in ein *. csv Format exportieren kann.

Gibt es so ein Makro, oder weiss Jemand wie man es erstellen kann ??

Vielen Dank schonmal

------------------
--=== schöne Grüsse...Tobi ===--

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 15. Apr. 2009 15:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CADZCHEN 10 Unities + Antwort hilfreich

Hi

Warum nicht RMT auf die Teileliste --> "Exportieren", Dateinamen tippen, Dateiformat auf CSV umstellen, unter "Optionen" evtl. noch die zu exportierenden Spalten aussuchen und "Speichern" drücken? 

------------------
MfG
RK

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

CADZCHEN
Mitglied
Konstrukteur


Sehen Sie sich das Profil von CADZCHEN an!   Senden Sie eine Private Message an CADZCHEN  Schreiben Sie einen Gästebucheintrag für CADZCHEN

Beiträge: 204
Registriert: 04.03.2005

erstellt am: 15. Apr. 2009 16:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zitat:
Dateiformat auf CSV umstellen,
...

... weil es gerne mal vergessen wird

------------------
--=== schöne Grüsse...Tobi ===--

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 16. Apr. 2009 07:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CADZCHEN 10 Unities + Antwort hilfreich

Moin

Also würde ein Makro reichen, das diesen Dialog mit entsprechend voreingestelltem Dateityp aufruft? Ich schau's mir mal an und melde mich wieder.

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 16. Apr. 2009 editiert.]

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 16. Apr. 2009 09:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CADZCHEN 10 Unities + Antwort hilfreich

So, da bin ich wieder.

Code:
Private Sub exp_PL()

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    Dim oPartList As PartsList
    Set oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)

    Dim oFileName As String
    oFileName = oDrawDoc.File.FullFileName
   
    Dim oFileNamePart() As String
    oFileNamePart() = Split(StrReverse(oFileName), "\")
    oFileNamePart() = Split(StrReverse(oFileNamePart(0)), ".")
   
    oFileName = "c:\temp\" & oFileNamePart(0) & ".csv"
   
    Call oPartList.Export(oFileName, kTextFileCommaDelimited)
   
End Sub


Erstellt direkt und ohne Dialog einen csv-Export der Teileliste in C:\Temp. Den Pfad kannst du anpassen.

Weggelassen habe ich sämtliche Fehlerbehandlung (IDW geöffnet? Teileliste vorhanden? usw. usw.).

------------------
MfG
RK

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

CADZCHEN
Mitglied
Konstrukteur


Sehen Sie sich das Profil von CADZCHEN an!   Senden Sie eine Private Message an CADZCHEN  Schreiben Sie einen Gästebucheintrag für CADZCHEN

Beiträge: 204
Registriert: 04.03.2005

erstellt am: 16. Apr. 2009 09:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Moin moin,

erstmal vielen Dank für Deine Arbeit.

Ich werde es gleich mal probieren.

10 U vorab...

------------------
--=== schöne Grüsse...Tobi ===--

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

CADZCHEN
Mitglied
Konstrukteur


Sehen Sie sich das Profil von CADZCHEN an!   Senden Sie eine Private Message an CADZCHEN  Schreiben Sie einen Gästebucheintrag für CADZCHEN

Beiträge: 204
Registriert: 04.03.2005

IV2010 SP3 Productstream/Vault 2010, WIN7
Inten Xeon 3,2 Ghz, 8 GB RAM, Nvidia FX 560

erstellt am: 16. Apr. 2009 15:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ja super..

vielen Dank, es funktioniert

------------------
--=== schöne Grüsse...Tobi ===--

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

CADZCHEN
Mitglied
Konstrukteur


Sehen Sie sich das Profil von CADZCHEN an!   Senden Sie eine Private Message an CADZCHEN  Schreiben Sie einen Gästebucheintrag für CADZCHEN

Beiträge: 204
Registriert: 04.03.2005

erstellt am: 17. Apr. 2009 09:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ich hab doch noch eine Frage!

Wenn ich das Makro in dem VBA-Editor starte, dann läuft alles.

Wenn ich allerdings einen Button in einem Werkzeugkasten anlege, dann funktioniert es leider nicht.

Das Makro wird mir auch als exp_PL angezeigt, aber in der *.idw - Umgebung läuft es nicht.

Woran kann das liegen ?

Danke

------------------
--=== schöne Grüsse...Tobi ===--

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 17. Apr. 2009 10:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für CADZCHEN 10 Unities + Antwort hilfreich

Hallo

Mach mal aus

Code:
Private Sub exp_PL()

ein

Code:
Public Sub exp_PL()

------------------
MfG
RK

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

CADZCHEN
Mitglied
Konstrukteur


Sehen Sie sich das Profil von CADZCHEN an!   Senden Sie eine Private Message an CADZCHEN  Schreiben Sie einen Gästebucheintrag für CADZCHEN

Beiträge: 204
Registriert: 04.03.2005

erstellt am: 17. Apr. 2009 11:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super..

.. jetzt läuft alles..

Vielen Dank und schönes WE

------------------
--=== schöne Grüsse...Tobi ===--

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz