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.
Doan Van Ha

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

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

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!

  • Vote tăng 9

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

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ó nguồn trên Internet, tôi hiệu chỉnh và bổ sung để tăng tốc độ xử lý.

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.

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!

Cháu cảm ơn bác Hạ nhiều! Chúc bác sức khỏe và thành công trong cuộc sống!

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

Lisp của bác Hạ chạy tốt, người viết Lisp có tâm, tuy nhiên còn có lỗi lấy nhầm Justify của Text. Chỉ đúng khi Justify là Left còn lại thì lấy sai điểm dẫn đến lưới mô hình độ cao bị lệch do đó đường đồng mức cũng lệch theo. Bác Hạ nên thay đoạn mã này: (setq lstXYZ (mapcar '(lambda(ent) (cdr (assoc 10 (entget ent)))) lstEnt))

bằng đoạn mã sau đây: (setq lstXYZ (mapcar '(lambda(ent) (if (= (+ (cdr(assoc 72 (setq txt(entget ent)))) (cdr(assoc 73 txt))) 0) (cdr (assoc 10 txt)) (cdr (assoc 11 txt)))) lstEnt))

  • Vote tăng 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

Like mạnh.

 

Lisp của bác Hạ chạy tốt, người viết Lisp có tâm, tuy nhiên còn có lỗi lấy nhầm Justify của Text ...

@ KangKung : chuyện nhỏ 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

Máy mọi người sao chậm nhỉ? Máy mình:

- Bước 2.0m: 63 giây

- Bước 1.0m: 116 giây

- Bước 0.5m: 224 giây

Máy bác i7, máy e Pen IV. ^_^

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

Cám ơn bác nhé lisp chạy rất ngon. Tiện đây em cũng yêu cầu bác có thể thêm lệnh phát sinh điểm trên mô hình tam giác Polyline3D không tức là tăng dày thêm điểm trêm mô hình 

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

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!

Tôi cũng có dự định viết chương trình Đường Đồng Mức bằng ARX và đã viết xong phần tạo lưới tam giác. Tuy nhiên đến phần vẽ ĐĐM, tham khảo các file cad tôi thấy ĐĐM vẽ bằng các line xấp xỉ Spline nên rất mịn. Search tìm công thức Spline chưa ra, mặt khác vì không có chuyên môn sâu về trắc địa nên không rõ nguyên tắc xấp xỉ Spline như thế nào nên còn để đó.

Tham khảo file test thì thấy lisp của bạn Doan Van Ha chạy còn thiếu nhiều chỗ (>15), ĐĐM còn thô nên không biết có đạt y/c TCVN không?

Về câu hỏi bên http://www.cadviet.com/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-142?do=findComment&comment=410604

bạn thử dùng cách chọn các line cùng cao độ rồi dùng lệnh PEDIT Join của cad xem.

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ôi cũng có dự định viết chương trình Đường Đồng Mức bằng ARX và đã viết xong phần tạo lưới tam giác. Tuy nhiên đến phần vẽ ĐĐM, tham khảo các file cad tôi thấy ĐĐM vẽ bằng các line xấp xỉ Spline nên rất mịn. Search tìm công thức Spline chưa ra, mặt khác vì không có chuyên môn sâu về trắc địa nên không rõ nguyên tắc xấp xỉ Spline như thế nào nên còn để đó.

Tham khảo file test thì thấy lisp của bạn Doan Van Ha chạy còn thiếu nhiều chỗ (>15), ĐĐM còn thô nên không biết có đạt y/c TCVN không?

Về câu hỏi bên http://www.cadviet.com/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-142?do=findComment&comment=410604

bạn thử dùng cách chọn các line cùng cao độ rồi dùng lệnh PEDIT Join của cad xem.

1). Thiếu nhiều chỗ là do khoảng cách lấy mặc định 30m không đủ khép tam giác. User có quyền tăng mà.

2). Pedit chậm lắm, nhất là khi xử lý tập lớn.

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

Test trên máy tôi :

Bước 2.0m: 121 giây

PEDIT Join trên bv mẫu:

Select objects:   15090 found

14935 segments added to 154 polylines : 4687 millisecs

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

Draw_Contour_HA1.png

Đây là lisp giải quyết các trường hợp máy cùi:
http://www.mediafire.com/file/h5ylnsdd0sf6s5c/Draw_Contour_HA02.fas

Làm từ thiện bây giờ khó lắm: MC Phan Anh.

Post bài lên CV bây giờ còn khó hơn: tôi

Giá như có ai đó có Web tốt để theo?

  • Vote tăng 3

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

Draw_Contour_HA1.png

Đây là lisp giải quyết các trường hợp máy cùi:

http://www.mediafire.com/file/h5ylnsdd0sf6s5c/Draw_Contour_HA02.fas

Làm từ thiện bây giờ khó lắm: MC Phan Anh.

Post bài lên CV bây giờ còn khó hơn: tôi

Giá như có ai đó có Web tốt để theo?

Bác giỏi và thật nhiệt tình.

Mong anh Hoành nâng cấp Web chứ nhiều thứ hơi bất tiện.

Ví dụ:

Em muốn Up ảnh lên cứ phải up lên trang khác rồi copy link. 

Muốn xóa bài mình vừa đăng sai mà không được.

Thời gian đăng bài nó báo nhanh quá cũng ko được, cứ phải chờ 1 lúc mới đăng được.

Các trang hiển thị hơi ít, toàn bị trôi, phải vào phần bài viết cá nhân hoặc các chủ đề mới thấy được.

.......

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


×