请大家帮忙解决一下，谢了

spring

改成这样 (command "circle" p1 1 )

佣兵

谢谢楼上兄的提醒，太低级的错误，惭愧啊，另外问一句：“实心圆怎么做？“

xyp1964

(defun c:test()
(setvar "DONUTID"0)
(setq no1 (ureal 1 "" "半径" no1))
(setvar "DONUTOD"no1)
(command "donut" "" "")
)
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
)

佣兵

谢谢楼上的兄弟，这个论坛的兄弟太棒了