[LISP函数]：表替换函数，重画选择集对象函数

Gu_xl

;;;Lst为原表，a将要替换的项，n要替换原表中的第n个项，返回表
;;;例如：(substList 9 3 '(1 3 5 3 5 6 1)) ;返回 (1 3 9 3 5 6 1)
(defun substList (Lst a n / Lst1 m k)
  (setq        k    (length Lst)
        m    0
        Lst1 '()
  )
  (repeat k
    (if        (= n (1+ m))
      (setq Lst1 (cons a Lst1))
      (setq Lst1 (cons (nth m Lst) Lst1))
    )                                        ;if
    (setq m (1+ m))
  )
  ;;repeat
  (setq Lst1 (reverse Lst1))
)
;;defun
;;;重画选择集中的对象，mode 为方式码，
;;;方式码 1 在屏幕重画该选择集对象
;;;方式码 2 隐藏该选择集对象
;;;方式码 3 “醒目显示”该选择集对象
;;;方式码 4 取消“醒目显示”该选择集对象

(defun redraw-Sel (Sel mode)
    (setq m (sslength Sel)
          n 0)
    (repeat m
        (redraw (ssname Sel n) mode)
        (setq n (1+ n))
        );repeat
    );defun redraw-Sel