Phần Mềm Vẽ Đường Đồng Mức Trên Dpsurvey Từ Số Liệu Khảo Sát

Thấy đa số chúng ta kêu than các lisp vẽ Đường Đồng Mức (ĐĐM) hay chạy đủng đỉnh, thậm chí còn đôi khi treo vật dụng, nên tôi làm cho tính năng này giao hàng xã hội.

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

Lisp gồm một phần nguồn tự Internet, tôi hiệu chỉnh với bổ sung cập nhật để tăng tốc độ cách xử trí. Một phần không giống từ bỏ viết.

Code mở bắt buộc gần như fan tha hồ vọc. Lệnh: DDM.

Test với phiên bản vẽ 22629 points sống lắp thêm tôi chỉ mất 60 giây (với các thông số kỹ thuật mang định trong lisp).

Chức năng: vẽ những tam giác TIN, vẽ ĐĐM, sơn màu theo cao độ mang lại ĐĐM.

Đối tượng: tập những 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 vài nét không ưng ý lắm, đã sửa sau. Hy vọng được đem đến mối cung cấp vui đến những người!

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

thanhduan2407 261

biết lệnh adcenterNhà truyền bá 2611.137 bài xích viếtGiới tính:Male
Đã đăng Tháng 11 13, năm 2016

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

Lisp tất cả mối cung cấp trên Internet, tôi hiệu chỉnh cùng bổ sung cập nhật để tăng tốc độ cách xử trí.

Code msống yêu cầu hầu như tín đồ tha hồ nước vọc. Lệnh: DDM.

Test cùng với bạn dạng vẽ 22629 points làm việc sản phẩm tôi chỉ mất 60 giây.

Chức năng: vẽ các tam giác TIN, vẽ ĐĐM, tô màu sắc 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 những 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 điều không phù hợp lắm, đang sửa sau. Hy vọng được đem đến nguồn vui cho những người!

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

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

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

không test không còn những vụ việc dẫu vậy lisp đang chạy ngon rồi

thanks bác bỏ HA hết sức nhiều

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

KangKung 247

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

Lisp của bác bỏ Hạ chạy giỏi, fan viết Lisp gồm vai trung phong, tuy vậy còn tồn tại lỗi đem nhầm Justify của Text. Chỉ đúng lúc Justify là Left còn lại thì đem không nên điểm dẫn mang lại lưới mô hình độ dài bị lệch do đó con đường đồng nấc cũng lệch theo. Bác Hạ bắt buộc ráng đoạn mã này: (setq lstXYZ (mapoto "(lambda(ent) (cdr (assoc 10 (entget ent)))) lstEnt))

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

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

gia_bach 1.514

biết lệnh adcentertec-ftu.org Team 1.5141.578 bài viếtGiới tính:MaleVị trí:TPhường.HCM
Đã đăng Tháng 11 14, 2016

Like mạnh mẽ.

Lisp của bác bỏ Hạ chạy xuất sắc, tín đồ viết Lisp bao gồm trọng điểm, tuy nhiên còn có lỗi rước nhầm Justify của Text ...

KangKung : cthị trấn bé dại cơ mà ?!

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

thanhduan2407 261

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

Các bác bỏ mang đến em hỏi là cùng với bản vẽ em gửi tiếp sau đây các bác bỏ chạy không còn từng nào 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 xích đăngChia sẻ bên trên các website khác

Bee 147

biết lệnh xrefThành viên 147532 bài bác viết
Đã đăng Tháng 11 15, năm nhâm thìn

Các bác bỏ cho em hỏi là cùng với phiên bản vẽ em gửi sau đây các chưng chạy không còn bao nhiêu giây ạ?

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

Em chạy nó mất rộng 800 giây

Của bản thân 172s bước 1m.

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

Doan Van Ha 3.039

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

Máy phần đông bạn sao lờ đờ nhỉ? Máy mình:

- Cách 2.0m: 63 giây

- Cách 1.0m: 116 giây

- Cách 0.5m: 224 giây

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

Bee 147

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

Máy hầu như bạn sao chậm chạp nhỉ? Máy 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, thứ e Pen IV. ^_^

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

Doan Van Ha 3.039

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

Oa! Vậy tôi sẽ cách tân cho nkhô giòn hơn chút ít nữa.

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

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 2016

Cám ơn bác nhé lisp chạy khôn cùng ngon. Tiện đây em cũng hưởng thụ chưng có thể thêm lệnh tạo ra điểm bên trên quy mô tam giác Polyline3 chiều ko Tức là tăng dày thêm điểm trêm tế bào hình

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

ndtnv 466

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

Thấy đa số chúng ta than vãn các lisp vẽ Đường Đồng Mức (ĐĐM) hay chạy đủng đỉnh, thậm chí là nhiều khi treo sản phẩm công nghệ, bắt buộc tôi làm tính năng này ship hàng cộng đồng.

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

Code msống bắt buộc đều người tha hồ nước vọc. Lệnh: DDM.

Test cùng với bản vẽ 22629 points sống đồ vật tôi chỉ mất 60 giây (cùng với những thông số kỹ thuật mang định trong lisp).

Xem thêm: Phần Mềm Chụp Ảnh Iphone 6 S Plus Cho Bức Ảnh "Lung Linh Ảo Diệu"

Chức năng: vẽ những tam giác TIN, vẽ ĐĐM, tô màu sắc theo cao độ mang đến ĐĐ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 đôi điều không ưng ý lắm, đang sửa sau. Hy vọng được mang về nguồn vui mang đến những người!

Tôi cũng có thể có ý định viết công tác Đường Đồng Mức bằng ARX cùng đang viết xong phần chế tạo lưới tam giác. Tuy nhiên mang lại phần vẽ ĐĐM, tìm hiểu thêm những file cad tôi thấy ĐĐM vẽ bằng các line giao động Spline phải khôn xiết mịn. Search kiếm tìm bí quyết Spline không ra, mặt khác bởi vì không tồn tại chuyên môn sâu về trắc địa đề nghị không rõ chính sách xê dịch Spline ra làm sao nên còn để đó.

Tmê mệt khảo file demo thì thấy lisp của doanh nghiệp Doan Van Ha chạy không đủ các khu vực (>15), ĐĐM còn thô nên chần chừ tất cả đạt y/c TCnước ta không?

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

chúng ta demo cần sử dụng phương pháp lựa chọn những 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 bác đăngChia sẻ bên trên các website khác

Doan Van Ha 3.039

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

Tôi cũng đều có dự tính viết chương trình Đường Đồng Mức bằng ARX với vẫn viết dứt phần sản xuất lưới tam giác. Tuy nhiên đến phần vẽ ĐĐM, tìm hiểu thêm những tệp tin cad tôi thấy ĐĐM vẽ bằng những line giao động Spline bắt buộc khôn cùng mịn. Search tìm kiếm bí quyết Spline không ra, ngoài ra vì không có chuyên môn sâu về trắc địa đề nghị ko rõ phép tắc giao động Spline thế nào buộc phải còn nhằm kia.

Tđê mê khảo file thử nghiệm thì thấy lisp của chúng ta Doan Van Ha chạy còn thiếu những khu vực (>15), ĐĐM còn thô phải đắn đo có đạt y/c TCtoàn quốc không?

Về câu hỏi mặt http://www.tec-ftu.org/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-142?do=findComment&comment=410604

các bạn thử dùng bí quyết chọn những line cùng cao độ rồi cần sử dụng lệnh PEDIT Join của cad coi.

1). Thiếu các khu vực là vì khoảng cách đem mặc định 30m cảm thấy không được khxay tam giác. User bao gồm quyền tăng mà.

2). Pedit lừ đừ lắm, tốt nhất là lúc cách xử trí tập lớn.

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

ndtnv 466

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

Test bên trên máy tôi :

Cách 2.0m: 121 giây

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

Select objects: 15090 found

14935 segments added to lớn 154 polylines : 4687 millisecs

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 web khác

Doan Van Ha 3.039

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

Đây là lisp xử lý những trường đúng theo máy cùi:http://www.mediafire.com/file/h5ylnsdd0sf6s5c/Draw_Contour_HA02.fas

Làm tự thiện tại hiện giờ nặng nề lắm: MC Phan Anh.

Post bài bác lên CV bây giờ còn cạnh tranh hơn: tôi

Giá như bao gồm ai kia bao gồm Web xuất sắc nhằm theo?

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

thanhduan2407 261

biết lệnh adcenterNhà truyền bá 2611.137 bài viếtGiới tính:Male
Đã đăng Tháng 11 18, năm 2016

Đây là lisp giải quyết và xử lý những ngôi trường hòa hợp máy cùi:

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

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

Post bài xích lên CV bây giờ còn cạnh tranh hơn: tôi

Giá nlỗi tất cả ai kia gồm Web xuất sắc để theo?

Bác giỏi và thật đon đả.

Mong anh Hoành upgrade Web chứ các sản phẩm tương đối bất tiện.

Ví dụ:

Em hy vọng Up hình họa lên cđọng đề nghị up lên trang không giống rồi copy link.

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

Thời gian đăng bài nó báo nkhô cứng quá cũng ko được, cđọng đề xuất hóng 1 lúc bắt đầu đăng được.

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

.......

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

HUYNHTS99 0

Chưa thực hiện CADThành viên 01 bài xích viết
Đã đăng Tháng 6 24, 2018

m1-gan-cao-bởi.dwg

các bác bỏ đến 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 các cho tương xứng ạ?(0.0001 hay 0,02 hay 10 ...em không biết chân thành và ý nghĩa của nó cần em k rõ cách lựa chọn số nào trong vô vàn số mang lại phù hợp.)em chọn point đúng k các bác bỏ.làm việc ví dụ của chưng công ty bên trên cùng em chọn những điểm trên cad các chưng ah.sau bước này em m1-gan-cao-do.dwglựa chọn trét đen đối tượng rồi ấn enter thứ báo chạy ngừng mất 0s.em thấy k chọn đc đối tượng như thế nào các bác ah.các chưng chỉ mang lại em với ạ.

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

WRU 1

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

Có bác bỏ làm sao đến em xin video clip giải đáp áp dụng cùng với.

Em cần sử dụng nhưng không được.

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

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

nguyenanh93 9

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

Hôm trước bản thân tất cả đọc topic này cùng thấy vận tốc chạy của lisp điều này là hơi trễ. Nên có được sự hiểu biết về câu hỏi vẽ mặt đường đồng mức cùng có tác dụng tool để vẽ. Tool arx của chính 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