[编程交流] 删除文本中的空格

(setq e (car (entsel "\n Select Text :")))
(setq ent (entget e))
(entmod (subst (cons 1 .......

(defun c:FOO  (/ ss)
 (vl-load-com)
 (vla-startundomark
   (cond (*activeDoc*)
         ((setq *activeDoc*
                 (vla-get-activedocument (vlax-get-acad-object))))))
 (if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   ((lambda (i / e v s)
      (while (setq e (ssname ss (setq i (1+ i))))
        (setq s (vla-get-textstring (setq v (vlax-ename->vla-object e))))
        (while (vl-string-search " " s)
          (setq s (vl-string-subst "" " " s)))
        (vla-put-textstring v s)))
     -1))
 (vla-endundomark *activeDoc*)
 (princ))

(defun noSpaces (str)
 (if (eq (type str) 'STR)
   (vl-list->string (vl-remove 32 (vl-string->list str)))
 )
)

(defun noSpaces (str)
 (if (eq (type str) 'STR)
   (vl-list->string (vl-remove 32 (vl-string->list str)))
 )
)
(setq e (car (entsel "\n Select Text :")))
(setq ent (entget e))
(setq tt (cdr (assoc 1 ent)))
(noSpaces tt)

[ Scroll down after you have got something working on your own   ]
(defun c:nospace ( / nospace ss )
 (defun nospace ( s )
   (
     (lambda ( o )
       (repeat (strlen s)
         (if (/= 32 (ascii s))
           (setq o (strcat o (substr s 1 1)))
         )
         (setq s (substr s 2))
       )
       o
     )
     ""
   )
 )
 (if (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
   (
     (lambda ( i / e )
       (while (setq e (ssname ss (setq i (1+ i))))
         (entupd
           (cdr
             (assoc -1
               (entmod
                 (subst
                   (cons 1
                     (nospace
                       (cdr
                         (assoc 1 (entget e))
                       )
                     )
                   )
                   (assoc 1 (entget e))
                   (entget e)
                 )
               )
             )
           )
         )
       )
     )
     -1
   )
 )
 (princ)
)