Đến nội dung


Hình ảnh
- - - - -

[Đã xong] - Lisp convert đường, điểm lên Google Earth


  • Please log in to reply
41 replies to this topic

#1 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 31 January 2013 - 09:50 AM

Chào các bác
Em mới hoàn thành lisp Lisp đưa đường và điểm lên Google Earth. Đặc điểm của Lisp này là convert toạ độ của điểm hoặc tuyến khảo sát lên Google. Điều này thuận tiện cho những bác hay phải khảo sát những công trình dạng tuyến như đường ôtô, ống dẫn dầu, cáp quang biển v.v… theo dõi xem tuyến khảo sát của mình đi qua những đâu và gặp những địa vật gì. Hoặc có thể dùng cho những bác Trắc địa đi tìm mốc xem nó nằm ở đâu. Việc chuyển điểm lên Google Earth thì có nhiều phần mềm làm được nhưng trên diễn đàn chưa thấy bác nào viết lisp về vấn đề này nên em định đưa lên diễn đàn để kiếm Like mà không biết có bác nào có nhu cầu hay không?
  • 4

#2 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 31 January 2013 - 09:54 AM

Ý tưởng rất hay! Nhưng lisp của bạn đâu?
  • 0

#3 VoHoan

VoHoan

    biết lệnh move

  • Members
  • PipPipPip
  • 129 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 31 January 2013 - 09:57 AM

Chào các bác
Em mới hoàn thành lisp Lisp đưa đường và điểm lên Google Earth. Đặc điểm của Lisp này là convert toạ độ của điểm hoặc tuyến khảo sát lên Google. Điều này thuận tiện cho những bác hay phải khảo sát những công trình dạng tuyến như đường ôtô, ống dẫn dầu, cáp quang biển v.v… theo dõi xem tuyến khảo sát của mình đi qua những đâu và gặp những địa vật gì. Hoặc có thể dùng cho những bác Trắc địa đi tìm mốc xem nó nằm ở đâu. Việc chuyển điểm lên Google Earth thì có nhiều phần mềm làm được nhưng trên diễn đàn chưa thấy bác nào viết lisp về vấn đề này nên em định đưa lên diễn đàn để kiếm Like mà không biết có bác nào có nhu cầu hay không?

Nghe qua thấy hấp dẫn đây. Mình hay làm đường miền núi có được cái này thì việc xác định hướng tuyến ngon lành lắm. Bạn đưa lên mọi người tham khảo và góp ý xem ntn nhé?
PS: Bạn "ThuyLinh313" có đó thì nhờ bạn xem câu hỏi của mình bên topic "hỏi về lisp" được không?
  • 0

#4 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 31 January 2013 - 10:51 AM

Hi cảm ơn các bác đã quan tâm.
Lisp đây:
http://www.cadviet.c...converter_1.lsp
Lisp này nhận số liệu đầu vào là file txt. Format số liệu như sau
[Tên điểm] [Toạ độ Lat-WGS84] [Toạ độ Long-WGS84]
Các bác Test thử xem có vấn đề gì không nhé. Thanks các bác.
  • 4

#5 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 31 January 2013 - 10:58 AM

Mình thấy cũng khá là hấp dẫn (nói vậy vì với mình thì thường dùng 1 GPS + MapSource thì "chơi" đc trò này)
Nếu Lisp của bạn có thể chuyển trực tiếp từ Cad lên thì chắc mình cũng thử --> bạn cho xem hàng đi ! :)
  • 0

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#6 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 31 January 2013 - 11:03 AM

Nếu đã chuyển từ *.txt sang Google Earth được thì chắc sẽ chhuyển từ Cad sang GE được, bởi khi đó từ Cad có thể xuất điểm sang file trung gian txt. Mình nghĩ thế không biết đúng chưa?
Mình không có Google Earth ở đây nên chưa test được. Ý tưởng hay + Code đặc biệt quá. Lúc nào test xong mình sẽ vote cho bạn.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#7 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 31 January 2013 - 11:26 AM

Nếu đã chuyển từ *.txt sang Google Earth được thì chắc sẽ chhuyển từ Cad sang GE được, bởi khi đó từ Cad có thể xuất điểm sang file trung gian txt. Mình nghĩ thế không biết đúng chưa?
Mình không có Google Earth ở đây nên chưa test được. Ý tưởng hay + Code đặc biệt quá. Lúc nào test xong mình sẽ vote cho bạn.

Số liệu là file txt là có lý do riêng của nó. Thông thường bản vẽ có toạ độ phẳng XY chứ không phải là toạ độ cầu – WGS84 (trừ một số trường hợp đặc biệt là bản vẽ được vẽ bằng toạ độ WGS84 thì có thể chơi được).
Mà hệ toạ độ dùng trong Google Earth là hệ toạ độ cầu WGS84 nên nếu muốn đưa điểm lên GE thì buộc phải chuyển từ hệ toạ độ phẳng sang hệ WGS84. Mà hệ toạ độ phẳng với mỗi dự án lại có một hệ toạ độ riêng với các thông số chuyển hệ khác nhau nên chung quy lại là đưa về hệ toạ độ WGS84 cho thống nhất. Chính vì thế số liệu đầu vào phải là WGS84. Nếu là hệ phẳng thì phải viết thêm Tool chuyển đổi nữa. Mà cái này thì dùng phần mềm Geographic Calculator sẽ tốt hơn.
  • 0

#8 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 01 February 2013 - 05:57 AM

Anh KangKung 1 nhân tài lsp mới xuất hiện trên CV ^^ với những dòng code thâm sâu nhoc nhìn chỉ hỉu đc cái tiêu đề :D trong lsp
Mốt anh up code từ thẻ code trên diễn đàn cho mọi người xem trực tiếp tham khảo đở phải down dzìa mới xem đc ^^, anh mới tham gia 4rum nên nhoc hướng dẫn xíu ^^
Hình đã gửi
  • 2
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#9 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 01 February 2013 - 08:37 AM

Anh KangKung 1 nhân tài lsp mới xuất hiện trên CV ^^ với những dòng code thâm sâu nhoc nhìn chỉ hỉu đc cái tiêu đề :D


Hề hề hề
Nhoclangbat chỉ được cái nói đúng :D , xứng đáng dành được 1 phiếu của KangKung
Nói vui vậy thôi chứ bạn nhoclangbat quá khen rồi, mình cũng bình thường thôi chứ chả có tí gì gọi là nhân tài như bạn nói. Mình tham gia diễn đàn cũng chỉ để học hỏi và giao lưu với các bạn là chính.
Cảm ơn nhóc đã hướng dẫn cho mình. Từ những bài viết sau nếu dùng code thì kangkung sẽ làm theo cách bạn hướng dẫn.
  • 0

#10 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 01 February 2013 - 09:08 AM

ah lsp này có xử đc tọa độ vn-2000 ko anh nhỉ ^^
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#11 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 107 (tàm tạm)

Đã gửi 01 February 2013 - 09:30 AM

Mọi người tư vấn giúp sau khi lisp xuất được file *.kml thì làm sao để đưa lên google earth.
  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#12 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 01 February 2013 - 10:03 AM

Kích đúp để chạy nó ^^
  • 0

#13 ThuyLinh313

ThuyLinh313

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 288 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 01 February 2013 - 10:20 AM

KangKung phát triển tiếp lisp này đi. mình có ý tưởng thế này:
1. Trong cad, chọn 1 đường Pline hệ VN2000 -> xuất ra file Kml luôn: Dùng để lưu vị trí tuyến
2. Trong cad, chọn 1 đường Pline hệ VN2000 -> (xuất file kml tạm) -> Chạy GE để tải file tạm đó -> (xóa file tạm): Dùng để tìm vị trí tuyến
  • 2

#14 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 02 February 2013 - 08:49 AM

KangKung phát triển tiếp lisp này đi. mình có ý tưởng thế này:
1. Trong cad, chọn 1 đường Pline hệ VN2000 -> xuất ra file Kml luôn: Dùng để lưu vị trí tuyến
2. Trong cad, chọn 1 đường Pline hệ VN2000 -> (xuất file kml tạm) -> Chạy GE để tải file tạm đó -> (xóa file tạm): Dùng để tìm vị trí tuyến

Cảm ơn ThuyLinh313 đã góp ý. Mình cũng có ý tưởng đó từ hồi mới viết Lisp này nhưng thực hiện được. Về sau mình sẽ thêm 2 options như ThuyLinh313 nói để tăng thêm sự lựa chọn cho người sử dụng. Trước mắt mình mới thêm Code để Lisp tự động chạy Google Earth và tải file kml mới tạo ra. Tuy nhiên điều này có thể gây phiền toái cho những người không thích mở file kml ngay sau khi chúng được tạo ra nên mình chưa post lên diễn đàn.
Cảm ơn mọi người đã đóng góp ý kiến để Lisp của mình hoàn thiện hơn.
  • 0

#15 vetgo

vetgo

    biết vẽ polygon

  • Members
  • PipPip
  • 76 Bài viết
Điểm đánh giá: 17 (tàm tạm)

Đã gửi 03 July 2013 - 03:34 PM

Link dowload die rồi bạn ơi. Cho mình hỏi là từ Google Erth hoặc Google Map có thể xuất ra file *.KML được không hay là phải qua 1 phần mềm trung gian nào nữa!


  • 0
Nếu nội dung post là có ích, xin tick + để thăng hàm lên lương...

#16 KangKung

KangKung

    biết lệnh array

  • Members
  • PipPipPip
  • 189 Bài viết
Điểm đánh giá: 227 (khá)

Đã gửi 04 July 2013 - 08:52 AM

Link mới đây bạn:

http://www.cadviet.c...converter_2.lsp

Thông thường từ file tọa độ LatLong mình dùng lisp trên để convert thành file *.kml rồi mở bằng GoogleEarth là xong. Chưa bao giờ xuất file kml từ GE cả.


  • 1

#17 khaosatheco

khaosatheco

    biết vẽ circle

  • Members
  • PipPip
  • 30 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 04 July 2013 - 03:19 PM

Link dowload die rồi bạn ơi. Cho mình hỏi là từ Google Erth hoặc Google Map có thể xuất ra file *.KML được không hay là phải qua 1 phần mềm trung gian nào nữa!

Từ Google Erth có thể xuất ra file *.KML

1. Trong Google Erth vào modul "Add" -> Path (dạng tuyến) hoặc Placemark (dạng điểm) -> đặt tên trong ô name -> Vẽ những gì bạn muốn -> ok

2. Trong cửa sổ bên trái -> mục Places -> click chuột phải vào tên bạn vừa đặt -> Save as với đuôi *.KML.


  • 0

#18 Polyline

Polyline

    biết lệnh mirror

  • Members
  • PipPipPip
  • 159 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 04 July 2013 - 04:17 PM

Vote cho bạn ThuyLinh ở #13! Nếu làm được như bạn đề nghị thì nó có thể thay thế (và tốt hơn) nhiều phần mềm hiện nay.


  • 0

#19 tnlk

tnlk

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 03 October 2013 - 03:29 PM

có bro nào có cách lấy ảnh từ GE đưa về Cad theo đúng tọa độ không vậy?


  • 0

#20 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 03 October 2013 - 10:04 PM

có bro nào có cách lấy ảnh từ GE đưa về Cad theo đúng tọa độ không vậy?

Món này thì không khó, nhưng mình không có dùng lisp đâu, nếu cần bạn pm nhé.


  • 0
Clear sky!

MF Rock collection.