---

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

---

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

---

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

---

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

---

HE,

das ist GUT!
ES funzt, jawol ja!! :-)

DANKE

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

---

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

---

wenn du was schönes willst Freeware: layerhtml
mit Graphiken

cw

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

---

Sorry,

wenn ich so dumm frage, aber was ist denn "layerhtml"?
Hat das irgendwas mit Lisp zu tun?

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

---

@cadwomen
Layerhtml? gesucht und nicht gefunden...
Wo gibt es soetwas?

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

---

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

---

DANKE für die Info (den Link)!!!!

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

---

Ja ist denn heut schon weihnachten??

vielen dank, der link ist gold wert...

------------------

viele grüße
carambita

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

---

Schon erstaunlich welche alten Postings wieder auftauchen

cw

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

---

ist doch erst ein jahr alt 

------------------

viele grüße
carambita

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

---

also ich bin mit der lösung ganz zufrieden.
http://ww3.cad.de/foren/ubb/Forum54/HTML/007868.shtml

Da brauch ich nicht noch ein Programm.

Viel Spaß!

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