;;; Chuong trinh nay ve Leader co chung 1 diem goc la B


(defun c:lee ()
(command "undo" "be")
(setq a (getpoint "Chon diem Cuoi Leader\n"))
(setq b (getpoint a "Chon diem Dau ve Leader\n"))
(command "Leader" b a "" "" "n")
(while 
	(Setq c (getpoint a "\nChon diem tiep theo?"))
	(command "leader" c a "" "" "n")
)
(command "undo" "end")
(princ))