Question

求一个autolisp程序，在cad图形里，批量去掉文字里面的空格。

Answer 1

(defun c:cba()
  (setq ssx (ssget '((0 . "*text")(1 . "* *"))))
  (or ssx (setq ssx (ssadd)))
  (setq m (sslength ssx) n 0)
  (while (< n m)
    (setq en (ssname ssx n))
    (setq data (entget en))
    (setq str (cdr (assoc 1 data)))
    (while (vl-string-search " " str)
      (setq str (vl-string-subst "" " " str))
    )
    (setq data (entmod (subst (cons 1 str) (assoc 1 data) data)))
    (setq n (1+ n))
  )
  (princ (strcat "\n共处理了【"  (itoa n) "】个!"))
  (princ)
)