리습에서 array 에 대해 질문드려요

반복적인 작업이있어서 리습을 공부하고있는데 중간에 막혀서 이렇게 글을 남깁니다.

array 기능을 이용하여 입력한 수량과 간격만큼 객체를 복사하려고합니다.

(defun c:aaa()
 (setq s (getint "간격"))  
 (setq ea (getint "수량"))  
 (setq p0 (getpoint "\기준점 :"))

 (setq ea1 (+ ea  2))
(defun deg(a) (* pi (/ a 180.0)))
(setq p2 (polar p0 (deg 270) 200))

(command "donut" "0" "10" p0 "")
(command "donut" "0" "10" p2 "")
 (command "array" p0 "" "r" "1" ea s)
 (command "array" p2 "" "r" "1" ea1 s)
 (princ)
)

이것과 같이 짰습니다. 문제는 캐드상에서 잘보일정도로 확대해 놓고 명령을 실행하면 제가 원하는 대로

복사가 되지만 화면을 축소해 놓고 리습을 실행시키면

엉뚱하게 복사가 됩니다.

리습실행후  간격100 수량 2입력하면

●  ●  ●

●  ●  ● ●  ●

이렇게  나와야되는데

화면을 축소하여 작게(zoom out) 한후 명령을 실행하면

●  ●  ● ●  ● ●  ●  이렇게 나옵니다.

뭐가 잘못된것 일까요?