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

      308

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

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

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

Đang xem: ứng dụng vẽ con đường đồng mức

Lisp có 1 phần nguồn từ Internet, tôi hiệu chỉnh và bổ sung cập nhật để tăng tốc độ xử lý. 1 phần khác trường đoản cú viết.

Code mở phải mọi fan tha hồ vọc. Lệnh: DDM.

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

Chức năng: vẽ những tam giác TIN, vẽ ĐĐM, tô màu theo cao độ mang lại ĐĐ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 nhằm 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 nét chưa phù hợp lắm, đã sửa sau. Hy vọng được đem đến nguồn vui cho đầy đủ người!

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

thanhduan2407 260

thanhduan2407 260

biết lệnh adcenterNhà lăng xê 2601.119 bài xích viếtGiới tính:MaleĐã đăng tháng 11 13, 2016

Thấy đa số chúng ta than phiền những lisp vẽ Đường Đồng nấc (ĐĐM) hay chạy chậm, thậm chí nhiều khi treo máy, đề nghị tôi làm cái này ship hàng cộng đồng.

Lisp có nguồn bên trên Internet, tôi hiệu chỉnh và bổ sung để tăng vận tốc xử lý.

Code mở phải mọi bạn tha hồ vọc. Lệnh: DDM.

Test với bạn dạng vẽ 22629 points ở lắp thêm tôi chỉ mất 60 giây.

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

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

File Cad nhằm 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 đôi nét chưa chấp nhận lắm, sẽ sửa sau. Hy vọng được đem về nguồn vui cho phần nhiều người!

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

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

hoquangvinh 6

*

hoquangvinh 6

biết lệnh extendThành viên 6199 bài xích viếtĐã đăng tháng 11 13, năm nhâm thìn

chưa chạy thử hết những vấn đề tuy vậy lisp đã chạy ngon rồi

thanks chưng HA khôn xiết nhiều

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

KangKung 247

KangKung 247

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

Lisp của bác bỏ Hạ chạy tốt, bạn viết Lisp gồm tâm, mặc dù nhiên còn có lỗi lấy nhầm Justify của Text. Chỉ đúng lúc Justify là Left còn lại thì rước sai điểm dẫn cho lưới quy mô độ cao bị lệch cho nên vì vậy đường đồng nút cũng lệch theo. Chưng 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 xích đăng nàyLiên kết tới bài đăngChia sẻ trên các trang website 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, năm nhâm thìn

Like mạnh.

 

Lisp của chưng Hạ chạy tốt, bạn viết Lisp có tâm, mặc dù nhiên còn tồn tại lỗi mang nhầm Justify của Text …

KangKung : chuyện nhỏ dại mà ?!

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

thanhduan2407 260

thanhduan2407 260

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

Các bác cho em hỏi là với phiên bản vẽ em gửi dưới đây các chưng 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 những trang web khác

Bee 142

Bee 142

biết lệnh xrefThành viên 142514 bài xích viếtĐã đăng mon 11 15, 2016

Các chưng cho em hỏi là với phiên bản vẽ em gửi sau đâ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 cách 1m.

 

Chia sẻ bài xích đă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 bác viếtGiới tính:MaleĐã đăng mon 11 15, năm 2016

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

– bước 2.0m: 63 giây

– bước 1.0m: 116 giây

– cách 0.5m: 224 giây

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

Bee 142

Bee 142

biết lệnh xrefThành viên 142514 bài xích viếtĐã đăng tháng 11 15, năm nhâm thìn

Máy mọi tín đồ sao chậm rì rì nhỉ? vật dụng mình:

– cách 2.0m: 63 giây

– cách 1.0m: 116 giây

– bước 0.5m: 224 giây

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

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

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài bác viếtGiới tính:MaleĐã đăng mon 11 15, năm nhâm thìn

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

Chia sẻ bài bác đăng nàyLiên kết tới bài bác đăngChia sẻ trên những 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, năm nhâm thìn

Cám ơn bác nhé lisp chạy khôn cùng ngon. Tiện phía trên em cũng yêu cầu bác rất có thể thêm lệnh tạo ra điểm trên quy mô 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 xích đăng nàyLiên kết tới bài đăngChia sẻ trên những trang website khác

ndtnv 459

ndtnv 459

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

Thấy nhiều người than phiền các lisp vẽ Đường Đồng mức (ĐĐM) hay chạy chậm, thậm chí nhiều lúc treo máy, yêu cầu tôi làm chiếc này ship hàng cộng đồng.

Lisp có một phần nguồn trường đoản cú Internet, tôi hiệu chỉnh và bổ sung cập nhật để tăng vận tốc xử lý. 1 phần khác từ bỏ viết.

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

Test với bạn dạng vẽ 22629 points ở trang bị tôi chỉ mất 60 giây (với các thông số mặc định vào 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 độ mang lại ĐĐM.

Đối tượng: tập các point, hoặc tập những text, hoặc tập những 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 chấp nhận lắm, đã sửa sau. Hy vọng được mang về nguồn vui cho gần như người!

Tôi cũng có dự định viết chương trình Đường Đồng Mức bởi ARX cùng đã viết hoàn thành phần sinh sản lưới tam giác. Tuy vậy đến phần vẽ ĐĐM, xem thêm các file cad tôi thấy ĐĐM vẽ bằng những line giao động Spline nên rất mịn. Tìm kiếm tìm cách làm Spline không ra, mặt khác vì không tồn tại chuyên môn sâu về trắc địa nên không rõ nguyên tắc xê dịch Spline ra làm sao nên còn nhằm đó.

Tham khảo file chạy thử thì thấy lisp của doanh nghiệp Doan Van Ha chạy không đủ nhiều chỗ (>15), ĐĐM còn thô nên lần khần có đạt y/c TCVN không?

Về thắc mắc 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 demo dùng giải pháp chọn những line cùng cao độ rồi sử dụng lệnh PEDIT Join của cad xem.

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

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài xích viếtGiới tính:MaleĐã đăng mon 11 16, năm nhâm thìn

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

Tham khảo file kiểm tra thì thấy lisp của bạn Doan Van Ha chạy không đủ nhiều khu vực (>15), ĐĐM còn thô nên do dự 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 test dùng phương pháp chọn những 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 cảm thấy không được khép tam giác. User tất cả quyền tăng mà.

2). Pedit chậm lắm, nhất là lúc 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 xích viếtGiới tính:MaleVị trí:SaigonĐã đăng tháng 11 16, năm 2016

Test trên đồ vật tôi :

Bước 2.0m: 121 giây

PEDIT Join bên trên bv mẫu:

Select objects: 15090 found

14935 segments added khổng lồ 154 polylines : 4687 millisecs

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

Doan Van Ha 3.016

Doan Van Ha 3.016

biết lệnh adcenterModerator 3.0165.775 bài xích viếtGiới tính:MaleĐã đăng tháng 11 17, năm nhâm thìn

Đây là lisp xử lý các ngôi trường hợp đồ vật cùi:http://www.mediafire.com/file/h5ylnsdd0sf6s5c/Draw_Contour_HA02.fas

Làm từ thiện hiện nay khó lắm: MC Phan Anh.

Post bài lên CV hiện giờ còn khó khăn hơn: tôi

Giá như tất cả ai đó tất cả Web xuất sắc để theo?

13Chia sẻ bài xích đăng nàyLiên kết tới bài đăngChia sẻ trên những trang website khác

thanhduan2407 260

thanhduan2407 260

biết lệnh adcenterNhà quảng cáo 2601.119 bài xích viếtGiới tính:MaleĐã đăng tháng 11 18, năm nhâm thìn

Đây là lisp giải quyết và xử lý các trường hợp thứ cùi:

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

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

Post bài xích lên CV hiện nay còn nặng nề hơn: tôi

Giá như bao gồm ai đó gồm Web giỏi để theo?

Bác tốt và thật nhiệt độ tình.

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

Ví dụ:

Em ao ước Up ảnh lên cứ cần up lên trang khác rồi copy link. 

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

Thời gian đăng bài xích nó báo cấp tốc quá cũng ko được, cứ yêu cầu chờ 1 lúc mới đăng được.

Các trang hiển thị khá ít, toàn bị trôi, bắt buộc vào phần nội dung bài viết cá nhân hoặc các chủ đề new thấy được.

…….

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

HUYNHTS99 0

HUYNHTS99 0

Chưa áp dụng CADThành viên 01 bài xích viếtĐã đăng mon 6 24, 2018

m1-gan-cao-do.dwg

các bác bỏ cho em hỏi : cạnh tam giác TIN max là sao ạ những bác?làm sao biết lựa chọn số bao những cho tương xứng ạ?(0.0001 xuất xắc 0,02 tốt 10 …em không hiểu chân thành và ý nghĩa của nó bắt buộc em k rõ phương pháp chọn số như thế nào trong vô vàn số mang lại phù hợp.)em lựa chọn point đúng k những bác.ở lấy ví dụ như của bác bỏ chủ trên cùng em chọn những điểm bên trên cad những bác ah.sau đoạn này em m1-gan-cao-do.dwgchọn quẹt đen đối tượng người sử dụng rồi ấn enter đồ vật 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 chưng chỉ mang đến em với ạ.

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

WRU 1

WRU 1

Chưa thực hiện CADThành viên 11 bài bác viếtĐã đăng mon 9 16, 2018

Có chưng nào mang lại em xin video hướng dẫn thực hiện với. 

Em dùng mà ko được.

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

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

nguyenanh93 9

nguyenanh93 9

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

Hôm trước mình gồm đọc topic này và thấy tốc độ chạy của lisp do vậy là hơi chậm. Nên có được sự hiểu biết về bài toán vẽ đường đồng nút và làm tool để vẽ. Tool arx của bản thân chạy

Đã đăng mon 10 1, 2018

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

Đã đăng mon 5 9, 2019

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

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

 

Tạo tài khoản

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