【RmvMtext】移除多行文字格式

kucha007

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

1. (defun RmvMtext  (mtext)
   
2.   (setpropertyvalue
   
3.     mtext
   
4.     "Contents"
   
5.     (vl-string-translate "\r\n" "\\P" (getpropertyvalue mtext "Text"))
   
6.   )
   
7. )
   

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

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

1. (setpropertyvalue
   
2.     mtext
   
3.     "Contents"
   
4.     (strcat
   
5.       "{\\W"
   
6.       (rtos 0.75 2 2)
   
7.       ";"
   
8.       (RmvMtext mtext)
   
9.       "}"
   
10.     )
    
11. )
    

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

loveu515

感谢分享哦

muai2010

支持大师分享

czb203

setpropertyvalue  哥 这是什么函数

kozmosovia

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

kucha007

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

原来如此，学习了

tigcat

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

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