;;; Функция замены всех пробелов из строки на подчеркивания 
;;;             Copyright,1993-2001  Нестеров А.Г.
;;;                           04.01.2001
;;;                     E-Mail: nest@mail.ru
;;;*************************************************************
(defun SP_KILLER (S / I)
  (setq I 1)
  (while (>= (strlen S) i)
    (if	(= " " (substr S I 1))
      (setq S (strcat (substr S 1 (1- I)) "_" (substr S (1+ I))))
      (setq I (1+ I))
    )
  )
  (setq S S)
)