新手请教，这个程序该如何实现啊？

(defun c:QW ()
(prompt "select circle ")
(setq ss (ssget '((0 . "Circle"))))

; (command pause)
; (command "_qdim")
)