Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] Lisp xuất ngược tọa độ từ bản vẽ


  • Please log in to reply
4 replies to this topic

#1 quanghuy181

quanghuy181

    biết vẽ arc

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

Đã gửi 08 March 2012 - 09:18 AM

Mình có bản vẽ đã được phun sẵn các điểm. Bây giờ mình muốn xuất ngược lại tọa độ của các điểm để kiểm tra trên Google Earth....http://www.cadviet.c...90_ban_ve_1.dwg
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 08 March 2012 - 09:55 AM


(defun c:xtd(/ lay fn lst)
;Free lisp @ketxu
(setq lay "diemmia")
(cond
(
(and (ssget (list (cons 0 "TEXT")(cons 8 lay)))
(setq fn (getfiled "Where to save:" "toado" "txt" 1))
)
(vl-load-com)
(vlax-for obj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq lst (append lst (list (cons (atof (vla-get-TextString obj))(list (vlax-get obj 'InsertionPoint))))))
)
(setq fn (open fn "w"))
(mapcar '(lambda(l)(write-line (vl-princ-to-string (cadr l)) fn))
(vl-sort lst '(lambda(x y)(< (car x)(car y))))
)
(close fn)
(princ))
)
)

  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 08 March 2012 - 10:37 AM

Mình có bản vẽ đã được phun sẵn các điểm. Bây giờ mình muốn xuất ngược lại tọa độ của các điểm để kiểm tra trên Google Earth....http://www.cadviet.c...90_ban_ve_1.dwg

Hề hề hề,
1/- Yêu cầu của bạn trên diễn đàn đã có khá nhiều yêu cầu tương tự. Bạn chịu khó tìm kiếm và dùng thử, nếu thấy có gì chưa hợp ý thì post lên mọi người sẽ giúp.
2/- Nếu bạn muốn có riêng một cái theo ý bạn thì cần trình bày cụ thể hơn. Tỷ như xuất ra thì xuất vào đâu??? Xuất dạng gì??? Và tốt nhất là phải có một cái file thể hiện cái kết quả bạn muốn có thì mọi người mới giúp bạn được. Đầu vào trọc lốc cái bản vẽ còn đầu ra thì chả có chi mà muốn ló lisp thì quá là đánh đố mọi người và làm lãng phí công sức của những người muốn giúp bạn.
Hề hề hề, hy vọng bạn hiểu và hãy cố gắng để trình bày rõ ràng cụ thể cái yêu cầu của bạn. Điều đó sẽ giúp cho những người muốn giúp bạn không phải làm thầy bói xem voi và may ra bạn mới có được cái ưng ý với mình cần.
Chúc bạn vui.
  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 quanghuy181

quanghuy181

    biết vẽ arc

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

Đã gửi 16 March 2012 - 07:56 AM

Cám ơn hai bác nhưng mà cho em hỏi em muốn file xuất ra là *.gdb (garmin GPS Database) có được không ạ? Em gửi file mẫu kèm theo chạy bằng phần mềm MapSoure http://www.cadviet.c...090_so_lieu.rar
  • 0

#5 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 16 March 2012 - 08:17 AM

Cám ơn hai bác nhưng mà cho em hỏi em muốn file xuất ra là *.gdb (garmin GPS Database) có được không ạ? Em gửi file mẫu kèm theo chạy bằng phần mềm MapSoure http://www.cadviet.c...090_so_lieu.rar

Quá muộn rồi bạn ơi :)
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC