autolisp列表用作Autocad中的点

Question

我是autocad的LISP新手。下面显示的代码以斜线绘制圆（半径为1）。我不明白的是“a”的值不会以1为增量增加。在autocad中绘制的圆心是（1,1），（1.7071,1.7071），（3,3），（3.7071） ，3.7071），（5,5）......有人可以。解释原因？

(defun c:wwq ()
    (setq a 0)
    (while (< a 10)
        (setq a (+ 1 a))   
        (setq pt1 (list a a ) ) 
        (command "circle" pt1 1 )    
    )
)