[Đã Xong] Lisp Vẽ Đường Đồng Mức Tốc Độ Cao

[Ngô Minh Châu 0]

Anh cho em hỏi, sao em dùng lisp này, máy báo đã vẽ xong đường đồng mức, thời gian: 0s mà chỉ có lưới TIN, không thấy đường đồng mức? Lỗi này do máy hay như thế nào ạ, trả lời sớm giúp em nhé! Thanks anh!

[Ngô Minh Châu 0]

Vào lúc 16/9/2018 tại 13:21, WRU đã nói:

Có bác nào cho em xin video hướng dẫn sử dụng với. 

Em dùng mà không được.

Em cảm ơn các bác?

Bạn làm được chưa? mình cũng ko chạy được. nếu chạy được thì gửi cho mình xin hướng dẫn với nhé. Mail: minhchau8586@gmail.com. Thanks bạn nhiều!

[nguyenvantinh05TNMT 0]

Chào bác Hà

Do trình độ còn thấp em đọc code của bác chưa hiểu hết thuật toán tạo tam giác TIN. 
Cho em hỏi về thuật toán hoặc các tài liệu của của mô hình TIN mà bác sử dụng được không ạ!
Cho em xin thông tin qua mail : nguyenvantinh9a4@gmail.com
Xin cảm ơn Bác nhiều ạ!

[Doan Van Ha 3.180]

31 phút trước, nguyenvantinh05TNMT đã nói:

Chào bác Hà

Do trình độ còn thấp em đọc code của bác chưa hiểu hết thuật toán tạo tam giác TIN. 
Cho em hỏi về thuật toán hoặc các tài liệu của của mô hình TIN mà bác sử dụng được không ạ!
Cho em xin thông tin qua mail : nguyenvantinh9a4@gmail.com
Xin cảm ơn Bác nhiều ạ!

Thuật toán này của 1 người Nga. Hỏi Putin may ra xin được, chứ tôi không quen ổng. Hehe.

[nguyenvantinh05TNMT 0]

Dạ em chỉ xin tên của phương pháp tạo mô hình TIN của bác thôi ạ! 

 

[Doan Van Ha 3.180]

1 giờ} trướ}c, nguyenvantinh05TNMT đã nói:

Dạ em chỉ xin tên của phương pháp tạo mô hình TIN của bác thôi ạ! 

 

TIN (Triangle Irregular Network)

[nguyenvantinh05TNMT 0]

1 giờ} trướ}c, Doan Van Ha đã nói:

TIN (Triangle Irregular Network)

Hehe bác cứ đùa. Em thì biết Thuật toán Flip,  Incremental, divide and conquer và Sweephull. Không biết bác sử dụng cái nào khác hay 1 trong số chúng, em đọc code mãi chậm tiêu quá. 

[Doan Van Ha 3.180]

4 phút trước, nguyenvantinh05TNMT đã nói:

Hehe bác cứ đùa. Em thì biết Thuật toán Flip,  Incremental, divide and conquer và Sweephull. Không biết bác sử dụng cái nào khác hay 1 trong số chúng, em đọc code mãi chậm tiêu quá. 

Cái code tạo TIN là của thằng Nga!

[nguyenvantinh05TNMT 0]

1 phút trước, Doan Van Ha đã nói:

 Cái code tạo TIN là của thằng Nga!

À dạ rồi, em thông rồi . Cảm ơn bác nhiều nghen.

[dungpham01 6]

19 giờ trước, nguyenvantinh05TNMT đã nói:

À dạ rồi, em thông rồi . Cảm ơn bác nhiều nghen.

hàm nào trong cái code ấy tôi cũng hiểu, nhưng đọc đến gần cuối thì rối quá cuối cùng chả hiểu gì. nói chung cái code này chỉ dùng cho các point thôi. chứ không dùng cho đường polyline được. để cho nhanh thì nên cài cad2005 rồi cài thêm HS vào nữa là chạy vivu

[DuongTrungHuy 128]

Mình có viết cái này. Nếu Bạn nào cần để làm ăn thì xem nhé.

 

[thiep 365]

3 giờ trước, DuongTrungHuy đã nói:

Mình có viết cái này. Nếu Bạn nào cần để làm ăn thì xem nhé.

 

Lệnh rất tuyệt, việc nắn contuor theo 1 đoạn spline cũng rất tuyệt. Thiệp chỉ góp ý 1 điều thôi: tạo label cao độ cho contuor, chỉ cần pick 1 điểm (nearest) là đủ, lisp sẽ tính toán góc quay của Text = góc tiếp tuyến tại điểm pick. Thân ái.

[CuongXD7 3]

Vào lúc 13/11/2016 tại 11:09, Doan Van Ha đã nói:

Thấy nhiều bạn than phiền các lisp vẽ Đường Đồng Mức (ĐĐM) thường chạy chậm, thậm chí đôi khi treo máy, nên tôi làm cái này phục vụ cộng đồng.

Lisp có một phần nguồn từ Internet, tôi hiệu chỉnh và bổ sung để tăng tốc độ xử lý. Một phần khác tự viết.

Code mở nên mọi người tha hồ vọc. Lệnh: DDM.

Test với bản vẽ 22629 points ở máy tôi chỉ mất 60 giây (với các thông số mặc định trong lisp).

Chức năng: vẽ các tam giác TIN, vẽ ĐĐM, tô màu theo cao độ cho ĐĐM.

Đối tượng: tập các point, hoặc tập các text, hoặc tập các block_att cao độ.

File Cad để test:

http://www.mediafire.com/file/c3ey62x9rb35bu6/Draw_Contour_HA.dwg

File Lisp:

http://www.mediafire.com/file/90u0sgqmukkuft7/Draw_Contour_HA.lsp

File Image:

http://www.mediafire.com/view/ydyhy3csv9pg4yd/Draw_Contour_HA.png

 

Còn vài điều chưa hài lòng lắm, sẽ sửa sau. Hy vọng được đem đến nguồn vui cho mọi người!

Cảm ơn anh