Tìm lisp đo chiều dài đoạn thẳng cùng layer

[luyenxdk48 0]

Tình hình là e đọc tài liệu, thấy có lệnh CS để đặt tỷ lệ cho bình đồ. tuyến của e dài 200m, tỷ lệ 1/500. e đã đặt tỷ lệ rồi

sau đó DNDM, vạch tuyến, chèn cọc,chạy TD. Khi ra TD thì tuyến lại dài có hơn 40m. như thế là làm sao ạ? Tỷ lện TD của e là 1/100 và 1/1000.

Các bác giúp e với. Thank các bác nhìu.

Bác nào có lisp đo chiều dài các đoạn thẳng của cùng 1 layer ko,Post lên cho mình xem cái!

Thanks

[Tue_NV 3918]

Bác nào có lisp đo chiều dài các đoạn thẳng của cùng 1 layer ko,Post lên cho mình xem cái!

Thanks

Bạn thử code này nhé :

(defun c:lla(/ la ss S)
 (setvar "cmdecho" 0)
 (setq la (cdr(assoc 8 (entget (car(entsel "\n Chon Layer bang cach pick 1 doi tuong :"))))))
 (setq ss (ssget "X" (list(cons 0 "*LINE") (cons 8 la))) i -1 S 0)
(if ss (progn
 (while (setq ent (ssname ss (setq i (1+ i))))
(command ".lengthen" ent "")
(Setq S (+ S (getvar "perimeter")))
 )
 (alert (strcat "Tong chieu dai cua doan thang LINE, PLINE thuoc Layer " la
	 " la : " (rtos S 2 2)
  )
 )
);progn
  (alert (strcat "Khong co doi tuong LINE, PLINE thuoc Layer " la))
);if
 (princ)
)