Vẽ đường đồng mức trong cad

      243

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.

Bạn đang xem: Vẽ đường đồng mức trong cad

Đang xem: Phần mềm vẽ đường đồng mức

Đang xem: Phần mềm vẽ đường đồng mức

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!

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

thanhduan2407 260

thanhduan2407 260

biết lệnh adcenterNhà quảng cáo 2601.119 bài viếtGiới tính:MaleĐã đăng Tháng 11 13, 2016

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

hoquangvinh 6

*

hoquangvinh 6

biết lệnh extendThành viên 6199 bài viếtĐã đăng Tháng 11 13, 2016

chưa test hết các vấn đề nhưng lisp đã chạy ngon rồi

thanks bác HA rất nhiều

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

KangKung 247

KangKung 247

biết lệnh trimThành viên 247192 bài viếtGiới tính:MaleĐã đăng Tháng 11 13, 2016

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))

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

gia_bach 1.504

*

gia_bach 1.504

biết lệnh adcenterpeaceworld.com.vn Team 1.5041.557 bài viếtGiới tính:MaleVị trí:TP.HCMĐã đăng Tháng 11 14, 2016

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

thanhduan2407 260

thanhduan2407 260

biết lệnh adcenterNhà quảng cáo 2601.119 bài viếtGiới tính:MaleĐã đăng Tháng 11 15, 2016

Các bác cho em hỏi là với bản vẽ em gửi dưới đây các bác chạy hết bao nhiêu giây ạ?

http://www.mediafire.com/file/0dbynwl6ic97na7/BINH+DO+DAK+DOA_TL500_L3.dwg

Em chạy nó mất hơn 800 giây

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

Bee 142

Bee 142

biết lệnh xrefThành viên 142514 bài viếtĐã đăng Tháng 11 15, 2016

Các bác cho em hỏi là với bản vẽ em gửi dưới đây các bác chạy hết bao nhiêu giây ạ?

http://www.mediafire.com/file/0dbynwl6ic97na7/BINH+DO+DAK+DOA_TL500_L3.dwg

Em chạy nó mất hơn 800 giây

Của mình 172s bước 1m.

 

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

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài viếtGiới tính:MaleĐã đăng Tháng 11 15, 2016

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

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

Bee 142

Bee 142

biết lệnh xrefThành viên 142514 bài viếtĐã đăng Tháng 11 15, 2016

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

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài viếtGiới tính:MaleĐã đăng Tháng 11 15, 2016

Oa! Vậy tôi sẽ cải tiến cho nhanh hơn chút nữa.

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

Tuynh 1

Tuynh 1

biết vẽ ellipseThành viên 156 bài viếtGiới tính:MaleVị trí:NVĐã đăng Tháng 11 15, 2016

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

ndtnv 459

ndtnv 459

biết lệnh xrefThành viên 459525 bài viếtGiới tính:MaleVị trí:SaigonĐã đăng Tháng 11 16, 2016

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).

Xem thêm: Top 10 Bộ Phim Dã Sử Trung Quốc Hay Nhất Mọi Thời Đại, Top 25 Bộ Phim Trung Quốc Hay Nhất Mọi Thời Đại

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 https://peaceworld.com.vn/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àyLiên kết tới bài đăngChia sẻ trên các trang web khác

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài viếtGiới tính:MaleĐã đăng Tháng 11 16, 2016

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 https://peaceworld.com.vn/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àyLiên kết tới bài đăngChia sẻ trên các trang web khác

ndtnv 459

ndtnv 459

biết lệnh xrefThành viên 459525 bài viếtGiới tính:MaleVị trí:SaigonĐã đăng Tháng 11 16, 2016

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

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài viếtGiới tính:MaleĐã đăng Tháng 11 17, 2016

Đâ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?

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

thanhduan2407 260

thanhduan2407 260

biết lệnh adcenterNhà quảng cáo 2601.119 bài viếtGiới tính:MaleĐã đăng Tháng 11 18, 2016

Đâ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àyLiên kết tới bài đăngChia sẻ trên các trang web khác

HUYNHTS99 0

HUYNHTS99 0

Chưa sử dụng CADThành viên 01 bài viếtĐã đăng Tháng 6 24, 2018

m1-gan-cao-do.dwg

các bác cho em hỏi : cạnh tam giác TIN max là sao ạ các bác?làm sao biết chọn số bao nhiều cho phù hợp ạ?(0.0001 hay 0,02 hay 10 …em chưa hiểu ý nghĩa của nó nên em k rõ cách chọn số nào trong vô vàn số cho phù hợp.)em chọn point đúng k các bác.ở ví dụ của bác chủ trên cùng em chọn các điểm trên cad các bác ah.sau bước này em m1-gan-cao-do.dwgchọn bôi đen đối tượng rồi ấn enter máy báo chạy xong mất 0s.em thấy k chọn đc đối tượng nào các bác ah.các bác chỉ cho em với ạ.

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

WRU 1

WRU 1

Chưa sử dụng CADThành viên 11 bài viếtĐã đăng Tháng 9 16, 2018

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?

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

nguyenanh93 9

nguyenanh93 9

biết vẽ lineThành viên 927 bài viếtĐã đăng Tháng 10 1, 2018

Hôm trước mình có đọc topic này và thấy tốc độ chạy của lisp như vậy là khá chậm. Nên có tìm hiểu về việc vẽ đường đồng mức và làm tool để vẽ. Tool arx của mình chạy

Đã đăng Tháng 10 1, 2018

Đã đăng Tháng 1 26, 2019

Đã đăng Tháng 5 9, 2019

Đã đăng Tháng 5 9, 2019

Đã đăng Tháng 5 9, 2019

 

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à.