Tạo lưới tam giác ( delaunay) bằng đường lwpolyline?

[rangxeng 2]

Em xin chào các cao thủ trên cadviet.com em đang gặp vấn đề này mà em ko biết giải quyết như thế nào, em rất mong được các cao nhân về vba ở đây chỉ dậy cho cái đầu óc em được khai sáng về vấn đề này với 
Chả là em đang phải xây dựng lươí tam giác delaunay bằng các đường lwpolyline, tại thời điểm nay em chưa biết mình nên phải viết cái gì đầu tiên nữa hic hic.

Rất mong được các anh chị giúp đỡ, em xin chân thành cảm ơn ạ !!!

[rangxeng 2]

híc, ko bác nào giúp em ạ :(

[ledungtdc 1]

Lưới tam giác không quy chuẩn delaunay được tạo trên cơ sở tập điểm. Bạn dùng lwpolyline thì mình hiểu là tập điểm 2D. Theo như những gì mình đã làm thì bạn hãy bắt đầu từ việc tạo file text chứa các điểm gồm tên và tọa độ các điểm. Dùng vba đọc nó lên mảng sau đó sử dụng thuật toán delaunay với đầu vào là mảng điểm, đầu ra là thứ tự các đỉnh tương ứng với các tam giác không quy chuẩn đã được tính toán. Cuối cùng là dựa vào mảng đỉnh đầu ra này add các lwpolyline lên Modelspace của cad.

Về thuật toán delaunay bằng VB, bạn có thể tìm trên mạng

http://www.codeproject.com/Articles/492435/Delaunay-Triangulation-For-Fast-Mesh-Generation

là một ví dụ, tất nhiên bạn phải cải tiến theo nhu cầu và trình độ của bạn.

Đấy là trường hợp bạn làm delaunay bằng code thuần

 

Bạn có thể ứng dụng công cụ qdelaunay ở trang qhull: http://www.qhull.org/

Theo mình thấy thì đây là chương trình rất mạnh, tạo delaunay cực nhanh, (nhanh nhất mình từng biết) có thể làm với hàng triệu điểm

Để sử dụng chương trình này, bạn tạo file đầu vào theo đúng chuẩn, dùng vba truyền các tham số theo đúng chương trình qdelaunay yêu cầu (đọc help), chương trình sẽ tạo cho bạn file tẽt mới là file các tam giác không quy chuẩn được tạo từ tập điểm file đầu vào. Nhiệm vụ tiếp theo của bạn là đọc file tam giác này và add lwpolyline tương ứng với các đỉnh tam giác vào Modelspace thôi.

Nếu bạn cần chi tiết hơn mình có thể hướng dẫn nhưng vì 3,4 năm nay ko làm vba cad nên hơi chậm