autocad lisp 程式 畫圓 circle

(print "畫圓_circle.lsp: cc")
(defun c:cc()
(setq pt1 (getpoint "畫圓(半徑0.39),請在畫面點一下圓心 : ") )
(command "_.circle" pt1 0.39)
(print pt1)
(princ)
)

;autocad lisp 程式 畫圓 circle