[Share] lisp tạo layer theo màu, dành cho Copier

[sgcq 726]

Em là Hai Lúa xài cad. Chuyên môn chính là copy. Nay nhận thấy nhu cầu về chỉnh sửa bản vẽ có sẵn của một số copier, chủ yếu là làm một bản copy từ file PDF mà đối tác gởi.

Đặt vấn đề:

- Bạn nhận file từ đối tác, mọi loại file.

- Bạn chuyển đổi thành file CAD. (Convert, export, copy/paste ...)

- File này đủ màu sắc sặc sỡ, 

- Số layer rất hạn chế ==> mọi màu đều nằm trên 1 layer.

==> ĐIỀU NÀY LÀM CHO LỆNH layoff, layiso, laycur ... trở nên vô giá trị.

 

Qua một thời gian rất dài tra cứu, chỉnh sửa, testing ... (Khoảng 60') Hai Lúa đã copy được 1 đoạn code hữu ích xử lý vấn đề.

- Code tạo layer từ các line có sẵn theo màu của chúng.

- Code chuyển các line này vào layer tương ứng đã tạo.

- Các line đã set màu "by layer" sẽ giữ nguyên vị trí.

 

Lệnh layoff, layiso, laycur lúc này đã trở lại hữu dụng.

 

Lisp đính kèm dưới, lệnh xài: MakeAndChangeLayerByColor

 

File mẫu để test lisp:

 

http://www.mediafire.com/file/8be1dp08cy83cn3/ChangeLayer.dwg/file

MakeAndChangeLayerByColor.lsp