autolisp 问题汇总

问题如下：通过画矩形框来自动生成四个定位点（每个定位点由“十”和“⚪”构成），但是输入半径为200mm时正常，半径为50mm却不正常了？

(defun c:mm()
  (setq listpt '())
  (setq pt1(getpoint "input he first point"))
  (setq pt3(getcorner  pt1 "input the 3 point"))
  (setq pt2(list (car pt1) (cadr pt3)))
  (setq pt4(list (car pt3) (cadr pt1)))

  (setq rad(getreal "radius"))

  (foreach n (list pt1 pt2 pt3 pt4) (getcircle1 n rad))

)
(defun getcircle1(cenpt rad)
  
  (setq pt11(list (- (car cenpt) rad) (cadr cenpt) 0.0))
  (setq pt13(list (+ (car cenpt) rad) (cadr cenpt) 0.0))  
  (setq pt12(list (car cenpt) (+ (cadr cenpt) rad) 0.0))
  (setq pt14(list (car cenpt) (- (cadr cenpt) rad) 0.0))
  (setq line1(command "line" pt11 pt13 ""))
  (setq line2(command "line" pt12 pt14 ""))
  (command "circle" cenpt rad)
)