kucha007 发表于 2025-3-29 14:45:11

【RmvMtext】移除多行文字格式

本帖最后由 kucha007 于 2025-3-29 14:47 编辑

移除多行文字格式，有时候蛮有用的

(defun RmvMtext(mtext)
(setpropertyvalue
    mtext
    "Contents"
    (vl-string-translate "\r\n" "\\P" (getpropertyvalue mtext "Text"))
)
)



例如只加宽度可以这样用：

(setpropertyvalue
    mtext
    "Contents"
    (strcat
      "{\\W"
      (rtos 0.75 2 2)
      ";"
      (RmvMtext mtext)
      "}"
    )
)


loveu515 发表于 2025-3-29 19:13:34

感谢分享哦

muai2010 发表于 2025-3-29 22:16:38

支持大师分享

czb203 发表于 2025-3-29 23:08:55

setpropertyvalue哥 这是什么函数

kozmosovia 发表于 2025-3-30 09:47:10

getpropertyvalue对大部分控制符可以清理，但是对于堆叠的格式，会添加多余的/

kucha007 发表于 2025-3-30 23:43:47

kozmosovia 发表于 2025-3-30 09:47
getpropertyvalue对大部分控制符可以清理，但是对于堆叠的格式，会添加多余的/

原来如此，学习了

tigcat 发表于 2025-3-31 15:13:42

;;;给新手使用，怕新手不会用

(defun c:tt (/ ss i mtext)
(vl-load-com)
(setq ss (ssget '((0 . "MTEXT")))) ; 选择多行文字
(if ss
    (progn
      (setq i 0)
      (repeat (sslength ss)
      (setq mtext (ssname ss i))
      (setpropertyvalue
          mtext
          "Contents"
          (vl-string-translate "\r\n" "\\P" (getpropertyvalue mtext "Text"))
      )
      (setq i (1+ i))
      )
      (princ "\n处理完成！")
    )
    (princ "\n未选择任何多行文字！")
)
(princ)
)

panliang9 发表于 2025-4-2 08:59:44

去除多行文字格式，表格内文字格式工具。

不记得是哪个贴子里下载的了。借 "kucha007" 的贴子给大家分享下。

命令SMT


页: [1]
查看完整版本: 【RmvMtext】移除多行文字格式