隐藏/显示选择集中的图元实体
参数：ss----选择集；code----显示/隐藏开关，值为0时，所有选择集中的图元实体隐藏不显示，值为1时，恢复显示选择集中的图元实体。

(defun ss_visible (ss code / na e1 n)
   (if ss
     (progn
       (setq n 0)
       (repeat (sslength ss)
  (setq na (ssname ss n)
        e1 (entget na)
  )    ;setq
  (if (not (assoc 60 e1))
    (setq e1 (append e1 (list (cons 60 code)))) ;setq then
    (setq e1 (subst (cons 60 code) (assoc 60 e1) e1)) ;setq else
  )    ;if
  (entmod e1)
  (entupd na)
  (setq n (+ n 1))  ;setq
       )     ;repeat
     )     ;progn
   )     ;if
)