求助如何删除选择集

用ssget函数筛选试一试：
[code]
(setvar "cmdecho" 1)
(defun MOVEI (I / SS E PT1)
(if (and (setq SS (entsel))
(setq E (assoc I (entget (car SS))))
(setq SS (ssget "X" (list E)))
(setq PT1 (getpoint "\n基点: ")
)
)
(command "_.MOVE" SS "" "non" PT1 PAUSE)
)
)
;;;=================
;;功能：按图层移动
(defun C:T1 ()
(princ "\n 按\"图层\"选取对象，并移动之。")
(MOVEI 8)
(princ)
)
;;;=================
;;功能：按颜色移动
;;说明：由于对象组码中对颜色的表达是不完善的，
;;所以对颜色随层的对象无法支持。（需要特殊判断）
(defun C:T2 ()
(princ "\n根据\"颜色\"选取对象，并移动之。")
(MOVEI 62)
(princ)
)
;;;=================
;;功能：按对象类型移动
(defun C:T3 ()
(princ "\n根据\"类型\"选取对象，并移动之。")
(MOVEI 0)
(princ)
)
[/code]

来一个删除所有红色的物体
(defun c:tt (/ col data i na slen ss)
(if (setq ss (ssget))
(progn
(setq slen (- (sslength ss) 1))
(setq i 0)
(while (<= i slen)
(setq na (ssname ss i))
(setq data (entget na))
(cond
((setq col (cdr (assoc 62 data))))
((setq col
(cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 data))))
)
)
)
)
(if (= col 1)
(entdel na)
)
(setq i (+ i 1))
)
)
)
)