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

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