| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Optimiertes Einkaufserlebnis dank interaktiver 3D-Modelle im Webshop , ein Anwenderbericht
|
Autor
|
Thema: Layerliste in Wordtabelle konvertieren (3885 mal gelesen)
|
atomic Mitglied Techniker
Beiträge: 124 Registriert: 03.12.2003 Athlon 1800XP 1024MB Ram AutoCAD 2004
|
erstellt am: 04. Mrz. 2004 15:17 <-- editieren / zitieren --> Unities abgeben:
Hi, kann mir jemand helfen die Layerliste in eine Wordtabelle zu exportieren, so dass in jeder Zeile der Tabelle ein Layer aufgeführt ist! Wie man eine Layerliste so exportieren kann (als Textdatei in einem Rutsch) habe ich schon hinbekommen! Bis denn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 04. Mrz. 2004 15:20 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
verstehe nicht recht... einfach "Inhalte" (als Text) einfügen... Wie "exportierst" du denn ? mach es zum test mal so: -layer ? dann einfach aus dem Textfenster kopieren und in Word oder sonstwo einfügen. ohja - TABELLE war das Stichwort... kommt man evtl über Excel hin, ich teste mal. ------------------ - Sebastian Mattis - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 04. Mrz. 2004 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
Hallo atomic, und wo ist dann das Problem? Je nach dem wie die Tabelle aufgebaut ist, sollte es doch möglich sein, diese z.B. in Excel als Tabelle einzulesen und dann von dort aus nach Word hin zu kopieren? So etwas macht man ja nun nicht 120x am Tag - oder etwa doch? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 04. Mrz. 2004 15:24 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
Ja -wie vermutet (und Holger auch meinte) als txt speichern, in Excel öffnen - und aus Excel in Word einfügen fertig ist die Tabelle (die Anfängliche TXT muß aber oft überarbeitet werden für den import(öffnen) in Excel. ------------------ - Sebastian Mattis - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
atomic Mitglied Techniker
Beiträge: 124 Registriert: 03.12.2003 Athlon 1800XP 1024MB Ram AutoCAD 2004
|
erstellt am: 04. Mrz. 2004 16:02 <-- editieren / zitieren --> Unities abgeben:
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 04. Mrz. 2004 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
zwar ist das "Problem" schon behoben jedoch dürfe das hier anderen helfen Code:
;LAYERXLS Version 1.0 (written by Brian Treff, 12/19/99)(defun c:layerxls (/ dirname, file, count, f, row, LayerName, layercolornum, LayerLineType, layerstatnum, LayerStatus, LayerColor) (setq dirname (getfiled "Select a location to save the layer list..." "layers.csv" "csv" 1)) (setq file (open dirname "w")) (write-line (strcat "Layer List for " (getvar "dwgprefix") (getvar "dwgname")) file) (write-line "" file) (write-line "NAME, COLOR, LINETYPE, STATUS" file) (setq count 0) (setq f 1) (while (setq row (tblnext "LAYER" f)) (setq f nil) (setq LayerName (cdr (assoc 2 row))) (setq layercolornum (cdr (assoc 62 row))) (setq LayerLineType (cdr (assoc 6 row))) (setq layerstatnum (cdr (assoc 70 row))) (if (= layerstatnum 1) (setq LayerStatus "FROZEN") (setq LayerStatus "THAWED") ) (if (< layercolornum 8) (cond ((= layercolornum 1) (setq LayerColor "RED")) ((= layercolornum 2) (setq LayerColor "YELLOW")) ((= layercolornum 3) (setq LayerColor "GREEN")) ((= layercolornum 4) (setq LayerColor "CYAN")) ((= layercolornum 5) (setq LayerColor "BLUE")) ((= layercolornum 6) (setq LayerColor "MAGENTA")) ((= layercolornum 7) (setq LayerColor "WHITE")) ) (setq LayerColor (rtos layercolornum)) ) (setq txt (strcat LayerName "," LayerColor "," LayerLineType "," LayerStatus)) (write-line txt file) (setq count (+ count 1)) ) (close file) (princ count)(princ (strcat " layers have been written to " dirname ".")) (princ "\nDouble-click on this file to open in Microsoft Excel.") (princ) ) (princ "\nType LAYERXLS to generate a listing of the current drawing's layer set.")
CSV-Datei in Excel, Word bzw. Access importieren und fertig. ------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
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: 05. Apr. 2004 14:46 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|
atomic Mitglied Techniker
Beiträge: 124 Registriert: 03.12.2003 Athlon 1800XP 1024MB Ram AutoCAD 2004
|
erstellt am: 05. Apr. 2004 21:30 <-- editieren / zitieren --> Unities abgeben:
|
balubabaer Mitglied Bautechniker
Beiträge: 44 Registriert: 12.02.2004 W10, Map2004, 2018, Bricscad, T2500
|
erstellt am: 06. Apr. 2004 10:25 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 06. Apr. 2004 10:31 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|
atomic Mitglied Techniker
Beiträge: 124 Registriert: 03.12.2003 Athlon 1800XP 1024MB Ram AutoCAD 2004
|
erstellt am: 06. Apr. 2004 21:58 <-- editieren / zitieren --> Unities abgeben:
|
carambita Mitglied Dipl.-Ing. Theater- u. Veranstaltungstechnik
Beiträge: 272 Registriert: 03.10.2002 Windows 7 (64-bit) / AutoCAD 2015
|
erstellt am: 28. Jan. 2005 09:10 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|
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: 28. Jan. 2005 14:30 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|
carambita Mitglied Dipl.-Ing. Theater- u. Veranstaltungstechnik
Beiträge: 272 Registriert: 03.10.2002 Windows 7 (64-bit) / AutoCAD 2015
|
erstellt am: 28. Jan. 2005 14:32 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|
obergaertner Mitglied Landschaftsarchitekt
Beiträge: 41 Registriert: 07.11.2003 Win XP Pro, SP 2 AutoCAD 2006 Lt
|
erstellt am: 28. Jan. 2005 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für atomic
|