Đến nội dung


Hình ảnh
- - - - -

Xin lisp xuất toạ độ và cao độ cùng lúc


  • Please log in to reply
6 replies to this topic

#1 huuhieu148

huuhieu148

    biết pan

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

Đã gửi 14 November 2009 - 01:23 PM

Em có 1 bình đồ trên cad có cao độ ở đấy.Em nhờ mọi người trên diễn đàn viết cho 1 lisp xuất toạ độ và cao độ tại các điểm đó thành 1 tệp txt .Thanks a lot.
  • 0

#2 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 14 November 2009 - 07:04 PM

Em có 1 bình đồ trên cad có cao độ ở đấy.Em nhờ mọi người trên diễn đàn viết cho 1 lisp xuất toạ độ và cao độ tại các điểm đó thành 1 tệp txt .Thanks a lot.

bạn upload file bình đồ của bạn lên mình xem nó thế nào? nếu giúp được thì mình giúp
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#3 huuhieu148

huuhieu148

    biết pan

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

Đã gửi 16 November 2009 - 01:34 PM

bạn upload file bình đồ của bạn lên mình xem nó thế nào? nếu giúp được thì mình giúp

Bbình đồ của mình đây ban xem rồi giúp nhá
http://www.cadviet.c...bd_tong_the.dwg
  • 0

#4 huuhieu148

huuhieu148

    biết pan

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

Đã gửi 17 November 2009 - 03:43 PM

Bbình đồ của mình đây ban xem rồi giúp nhá
http://www.cadviet.c...bd_tong_the.dwg

bác nào giỏi về lisp giúp em với . em đã tìm nhiều rồi nhưng chưa tìm thấy lisp này
  • 0

#5 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 17 November 2009 - 04:18 PM

Bạn đã thử dùng các phần mềm như Nova hay Topo để xuất cao độ của bình đồ này ra text chưa? bạn thử xem nhé.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#6 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 18 November 2009 - 12:55 PM

Bbình đồ của mình đây ban xem rồi giúp nhá
http://www.cadviet.c...bd_tong_the.dwg

File của bạn nhiều rác quá!
Gửi bạn Lisp xuất tọa độ ra File Txt trên CadViet. (sorry vì không nhớ tác giả!)
(defun c:exptxt()
(setq ss (ssget '((0 . "TEXT")))
fn (getfiled "Ten file: " "" "txt" 1)
f (open fn "w")
lst (ss2ent ss)
)
(foreach e lst
(setq tt (entget e)
p (cdr (assoc 10 tt))
x (rtos (car p))
y (rtos (cadr p))
nd (cdr (assoc 1 tt))
)
(write-line (strcat x "\t" y "\t" nd ) f)
)
(close f)
(princ)
)

(defun ss2ent (ss / sodt index lstent)
(setq sodt (if ss (sslength ss) 0 )
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

  • 0

#7 huuhieu148

huuhieu148

    biết pan

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

Đã gửi 18 November 2009 - 03:14 PM

Cám ơn bạn nhá
  • 0