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

[nhatquyelec 1]

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 đỡ !

[nguyentienthanhddksct 6]

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]

[ketxu 2985]

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

[nhatquyelec 1]

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