| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Text von DWG in eine Excel Datei exportieren! (700 mal gelesen)
|
Robert K Mitglied CAD Techniker
Beiträge: 4 Registriert: 03.05.2002
|
erstellt am: 03. Mai. 2002 08:17 <-- editieren / zitieren --> Unities abgeben:
|
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 03. Mai. 2002 08:50 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
|
Angelika Preiwuss Mitglied Dipl.-Ing. (FH)
Beiträge: 1169 Registriert: 12.07.2000 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und Zusatz zu meinem Job bei S-CAPE GmbH............................. auf Grund Eheschliessung neuer Name: Angelika Hädrich
|
erstellt am: 03. Mai. 2002 09:25 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
Hallo Robert K., ist es einfach nur Text, dann würde ich es so machen wie Wolfgang vorschlägt, oder handelt es sich um Attribute - Attribute kann man auslesen (siehe Hilfe: Exrahieren von Blockattributen). Gruss Angelika Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Robert K Mitglied CAD Techniker
Beiträge: 4 Registriert: 03.05.2002
|
erstellt am: 06. Mai. 2002 06:47 <-- editieren / zitieren --> Unities abgeben:
Sorry hatte die frage in meiner Verzweiflung nicht korrekt gestellt! .....DWG Text in einen Text-Editor .... Wenn ich es mit markieren und einfügen versuche habe ich eine typische OLE funtion ...! Aber ich möchte den text in Excel weiter verarbeiten und nicht ein fenster mit schwarzen Hintergrund bekommen! Vielleicht habt ihr eine neue Idee..? Danke im vorraus für jeden denkanstoß! Mit kollegialen Grüßen R. K. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Rausch Mitglied
Beiträge: 1200 Registriert: 26.03.2001 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 06. Mai. 2002 07:37 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
Hallo Robert, ich denke, die Frage war schon korrekt gestellt, die Antwort war es auch: Du musst den Text im Editor markieren (d.h. dort, wo er auch bearbeitet werden kann, also nicht das AutoCAD_Element Text, sondern die Buchstaben als solche)und wie gesagt mit Strg+C in die Windows-Zwischenablage kopieren. Probiere es doch noch mal. ------------------ gruß thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Robert K Mitglied CAD Techniker
Beiträge: 4 Registriert: 03.05.2002
|
erstellt am: 06. Mai. 2002 08:22 <-- editieren / zitieren --> Unities abgeben:
Thomas Danke für deine Geduld mit mir und die rasche Reaktion! Ich dachte es gibt die möglichkeit den text von der ganzen DWG auszulesen (einige hundert) und in eine Excel Datei zu speichern. Sowie es bei attributen die möglichkeit geben sollte! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001 Inventor 2 bis 2022 häufig wechselnder Rechnerverkehr
|
erstellt am: 06. Mai. 2002 08:58 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 06. Mai. 2002 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
Tatü tata, die Post ist da! Das Teil sucht Dir eine *.csv Datei, die Du in Excel bearbeiten kannst. Ausserdem werden wur die Texte ausgewählt, die sich in aktuellen Layout befinden. (defun c:schreibtext (/) (setq OLDERR *ERROR* *ERROR* MYERROR as (ssget "_X" (list (cons 0 "TEXT")(cons 410 (getvar "ctab")))) zaehler 0 datei (getfiled "Datei speichern" "csv" "" 1) dat (open datei "a") ) ;_ end of setq (if datei (progn (repeat (sslength as) (setq tt (cdr (assoc 1 (entget (setq gg (ssname as 0)))))) (write-line (strcat tt ";") dat) (setq as (ssdel gg as)) ) ;_ end of repeat (close dat) ) (Prompt "\nKeine Datei erstellt - Ende") (setq *error* olderr) ) ;_ end of defun (defun myerror (s) ; If an error (such as CTRL-C) occurs ; while this command is active... (if (/= s "Funktion abgebrochen") (princ (strcat "\nFehler: " s)) ) ;_ end of if (close dat) (setq *error* olderr) ; Restore old *error* handler (princ) ) ;_ end of defun ------------------ Gruß CADwiesel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 06. Mai. 2002 09:26 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
|
Robert K Mitglied CAD Techniker
Beiträge: 4 Registriert: 03.05.2002
|
erstellt am: 06. Mai. 2002 10:05 <-- editieren / zitieren --> Unities abgeben:
Ein Danke an CADwiesel!!! und alle die sich mit meinem Problem beschäftigt haben! Bin kein Programmierer aber es sieht sehr gut aus !!! Danke im vorraus werd mich heute abend damit aussernader setzten... Kunde wartet und möchte etwas auf dem Papier sehen!... Grüße an Alle R.K. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
carambita Mitglied Dipl.-Ing. Theater- u. Veranstaltungstechnik
Beiträge: 272 Registriert: 03.10.2002 Windows 7 (64-bit) / AutoCAD 2015
|
erstellt am: 29. Okt. 2002 09:43 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 29. Okt. 2002 09:58 <-- editieren / zitieren --> Unities abgeben: Nur für Robert K
Hy Leute, da gabs unter 12 mal ne witzige lsp die konnte auch noch was in der richtung.die hat allen text in einen Editor gepackt,dort konnte man das ganze mit allen optionen maipulieren und dann einfach zurück in die Zeichnung geben. also bei bedarf könnte man nach dem teil fahnden. CU cw Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |