AutoCAD Layer Names to TXT file (Saved as DWGNAME in same Directory)

[mrharris78]

Hope somebody can help

 

I already have a few lisps which extract layer names to a text file but I need this extra step.

 

Extract all layer names in drawing to a text file, saving the text file as the DWGNAME in the current DWG directory.

 

I need this to be incorporated into a script so I am trying to avoid any prompts/dialogue boxes. Hence, It will just save the file without any user input.

 

Hope this makes sense and somebody can help

 

Cheers in advance,

Harris

[pBe]

(setq fnme (strcat (getvar 'DWGPREFIX)(vl-filename-base (getvar 'DWGNAME)) ".ext"))

[mrharris78]

Cheers - SPOT-ON!!

 

Muchas Gracias..

[Lee Mac]

Would this program help you at all?