删除文本中的空格

Sweety · 发表于 2022-7-6 08:23:01

哇，李，谢谢你。

我真的很想看香草口味的。你循环密码的方式让我疯狂。

虽然使用entupd函数，但它不会替换文本

(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)
(entupd ent)

alanjt · 发表于 2022-7-6 08:26:03

普通和递归。

copy

(defun noSpaces (str / v)
 (if (eq str "")
   ""
   (if (eq (setq v (substr str 1 1)) " ")
     (noSpaces (substr str 2))
     (strcat v (noSpaces (substr str 2)))
   )
 )
)

Sweety · 发表于 2022-7-6 08:28:12

是的，很抱歉，现在可以了。

copy

(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)))
(entupd (cdr (assoc -1 (entmod (subst (cons 1 (noSpaces tt))(assoc 1 ent) ent)))))