【求助】关于自动画圆的错误求助！

chenlight

(defun c:5test2()
  (setq baspt(getpoint  "请输入基准点:"))
  (setq rad(getdist basqt "\n请求输入小圆半径："))
  (setq num(getint "\n请求输入相切的小圆数量："))
  
  (setq ang1 (/ pi num))
  (setq kk (/ rad (sin ang1)))
  (setq ang2 (- (/ pi 2) ang1))
  (setq cenpt (polar baspt ang2 kk))
  (command "circle" baspt rad)
  (command "array" (entlast) "" "p" cenpt num 360 "Y")
  (prin1)
)
(prompt "\n <5test2>自动等圆相切绘制")
(prin1)

以上是《CAD完全应用指南》书中的自动画圆的代码，可是我实践后发加载发生了错误，错误提示如下：
请输入基准点:; 错误: 参数类型错误: point: nil

请教高手这是哪里的错误呢？



该贴已经同步到 chenlight的微博

Andyhon

(setq rad(getdist basqt "\n请求输入小圆半径："))
===>
(setq rad(getdist baspt "\n请求输入小圆半径："))

chenlight

非常感谢，我太精心了