请教遮蔽线问题 希望高手帮助!

samshs

请都高手

;可以多选择，但结果变遮蔽线只能实现单个，是否能实现多选择后都转换成遮蔽线。多谢！

;遮蔽线不保存原有线---------------------------------------------
(defun c:CF(/ ent)
   (setvar "cmdecho" 0);关闭回显
   (command "_.-LAYER" "m" "COVER LINE" "c" "150" "COVER LINE" "")
   (command "_.-LAYER" "s" "COVER LINE" "")
   (setq ent (ssget))
   (command "chprop"  ent  "" "s" "100" "" "")
   (command "WIPEOUT" "P" ent "Y")
   (prompt "原有的图层已删除.\n")
    (princ))