This one ... ?
Code:
(defun c:Test (/ ss p p1 p2 pt n l d c lst)
(if (and (setq ss (ssget "_:L"))
(setq p (getpoint "\n Specify Base point of objects :"))
(setq p1 (getpoint "\n Specify first point :"))
(setq p2 (getpoint "\n Next point :" p1))
(setq n (getint "\n Number of copies :"))
)
(progn
(setq l (distance p1 p2)
d (/ l n)
c (getvar 'CMDECHO)
)
(setvar 'CMDECHO 0)
(repeat (1- n)
(command "_.copy"
ss
""
"_none"
p
"_none"
(setq pt (polar p1 (angle p1 p2) d))
)
(setq p1 pt)
)
(setvar 'CMDECHO c)
)
)
(princ)
)