如何将一个复杂的MTEXT中的字体、字高和字符形成一个表？（已经完成）

黄卫文

如何将一个复杂的MTEXT中的字体、字高和字符形成一个表。
表的形式 ((字体  字高  字符)   (字体  字高  字符)  ((字体  字高  字符) ......)
复杂的MTEXT如
(1 . "12{\\H2x;232\\H0.5x;2323}d\\H2x;23{\\f宋体|b0|i0|c134|p0;二类工业用地}a{\\H0.5631x;sd}d")
(1 . "{\\f宋体|b0|i0|c134|p2;12\\H2x;232\\H0.5x;2323\\H2x;23\\f隶书|b0|i0|c134|p49;235\\H0.5x;55}")
(1 . "{\\f黑体|b0|i0|c134|p0;\\H11.84x;a}{\\f华文彩云|b0|i0|c134|p0;\\H13.32x;贡}
    {\\f黑体|b0|i0|c134|p0;\\H13.32x;拷d}{\\f华文琥珀|b0|i0|c134|p0;\\H13.32x;共}
    {\\f方正舒体|b0|i0|c134|p0;\\H13.32x;同}{\\f黑体|b0|i0|c134|p0;\\H8.88x;as}
    {\\f黑体|b0|i0|c134|p0;\\H16.28x;d}{\\f黑体|b0|i0|c134|p0;\\H14.8x;基}
    {\\f黑体|b0|i0|c134|p0;\\H16.28x;本}{\\f黑体|b0|i0|c134|p0;\\H16.28x;}"
)

lsjjm

请参考:
[php]
(defun c:test (/ lst)
  ;(vl-load-com)
  (setq dd  (ssget '((0 . "mtext"))))
  (setq n 0)
  (while (< n (sslength dd))
    (setq obj (vlax-ename->vla-object (ssname dd n)))
    (setq lst (append lst (list (vla-get-stylename obj)
                            (vla-get-height obj)
                            (vla-get-textstring obj))))
    (setq n (1+ n))
  )
  lst
)
[/php]

Free-Lancer

最初由 黄卫文 发布
[B]如何将一个复杂的MTEXT中的字体、字高和字符形成一个表。
表的形式 ((字体  字高  字符)   (字体  字高  字符)  ((字体  字高  字符) ......)
复杂的MTEXT如
(1 . "12{\\H2x;232\\H0.5x;2323}d\\H2x;23{\\f宋体|... [/B]

你把这个复杂字体发上来，就是写一个也很费时间的：）
Mtext很麻烦，其实就是一个拆分，但要将那几个控制符提出来，不知道2002到2005的控制部分有没有增减

mmmm

只能一个一个的读字符串，再判断，所以快不了

或者炸开多重文本分析

黄卫文

最初由 lsjjm 发布
[B]请参考:
[php]
(defun c:test (/ lst)
  ;(vl-load-com)
  (setq dd  (ssget '((0 . "mtext"))))
  (setq n 0)
  (while (< n (sslength dd))
    (setq obj (vlax-ename->vla-object (ssname dd n)))
    (... [/B]

你这代码仅对相同的字高和字体有效，这是最简单的情况。如果(vla-get-textstring obj)包括了复杂的定义就不是想要的结果了。

MMMM：炸开也有一个问题，就是炸开后字高是保持了，可是字体是用了缺省的。就想了解一下一个一个字符判断有什么高效的方法。

mmmm

其实两个都不是最好的办法，不过相对来说，一个一个读比较保险。
炸开多重文本后，字型定义会消失；一个一个读时，如果文本内容中存在有MTEXT的控制符，就比较麻烦了。这样的程序，应该是Autodesk才能编的最好。

Free-Lancer

用 vl-string->list 和 vl-list->string 组合来做如何

梦断江南

用炸开法吧，写起来简单一点。
ww，字型可以反推嘛 ；）

黄卫文

这个函数已经完成，有兴趣的朋友可以去下载。http://www.xdcad.net/forum/showthread.php?s=&threadid=234150