Export Layers into individual Files

[ktbjx]

Is there a way or a routine that can extract every layers into individual DXF files or DWG files?

with each Layer Name as the file name?

can someone help?

[Tsuky]

You can adapt this at your convenient

((lambda ( / flag def_lay nam_lay js)
  (setq flag T)
  (while (setq def_lay (tblnext "LAYER" flag))
    (setq nam_lay (cdr (assoc 2 def_lay)) flag nil)
    (cond
      ((setq js (ssget "_X" (list (cons 8 nam_lay))))
        ;(command "_.-wblock" (strcat (getvar "dwgname") "$" nam_lay) "" "*0.0,0.0,0.0" js "")
        (command "_.dxfout" (strcat (getvar "dwgprefix") (getvar "dwgname") "$" nam_lay) "_version" "2000" "_objects" js "" "16")
      )
    )
  )
  (prin1)
))

 

[SLW210]

You might give AutoWblock | AutoCAD | Autodesk App Store a try.

[SLW210]

If you want to try a hand at rolling your own custom LISP...Splitting up drawing into separate files with LISP function? - AutoLISP, Visual LISP & DCL

 

Save each layer in a separate file - AutoLISP, Visual LISP & DCL

 

If nothing else, it is a good read.

 

Tsuky gave you a good start as well.