[LISP程序]：那位大哥帮小弟改改这段小程序

ZHJ0034

这段小程序可以自动生成圆,在图形所在文件夹里打开图形,可以在当前目录下生成圆的XY坐标点.
请求高手帮忙改改.....希望在点圆时能自动在园的左上角生成连续数字..

(DEFUN C:007 ( / PT1 CC X Y)
(setq R 1.2) (setq pt1 (list 0 0))
(setq uu "  SUM= ")
(command "color" 2 \r) (setq i 0) (setq cc "#")
(SETQ BB (GETSTRING "\n AUTO No : ?   [Y/N Enter=Y] "))

(IF (OR (= BB "Y") (= BB "y") (= BB ""))
(SETQ I1 (GETINT "\n   START No: = ? "))
(SETQ I1 0)
)
(SETQ I (- I1 1))

(setq g (open "xy.dat" "a"))
(while  (not (null pt1))
(setq i (+ i 1))
(prompt "\n          [END press enter]   NEXT = ") (princ i)

(princ "\n")(princ cc)

(setq pt1( getpoint " pt1 = ? "))(princ bb)

(if (not (null pt1)) (progn

(IF (OR (= BB "N") (= BB "n"))
(setq k (getint "\n No: ? "))
(SETQ K I)
)

(setq x (car pt1))
(setq y (nth 1 pt1))
(command "circle" pt1 R \r)
(print k g)
(print x g)
(princ Y g)
                        )
  )
)
(close g) (setq g 1)

)

zxq0220

[php]
(DEFUN C:007 ( / PT1 CC X Y)
(setq R 1.2 pt1 (list 0 0) uu " SUM= " i 0 cc "#")
(command "color" 2)
(SETQ BB (GETSTRING "\n AUTO No : ? [Y/N Enter=Y] ")
       BB (if (= BB "") "Y" (STRCASE BB nil))
       I1 (IF (= BB "Y") (GETINT "\n START No: = ? ") 0)
       I (1- I1))
(setq g (open "xy.dat" "a"))
(while (not (null pt1))
  (setq i (1+ i))
  (prompt "\n [END press enter] NEXT = ") (princ i)
  (princ "\n")(princ cc)
  (setq pt1 (getpoint " pt1 = ? "))(princ bb)
  (if (not (null pt1)) (progn
   (SETQ K (IF (= BB "N") (getint "\n No: ? ") I))
   (setq x (car pt1) y (nth 1 pt1))
   (setq pt2 (polar (polar pt1 (/ pi 2) r) pi r))
   (command "circle" pt1 R "text" pt2 "" "" (itoa i))
   (print k g)
   (print x g)
   (princ Y g)
  ))
)
(close g)
(PRINC)
)
[/php]

ZHJ0034

感谢zxq大哥..
现在圆上有数字了,就是图形的放大和缩小让点出来的数字位置不一样..
要是让数字有固定的位置就好了..