(defun c:lea ()
(command "undo" "mark")
(setq b1 (getpoint "\nChon diem dau cua leader"))
(setq b2 (getpoint b1 "\nChon diem cuoi cua leader"))
(setq b3 (getpoint "\nChon diem cuoi khoang cach dai Leader"))
(setq d1 (distance b1 b3))
(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))
(command "leader" b1 b2 "" "" "n")
(setq os (getvar "osmode"))
(setvar "osmode" 0)
		(repeat nn
				(setq b1 (polar b1 g d2))
				(command "leader" b1 b2 "" "" "n")
		)
(setvar "osmode" os)
(command "undo" "end")
(princ))