Lisp thống kê đối tượng pline, line theo yêu cầu chiều dài

Chương trình sẽ yêu cầu bạn chọn các đối tượng, yêu cầu bạn nhập khoảng cách max, yêu cầu bạn nhập khoảng cách min. Sau đó nó sẽ hiển thị một hộp thoại thông báo cho bạn biết có bao nhiêu đối tượng thỏa mãn.

Trích dẫn :

(defun c:tkd ( / ss dmax dmin i ent dai tong)
(setq ss (ssget '((0 . "*LINE")))
dmax (getdist "\nVao khoang cach max: ")
dmin (getdist "\nVao khoang cach min: ")
i 0
tong 0)
(repeat (sslength ss)
(setq ent (ssname ss i)
i (1+ i))
(command ".lengthen" ent "")
(setq dai (getvar "perimeter"))
(if (and (<= dai dmax)(<= dmin dai))
(setq tong (1+ tong))
)
)
(alert (strcat "Co " (itoa tong) " doi tuong co khoang cach\nTu " (rtos dmin) " - " (rtos dmax)))
(princ)
)

Mình muốn cần Lisp trong bảng thống kê đường
Chọn các đỉnh đường, đánh số điểm mốc đường đó, mốc 2 nhập tên đường và xuất ra bảng thống kê : Tên mốc- Tên đường - toạ độ XY - Chiều dài.
Rất mong được các Anh giúp

Bạn nói rõ hơn đi, đưa ví dụ để mọi người dể hiểu. Tên mốc được đánh như thế nào? Tên đường nhập vào hay tự động ghi ra. Chiều dài là chiều dài từ đỉnh trước đến đỉnh kế đến hay sao?

Mình có bản vẽ qui hoạch mạng lưới đường giao thông, ví dụ như :
theo dạng hình chữ nhật:
2 tuyến trên dưới song song nhau có tên Đừng số 1 và số 4, 2 tuyến đứng cũng song song nhau có tên Đường số 2 và 3.
các chổ giao nhau được đánh số 1,2.3.4 theo chiều kim đhồ.
Mình muốn lập bảng thống kê với trình tự như sau :
Chọn điểm số 1 và điểm số 2 của đừơng số 1 thì ghi ra bảng thống kê

Điểm --------------- tên đường ------ tọa độ X ------------- toạ độ Y ------------ chiều dài
A1 -------------------------------------- 445454------------------ 2121
---------------- -------- ĐSỐ 1 -----------------------------------------------------------------100.21
A2------------------------------------------- 212122------------------45454

em sem ma ko hieu

anh tiện làm luôn cái thống kê diện tích đi anh
cũng chọn khoảng diện tích từ ..... đến...