[求助]：关于AUTOLISP程序

lvsuccess

请大家帮我看看这个显示变化圆半径的反应器程序错在那里？
运行后提示：
;error:bad argument type:symbolp nill
我刚开始学习AUTOLISP，觉得LISP挺难的，为什么老是这里错那里错？

下面是程序代码：
(set MyCircle
   (Progn
   (setq ctrPt (getpoint " \n圆心:")
            radius (distance ctrPt (getpoint ctrpt"\n半径:"))
   )
   (vla-addCircle (vla-get-ModelSpace
             (vla-get-ActiveDocument
             (vlax-get-acad-object)
       )
       )
   (vlax-3d-point ctrPt)
   radius
   )
   );progn end
  )
(defun show-radius (notifier-object reactor-object parameter-list)
   (cond ( (VLAX-Property-Available-P notifier-object"Radius")
      (princ" \n圆的半径:")
      (princ (VLA-Get-Radius notifier-object))
      )
    )
    (princ)
  )
(setq CircleReactor
(vlr-object-reactor
   (list MyCircle)
   "Circle Reactor"
   '((:vlr-modified.show-radius))
  ))

bluesky111

是参数错误,符号提示是空,我给你研究一下

xxsheng

(vlax-make-variant radius),,,,,变体,