(defun c:BD() (setvar "CMDECHO" 0) (setq s1 (car (entsel "\n选择对象: ")))