---

Hallo zusammen,
weiss jemand eine Möglichkeit, wie man alle Layer, die in einer Zeichnung vorhanden sind, als Ausdruck erhält oder vielleicht sogar als Text Datei bekommt.
Ich dachte ich hatte mal einen LISP dafür, kann den aber nicht mehr finden.

Besten Dank im voraus

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

---

Hallo Wolfi,

anbei die wenigen Zeilen LISP, die deine Wünsche erfüllt.

(defun c:lali ( / datei f name color ltyp lay wtext
)
(setq datei (getfiled "Datei wählen" "" "txt" 1)
f (open datei "w"))
(setq lay (tblnext "LAYER" T))
(while lay
(setq name (cdr (assoc 2 lay))
color (itoa (cdr (assoc 62 lay)))
ltyp (cdr (assoc 6 lay))
lay (tblnext "LAYER")
wtext (strcat name "\t" color "\t" ltyp)
)
(write-line wtext f)
)
(close f)
)

Grüße Holger

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

---

Hi
Du kannst mich auch mal besuchen www.CADwiesel.de
unter "Layer" ist was

------------------
Gruß
CADwiesel

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

---

hier noch eine möglichkeit

gebe in der kommandozeile den befehl -layer ein. jetzt bekommst du das layermenü, jedoch ohne fenster. unter den optionen wählst du auflisten. nun werden alle layer im textfenster aufgelistet. durch einen rechtsklick im textfenster kannst du das protokoll kopieren und dieses anschließend in einem texteditor einfügen !

anmerkung : vermutlich ist eine lsp version viel eleganter, aber es gibt büros, wo es nicht erlaubt ist sachen hinzuzufügen, wie z.b.lsp oder scr -files. vermutlich um admins nicht zu oft vor neuinstalltionen zu quälen

...oder warum auch immer

------------------
Die Tastatur finden Sie, indem Sie das Kabel verfolgen, das mit einem
5poligen DIN-Stecker an der Rückseite Ihres Rechners angebracht ist.

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