Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
rangxeng

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

Các bài được khuyến nghị

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 ạ !!!

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×