最佳答案：(defun c:EE (/ SS)(setq ss(ssget))(command "ERASE" SS ""))1，命令EE，你试试是不是这效果(defun c:EE (/ SS)(setq ss
(defun c:EE (/ SS)(setq ss(ssget))(command "ERASE" SS ""))1，命令EE，你试试是不是这效果(defun c:EE (/ SS)(setq ss(ssget))(command "ERASE" SS "")(c:EE))2，可连续删，不按回车，直到你不想删为止，按ESC键取消(defun c:EE (/ SS)(setq ss1 (entsel))(command "ERASE" SS1 "")(c:EE))3，可连续删，点了就删，不按回车，直到你不想删为止，按ESC键取消好了，加分吧
