Nhờ các cao nhân sửa giúp em Lisp về tạo Polyline cho thửa đất ????

[nguyenhong3868 0]

Em đang có các tờ bản đồ địa chính File Autocad, trên bản đồ có rất nhiều thửa đất được vẽ bằng Line 
Nhiệm vụ của em là : Bo từng thửa đất để tạo thành thửa khép kín bằng đường Polyline ở 1 Level hiện tại và màu Level hiện tại đó

Nếu sử dụng lệnh Bo từng thửa 1 thì mất rất nhiều thời gian và có khi còn bị sót không kiểm soát được
>>> EM CÓ TÌM THẤY 1 LISP TRÊN DIỄN ĐÀN 

TRONG LISP NAY tác giả đang viết Hatch và TÔ MÀU cho từng thửa và từng vùng một
Em không biết gì về viết code Lisp. Em nhờ các cao nhân giúp em sửa lại Lisp trên thành Lisp :

- Tên lệnh : taovungthua

- Lisp chỉ tạo đường BO cho từng thửa riêng lẻ (KHÔNG BO CHO CẢ MỘT VÙNG RỘNG LỚN)

- KHÔNG TÔ MÀU CHO THỬA

- Làm sao để chạy nhanh hơn vì em thấy Lisp trên nếu quét một vùng nhiều thửa thấy chạy chậm lắm ạ

* HOẶC CÓ CÁCH NÀO XỬ LÝ TRÊN FILE CAD ĐƯỢC KHÔNG Ạ

Rất mong được các cao nhân giúp đỡ ạ. Em xin cảm ơn rất nhiều

111.dwg

888.lsp

[tannguyen291 173]

15 giờ trước, nguyenhong3868 đã nói:

Em đang có các tờ bản đồ địa chính File Autocad, trên bản đồ có rất nhiều thửa đất được vẽ bằng Line 
 Nhiệm vụ của em là : Bo từng thửa đất để tạo thành thửa khép kín bằng đường Polyline ở 1 Level hiện tại và màu Level hiện tại đó

 Nếu sử dụng lệnh Bo từng thửa 1 thì mất rất nhiều thời gian và có khi còn bị sót không kiểm soát được
 >>> EM CÓ TÌM THẤY 1 LISP TRÊN DIỄN ĐÀN 

TRONG LISP NAY tác giả đang viết Hatch và TÔ MÀU cho từng thửa và từng vùng một
Em không biết gì về viết code Lisp. Em nhờ các cao nhân giúp em sửa lại Lisp trên thành Lisp :

- Tên lệnh : taovungthua

 - Lisp chỉ tạo đường BO cho từng thửa riêng lẻ (KHÔNG BO CHO CẢ MỘT VÙNG RỘNG LỚN)

 - KHÔNG TÔ MÀU CHO THỬA

- Làm sao để chạy nhanh hơn vì em thấy Lisp trên nếu quét một vùng nhiều thửa thấy chạy chậm lắm ạ

 * HOẶC CÓ CÁCH NÀO XỬ LÝ TRÊN FILE CAD ĐƯỢC KHÔNG Ạ

 Rất mong được các cao nhân giúp đỡ ạ. Em xin cảm ơn rất nhiều

 111.dwg

888.lsp

Chuyển qua dùng autocad map. có sẵn chức năng này. chạy siêu nhanh. còn với lisp thì khắc phục tốn quá nhiều nơron nên bỏ qua. trên autodesk app có ông bán chương trình kiểu này có mấy trăm k. công việc phức tạp như này tìm lisp không ai có đâu.

[nguyenhong3868 0]

Mình chưa dùng autocad map bao giờ, Bạn cho mình xin bản cài đặt được không ? Nếu có hướng dẫn thì quá là tuyệt vời > xin trân trọng cảm ơn bạn

 

[tannguyen291 173]

Mình k dùng cad map. chỉ biết là có chức năng này thôi. bạn tự tìm hiểu xem: https://www.youtube.com/watch?v=y8m697I5-eU&t=323s

[trieubb 9]

Vào lúc 30/3/2025 tại 21:15, nguyenhong3868 đã nói:

Em đang có các tờ bản đồ địa chính File Autocad, trên bản đồ có rất nhiều thửa đất được vẽ bằng Line 
Nhiệm vụ của em là : Bo từng thửa đất để tạo thành thửa khép kín bằng đường Polyline ở 1 Level hiện tại và màu Level hiện tại đó

Nếu sử dụng lệnh Bo từng thửa 1 thì mất rất nhiều thời gian và có khi còn bị sót không kiểm soát được
>>> EM CÓ TÌM THẤY 1 LISP TRÊN DIỄN ĐÀN 

TRONG LISP NAY tác giả đang viết Hatch và TÔ MÀU cho từng thửa và từng vùng một
Em không biết gì về viết code Lisp. Em nhờ các cao nhân giúp em sửa lại Lisp trên thành Lisp :

- Tên lệnh : taovungthua

- Lisp chỉ tạo đường BO cho từng thửa riêng lẻ (KHÔNG BO CHO CẢ MỘT VÙNG RỘNG LỚN)

- KHÔNG TÔ MÀU CHO THỬA

- Làm sao để chạy nhanh hơn vì em thấy Lisp trên nếu quét một vùng nhiều thửa thấy chạy chậm lắm ạ

* HOẶC CÓ CÁCH NÀO XỬ LÝ TRÊN FILE CAD ĐƯỢC KHÔNG Ạ

Rất mong được các cao nhân giúp đỡ ạ. Em xin cảm ơn rất nhiều

111.dwg

888.lsp

đây bạn, xem dùng được không

t122.lsp

[nguyenhong3868 0]

Cảm ơn bạn trieubb rất nhiều. Dù Lisp vẫn chưa mình mong muốn nhưng cũng giải quyết nhanh và tiết kiệm thời gian !

[Bình Mai 0]

bo cho từng thửa riêng lẻ thì khoai lắm. em chỉ có lisp chuyển line sang poly mà vẫn giữ nguyên thuộc tính của ban đầu thôi, bác cần thì em cho