TÁCH BLOCK TỪ FILE!

[MANHHUNGXDA 458]

Gửi các bác!

 

e có 1 file cad gồm nhiều block khác nhau, giờ em muốn tách các block này thành các file riêng (mỗi block là 1 file cad riêng, tên file là tên block) rồi lưu vào thư mục ổ C: chẳng hạn.

 

Cách nông dân là copy từng cái, kể hơi mất thời gian, bác nào có cách khác không giúp em với

Xin cảm ơn!

[hoan2182 843]

Gửi các bác!

 

e có 1 file cad gồm nhiều block khác nhau, giờ em muốn tách các block này thành các file riêng (mỗi block là 1 file cad riêng, tên file là tên block) rồi lưu vào thư mục ổ C: chẳng hạn.

 

Cách nông dân là copy từng cái, kể hơi mất thời gian, bác nào có cách khác không giúp em với

Xin cảm ơn!

Anh gõ W >>> sẽ hiện bảng write block >>> click chọn Block >>> chọn tên block >>>> ok sẽ có một file dwg mang tên block

[phamngoctukts 717]

Gửi các bác!

 

e có 1 file cad gồm nhiều block khác nhau, giờ em muốn tách các block này thành các file riêng (mỗi block là 1 file cad riêng, tên file là tên block) rồi lưu vào thư mục ổ C: chẳng hạn.

 

Cách nông dân là copy từng cái, kể hơi mất thời gian, bác nào có cách khác không giúp em với

Xin cảm ơn!

Của bác đây. lệnh taob chọn block muốn tạo thành file mới. các file mới được tạo ra trong thư mục c:\wblock

(defun c:taob ()
(setq ss (ssget '((0 . "insert")))
i 0
)
(command "shell" "md c:\\wblock") 
(while (< i (sslength ss))
(setq name (ssname ss i)
tenblock (cdr (assoc 2 (entget name)))
diem (cdr (assoc 10 (entget name)))
)
(command "wblock")
(command
(strcat "c:\\wblock\\" tenblock ".dwg"))
(command "" diem name "")
(setq i (1+ i))
)
)

[MANHHUNGXDA 458]

Cam ơn bạn, mình thấy nó chạy tốt nhưng có hai nhưọc điểm

 

1-Các block dạng thuộc tính thì nó không được

2-Phải chọn từng block

 

Bạn có cách khác không, giup mình với!

Ví dụ với file này xem

http://www.cadviet.com/upfiles/3/222.dwg

[phamngoctukts 717]

Cam ơn bạn, mình thấy nó chạy tốt nhưng có hai nhưọc điểm

 

1-Các block dạng thuộc tính thì nó không được

2-Phải chọn từng block

 

Bạn có cách khác không, giup mình với!

Ví dụ với file này xem

http://www.cadviet.com/upfiles/3/222.dwg

Của bạn đây. Mình không dành về loại block này lắm nên khi nó xử lí đến thằng block này thì nó bị dừng lại. Bán cứ ấn enter để tiếp tục đến khi kết thúc.

;; free lisp from cadviet.com

(defun c:taob ()
(setq ss (ssget '((0 . "insert")))
i 0
)
(command "shell" "md c:\\wblock") 
(while (< i (sslength ss))
(setq name (ssname ss i)
tenblock (cdr (assoc 2 (entget name)))
diem (cdr (assoc 10 (entget name)))
)
(command "wblock")
(command
(strcat "c:\\wblock\\" (vl-string-left-trim "*" tenblock) ".dwg"))
(command "" diem name "")
(setq i (1+ i))
)
)