(ReDrawSel)显示或隐藏选择集中的对象

;;说明:ReDrawSel 显示或隐藏选择集中的对象
;;参数:sel:为选择集或图元名
;;参数:mode:为方式码
;;    方式码 0 显示该选择集对象
;;    方式码 1 隐藏该选择集对象
(defun redrawsel(sel mode / cdxf60 ent n)
    (defun cdxf60(ent mode / edata)
        (setq edata (entget ent))
        (if (assoc 60 edata)
            (entmod (setq edata (subst (cons 60 mode) (assoc 60 edata) edata)))
            (entmod (setq edata (reverse (cons (cons 60 mode) (reverse edata)))))
        )
        (prin1)
    )
  (if sel
    (cond
            ((= 'PICKSET (type sel))
                (setq    n -1)
                (while (setq ent (ssname sel (setq n (1+ n))))
                    (cdxf60 ent mode)
                )
            )
            ((= 'ENAME (type sel))
                (cdxf60 ent mode)
            )
        )
    )
    (prin1)
)