(defun c:lea ()

(setq b1 (getpoint "\nChon diem dau cua leader"))
(setq b2 (getpoint b1 "\nChon diem cuoi cua leader"))
(setq d1 (distance b1 b2))
(setq e1 (getpoint "\nChon diem dau khoang cach chia"))
(setq e2 (getpoint "\nChon diem cuoi khoang cach chia"))
(setq d2 (distance e1 e2))
(setq nn (fix (/ d1 d2)))
(setq g (angle b1 b2))

		(repeat nn
				(command "leader" b1 b2 "" "" "n")
				(setq b1 (polar b1 g d2))
		)
(princ))