求助一个autolisp的问题 关于标号

是这样的，小弟我建了一个三维模型，在模型表面有很多点，我想按照一定的顺序对他们进行标号，一个个来很麻烦，所以想借助于autolisp。可是实在是初学，完全没有头绪，在网站上找到一个相关的程序，是这样的：
(defun c:number()
(setq maxn 10000)
(setq n(getreal"Start number:"))
(setq n(fix n))
(while(<= n maxn)
(setq p (getpoint"Start Point"))
(setq p1(car p))
(setq p2(cadr p))
(setq p3(list p1 p2))
(command"text"p3"1000" ""n"")
(setq n(1+ n))
)
)导入cad以后发现不能用，每次命令只是显示start point, 点了我要选的点也没有用，不知道问题出在何处，请哪位高手能指点一下？谢谢了