哪位帮我写一个程序....

蓝云

(defun c:test (/ DATE DIS N OVER P1 P2 P3 TXT)
(while (not over)
(if (setq txt (car (entsel)))
(if (= (cdr (assoc 0 (setq date (entget txt)))) "TEXT")
(progn
(setq p1 (cdr (assoc 10 date))
p2 (getpoint p1 "\n复制方向:")
)
(if p2
(if (setq n (getint "\n复制次数:"))
(progn
(setq an (angle p1 p2) dis (* 1.5 (cdr (assoc 40 date))))
(repeat n
(setq p3 (polar p1 an dis))
(command "copy" txt "" p1 p3)
(setq txt (entlast) p1 p3)
)
)
(setq over 1)
)
(setq over 1)
)
)
(setq over 1)
)
(setq over 1)
)
)
)