用LISP怎样取得MText中的文本信息？

dinosaurhxe2

用LISP怎样取得MText中的文本信息？
一行用MText写的文本"XⅠ526"，我想用图元表，但发现得到的是这么一个东西

1. (1 ."\\C7;\\fTimes New Roman|b0|i0|;\\H1.7121975272894;X\\f宋体|b0|i0|;\\H2.1221603155136;Ⅰ\\fTimes New Roman|b0|i0|;\\H1.7121975272894;526")

复制代码

也就是说它包含了字体信息，现在我只想留下"XⅠ526"，这么一个文本。
因为是要调用这个文本，所以不能将其炸开，而且炸开之后它也变成了三段Text，分别为"X" "Ⅰ" "526"。
请高人帮帮忙，谢谢！

caoyin

炸开，得到文本，然后 undo 回去

ljpnb

不知道会不会出现其它情况:

(defun c:test ()
  (setq ent (car (entsel "\n选择MTEXT文字:")))
  (setq dxf (entget ent))
  (setq str0 "")
  (setq txt (cdr (assoc 1 dxf)))
  (setq txt (vl-string-subst "" "{" txt))
  (setq txt (vl-string-subst "" "}" txt))
  (while (setq n (vl-string-search ";" txt))
    (if (= (setq str (substr txt 1 1)) "\\")
      (setq txt (substr txt (+ n 2)))
      (progn
 (setq str0 (strcat str0 (substr txt 1 1)))
 (setq txt (substr txt 2))
      )
    )
  )
  (setq str0 (strcat str0 txt))
  (princ (strcat "当前MTEXT中的文本为: " str0))
  (princ)
)

狂刀无痕

明总和lzh都写了mtext提取文本的函数，可以搜索找找。

正则表达式

dinosaurhxe2

感谢各位高人前辈的指点。

2楼的方法似乎不可行，主要是炸开后变成了好几段TEXT。

3楼的代码目前实验没有出错，借用了^_^

也搜索了一下“正则表达式”，太高深了，暂时看不懂，还要慢慢学习。

再次感谢各位！

caoyin

;; 二楼的方法在特殊情况下容易出错

(defun c:test (/ en ss str)
  (if (setq en (entsel "\n选择多行文字: "))
    (progn
      (command "_.explode" (car en))
      (setq ss (ssget "_p") str "")
      (repeat (setq n (fix (sslength ss)))
        (setq en  (ssname ss (setq n (1- n)))
              en  (entget en)
              str (strcat (cdr (assoc 1 en)) str)
        )
      )
      (command "_.undo" 1)
      (alert str)
    )
  )
  (princ)
)

ljpnb

5楼提到的"正则表达式"确实不错,参考http://www.mjtd.com/bbs/dispbbs.asp?boardid=3&replyid=45104&id=57445&page=1&skin=0&Star=1