Vẽ đường đồng mức từ các điểm cao độ

Thấy đa số chúng ta than vãn những lisp vẽ Đường Đồng Mức (ĐĐM) thường chạy chậm trễ, thậm chí còn đôi lúc treo vật dụng, bắt buộc tôi có tác dụng cái này phục vụ cộng đồng.

You watching: Vẽ đường đồng mức từ các điểm cao độ

Lisp tất cả một phần mối cung cấp tự Internet, tôi hiệu chỉnh và bổ sung cập nhật để tăng tốc độ xử lý. Một phần không giống từ bỏ viết.

Code msinh sống đề xuất các fan tha hồ vọc. Lệnh: DDM.

Test với bạn dạng vẽ 22629 points ở sản phẩm công nghệ 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, đánh 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 điều không hài lòng lắm, đã sửa sau. Hy vọng được mang về mối cung cấp vui mang đến đều người!


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

thanhduan2407 265



thanhduan2407 265

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

Thấy nhiều người than phiền những lisp vẽ Đường Đồng Mức (ĐĐM) thường xuyên chạy lờ lững, thậm chí đôi lúc treo lắp thêm, đề nghị tôi có tác dụng đặc điểm này phục vụ xã hội.

Lisp gồm mối cung cấp trên Internet, tôi hiệu chỉnh với bổ sung cập nhật nhằm tăng vận tốc cách xử trí.

Code mlàm việc yêu cầu rất nhiều người tha hồ nước vọc. Lệnh: DDM.

Test cùng với phiên bản vẽ 22629 points làm việc vật dụng tôi chỉ mất 60 giây.

Chức năng: vẽ các tam giác TIN, vẽ ĐĐM, đánh color theo cao độ mang đến ĐĐM.

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


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


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

hoquangvinc 7


*

hoquangvinh 7

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

không kiểm tra hết các sự việc cơ mà lisp vẫn chạy ngon rồi

thanks chưng HA cực kỳ nhiều


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

KangKung 248


*

KangKung 248

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

Lisp của bác Hạ chạy giỏi, bạn viết Lisp có chổ chính giữa, tuy vậy còn tồn tại lỗi mang nhầm Justify của Text. Chỉ đúng vào lúc Justify là Left còn sót lại thì đem không nên điểm dẫn đến lưới quy mô chiều cao bị lệch cho nên vì vậy con đường đồng nút cũng lệch theo. Bác Hạ phải nắm đ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 (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 đăng nàyLiên kết cho tới bài đăngChia sẻ trên các trang web khác

gia_bach 1.520


*

gia_bach 1.520

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

Like khỏe mạnh.

 


Lisp của bác bỏ Hạ chạy giỏi, tín đồ viết Lisp tất cả tâm, tuy vậy còn có lỗi rước nhầm Justify của Text ...


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


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

thanhduan2407 265


thanhduan2407 265

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

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

Bee 153


Bee 153

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

Các bác mang lại em hỏi là với phiên bản vẽ em gửi sau đây các bác bỏ 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 tới bài đăngChia sẻ trên các website khác

Doan Van Ha 3.049


Doan Van Ha 3.049

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

Máy đông đảo fan sao đủng đỉnh nhỉ? Máy mình:

- Cách 2.0m: 63 giây

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

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


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

Bee 153


Bee 153

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

Máy hồ hết bạn sao chậm rãi 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, vật dụng e Pen IV. ^_^


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

Doan Van Ha 3.049


Doan Van Ha 3.049

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

Oa! Vậy tôi đã cải tiến đến nkhô giòn rộng chút ít nữa.


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

Tuynh 1


Tuynh 1

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

Cám ơn chưng nhé lisp chạy rất ngon. Tiện phía trên em cũng yêu cầu chưng có thể thêm lệnh phát sinh điểm bên trên quy mô tam giác Polyline3 chiều ko có nghĩa là tăng dày thêm điểm trêm mô hình 


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

ndtnv 466


ndtnv 466

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

Thấy đa số chúng ta than vãn những lisp vẽ Đường Đồng Mức (ĐĐM) hay chạy lờ lững, thậm chí đôi khi treo máy, cần tôi làm cho đặc điểm này Giao hàng xã hội.

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

Code mlàm việc buộc phải phần nhiều người tha hồ vọc. Lệnh: DDM.

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

See more: Có Phải Loài Dơi Khi Ra Khỏi Hang Thường Bay Như Thế Nào, Vì Sao Khi Ra Khỏi Hang, Dơi Thường Rẽ Trái

Chức năng: vẽ các tam giác TIN, vẽ ĐĐM, đánh color theo cao độ mang đến ĐĐM.

Đối tượng: tập những point, hoặc tập những 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 đôi điều không ăn nhập lắm, sẽ sửa sau. Hy vọng được đem đến mối cung cấp vui đến hầu như người!


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

Tđắm đuối khảo tệp tin chạy thử thì thấy lisp của người sử dụng Doan Van Ha chạy không đủ các địa điểm (>15), ĐĐM còn thô buộc phải lần khần gồm đạt y/c TCnước ta không?

Về thắc mắc mặt http://www.peaceworld.com.vn/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-142?do=findComment&comment=410604

chúng ta thử sử dụng biện pháp chọn các line cùng cao độ rồi sử dụng lệnh PEDIT Join của cad coi.


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

Doan Van Ha 3.049


Doan Van Ha 3.049

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

Tôi cũng có thể có dự định viết chương trình Đường Đồng Mức bởi ARX cùng vẫn viết ngừng phần tạo thành lưới tam giác. Tuy nhiên đến phần vẽ ĐĐM, xem thêm những tệp tin cad tôi thấy ĐĐM vẽ bằng các line dao động Spline cần rất mịn. Search tra cứu phương pháp Spline không ra, còn mặt khác bởi vì không tồn tại trình độ sâu về trắc địa nên ko rõ nguyên tắc xấp xỉ Spline như thế nào buộc phải còn nhằm kia.

Tđắm đuối khảo tệp tin chạy thử thì thấy lisp của doanh nghiệp Doan Van Ha chạy không đủ những vị trí (>15), ĐĐM còn thô đề nghị lừng khừng bao gồm đạt y/c TCViệt Nam không?

Về thắc mắc mặt http://www.peaceworld.com.vn/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-142?do=findComment&comment=410604

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


1). Thiếu nhiều vị trí là do khoảng cách lấy mang định 30m không đủ khnghiền tam giác. User có quyền tăng mà.

2). Pedit lờ đờ lắm, nhất là khi xử lý tập to.


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

ndtnv 466


ndtnv 466

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

Test trên sản phẩm tôi :

Cách 2.0m: 121 giây

PEDIT Join trên bv mẫu:

Select objects: 15090 found

14935 segments added lớn 154 polylines : 4687 millisecs


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 những trang web khác

Doan Van Ha 3.049


Doan Van Ha 3.049

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

Đây là lisp giải quyết những ngôi trường vừa lòng đồ vật cùi:http://www.mediafire.com/file/h5ylnsdd0sf6s5c/Draw_Contour_HA02.fas

Làm trường đoản cú thiện hiện thời cực nhọc lắm: MC Phan Anh.

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

Giá nhỏng gồm ai đó bao gồm Web xuất sắc nhằm theo?


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

thanhduan2407 265


thanhduan2407 265

biết lệnh adcenterNhà PR 2651.143 bài xích viếtGiới tính:Male
Đã đăng Tháng 11 18, 2016

Đây là lisp xử lý những trường hợp trang bị cùi:

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

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

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

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


Bác tốt với thật thân mật.

Mong anh Hoành nâng cấp Web chứ các vật dụng khá bất tiện.

Ví dụ:

Em ao ước Up hình ảnh lên cđọng phải 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 không nên mà ko được.

Thời gian đăng bài xích nó báo nkhô hanh quá cũng ko được, cứ đọng nên chờ 1 dịp new đăng được.

Các trang hiển thị hơi không nhiều, toàn bị trôi, nên 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 bác đă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 Tháng 6 24, 2018

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


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

WRU 1


WRU 1

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

Có chưng như thế nào mang đến em xin đoạn Clip lí giải áp dụng cùng với. 

Em cần sử dụng mà ko được.

See more: Top 20+ Những Lời Chúc Sinh Nhật Vợ Hay Và Ý Nghĩa Nhất, Top 20+ Những Lời Chúc Mừng Sinh Nhật Vợ Hay Nhất

Em cảm ơn những bác?


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

nguyenanh93 9


nguyenanh93 9

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

Hôm trước bản thân có đọc topic này cùng thấy vận tốc chạy của lisp như vậy là khá chậm. Nên có được sự hiểu biết về việc vẽ đường đồng nấc cùng làm cho tool nhằm vẽ. Tool arx của chính bản thân 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 cam kết một thông tin tài khoản bắt đầu vào xã hội của chúng tôi. Điều đó dễ mà lại.

Đăng cam kết thông tin tài khoản mới


Người theo dõi2
Về Đầu TrangAutoLisp


Diễn đàn DownloadĐào sinh sản peaceworld.com.vnBrowse