Đến nội dung


Hình ảnh

Đo khoảng cách nhiều line


  • Please log in to reply
3 replies to this topic

#1 nhatquyelec

nhatquyelec

    biết vẽ line

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

Đã gửi 09 March 2011 - 11:12 AM

Chào các bạn, có bạn nào biết cách đo khoảng cách nhiều line,
Vấn đề như thế này, tôi có đoạn đường gấp khúc, vd : ứng với 4 điểm A, B, C, D,
Cần đo khoảng cách tổng từ A->B->C->D,
???? mong giúp đỡ !
  • 0

#2 nguyentienthanhddksct

nguyentienthanhddksct

    biết vẽ polygon

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

Đã gửi 09 March 2011 - 11:40 AM

Bạn thử sử dụng LSP này xem sao:
(defun C:tg (/ tot_len ss e_name e_record e_type)
(princ "\nCADViet.com © 2007")
(setq tot_len 0.0)
(setq ss (ssget))
(if (null ss)
(exit)
)
(while (> (sslength ss) 0)
(setq e_name (ssname ss 0))
(setq e_record (entget e_name))
(setq e_type (cdr (assoc '0 e_record)))
(cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")
(command "lengthen" e_name "")
(setq tot_len (+ tot_len (getvar "PERIMETER")))
(ssdel e_name ss)
)
((wcmatch e_type "MLINE") (add_mline))
(e_type (ssdel e_name ss))
)
)
(prompt (strcat "\nTotal length is: " (rtos tot_len 2 2)))
(princ)
)
(princ "\ntg - free lisp from www.cadviet.com")
(princ)[/code]
  • 0

Các bạn mới học LISP vào đây học và cho ý kiến nhé:

http://www.vlisp.blo...-loi-mo-au.html


#3 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 09 March 2011 - 11:43 AM

Line của bạn đã có chưa? hay chỉ mới có 4 điểm. TRên diễn đàn có kha khá lisp tính tổng chiều dài rồi,, bạn có thể dễ dàng tìm thấy bằng công cụ tìm kiếm của diễn đàn hoặc Google
  • 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


#4 nhatquyelec

nhatquyelec

    biết vẽ line

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

Đã gửi 14 March 2011 - 01:52 PM

Cám ơn các bạn, tôi sẽ thử xem sao !
  • 0