・ 選択セットをハイライト表示する( redraw の選択セット対応)

(redraw) を使って、選択セットをハイライト表示させます

  ;*********************************************************;
  ;サブルーチン  (redraw) の選択セット対応;  
  ;    ss:選択セット
  ;  mode:(redraw)のモード値
  ;*********************************************************;
  (defun Jos_ss_redraw (ss mode / i )
    (setq i 0)
    (repeat (sslength ss)
      (redraw (ssname ss i) mode)
      (setq i (1+ i))
      )
    )