AutoCAD 2006 圖層分出檔案

Question

在此版本中，舉例有 20 個圖層，如何依照個別圖層，分出 20 個個別檔案呢？感謝回覆～

使用 VBA 亦可
謝謝～

http://www.logo.idv.tw/getfiles.php?XFILE=SAVELAYER.fas
請問，此檔該如何使用？請簡易說明～謝謝～

Answer 1

提供以下程式:
(DEFUN C:Layer2Draw()
(setvar "cmdecho" 0)
(command "undo" "mark")
(setq qua (getstring "\n各圖層全部轉換至各圖檔(Y=自動/N=單選)?"))
(if (or (= qua "Y") (= qua "y"))
;-----------------------
(progn ; 自動全部轉換
(setq b (cdr (assoc 2 (tblnext "layer" t))))
(setq obj (cdr (assoc 2 (tblnext "layer"))))
(if (not (eq obj nil))
(progn
(setq b (list obj b))
(while (not (eq obj nil))
(setq obj (cdr (assoc 2 (tblnext "layer"))))
(if (not (eq obj nil))
(setq b (cons obj b))
)
)
(setq num 0)
(setq nb b)
(while b
(setq num (1+ num))
(setq obj (car b))
(setq b (cdr b))
(2part)
)
)
)
(prompt "\n===輸出完成===")
(PRINC)
)

2006-10-30 21:35:29 補充：
;----------------------- (progn ; 單選 (setq rp 5000) (setq num 0) (repeat rp (princ "\n選擇要轉換至圖檔的圖層物體:")

2006-10-30 21:36:47 補充：
(setq e (entget (car (entsel)))) (setq obj (cdr (assoc 8 e))) (2part) ) ) ;----------------------- ) (PRINC))

2006-10-30 21:37:19 補充：
;===========================(defun 2PART(); (/ L S) (setq L obj);if exist file (SETQ S (ssget "X" (list (cons 8 L)))) ; Get all entities on layer (SETVAR "expert" 2) ;MUST RESET TO ZERO see startup section

2006-10-30 21:40:29 補充：
POWER補充最後的回答
(command "setvar" "clayer" L)
(setq pa (getvar "dwgprefix") )
(setq paL (STRCAT pa L) )
(if S (command ".wblock" paL "" "0,0" S "") )
(princ) )
(princ)

Answer 2

非常感謝各位大力協助。

Answer 3

http://www.logo.idv.tw/getfiles.php?XFILE=SAVELAYER.fas

下載這一個 .fas 的檔案它就可以解決這一個問題了
它是 LISP 的程式，它會把每一個層上面的物件另存成一個檔案
在原始檔案的同一個路徑下

Answer 4

我找到一個不錯的相關網站供您參考….
http://tw.myblog.yahoo.com/jw!HILmA2GfHxk4xEqcCeefzpzqy.I-

Answer 5

我是用2005的不知道是否一樣 ? 先另存第一個檔案.(原來檔案要留著.不可以更改)先把其他19個圖關掉.在用移動把目前這個移到旁邊(19個圖層線不會干涉到的地方.記得移動多少).再打開那19個圖層.再刪掉.然後把第一個圖層移動回去.然後存檔.這樣OK就!然後再重複19次摟!這個方法是比較笨.但也是很有效的方法~