ktbjx Posted May 17 Share Posted May 17 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? Quote Link to comment Share on other sites More sharing options...
Tsuky Posted May 17 Share Posted May 17 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) )) 1 Quote Link to comment Share on other sites More sharing options...
SLW210 Posted May 17 Share Posted May 17 You might give AutoWblock | AutoCAD | Autodesk App Store a try. Quote Link to comment Share on other sites More sharing options...
SLW210 Posted May 17 Share Posted May 17 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.