提取MTEXT指定行内容

Lispboy

需要的函数：xd::mtext:gettextstringat 见 http://bbs.xdcad.net/thread-708392-1-1.html

[sell=5]

1. (defun c:XDTB_MtextTQ ( / an e h pt str styl txt)
   
2.   (if (setq e (xdrx_entsel "\n拾取MTEXT指定行<退出>:" '((0 . "MTEXT"))))
   
3.     (progn
   
4.       (setq pt (cadr e)
   
5.             e (car e)
   
6.       )
   
7.       (if (setq str (xd::mtext:gettextstringat e pt))
   
8.         (progn
   
9.           (xdrx_begin)
   
10.           (setq h (xdrx_getpropertyvalue e "textheight")
    
11.                 an (+ (xd::ucs:angle)(xdrx_getpropertyvalue e "rotation"))
    
12.                 styl (xdrx_getpropertyvalue e "textstyle")
    
13.                 txt (xd::mtext:unformat str)
    
14.           )
    
15.           (xdrx_text_make '(0 0 0) txt (car styl) h an)
    
16.           (xd::drag:simplemove (entlast) "\n文字插入点:" 0 t)
    
17.           (xdrx_end)
    
18.         )
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

(defun c:XDTB_MtextTQ ( / an e h pt str styl txt)<br />   (if (setq e (xdrx_entsel "\n拾取MTEXT指定行<退出>:" '((0 . "MTEXT"))))<br />     (progn<br />       (setq pt (cadr e)<br />             e (car e)<br />       )<br />       (if (setq str (xd::mtext:gettextstringat e pt))<br />         (progn<br />           (xdrx_begin)<br />           (setq h (xdrx_getpropertyvalue e "textheight")<br />                 an (+ (xd::ucs:angle)(xdrx_getpropertyvalue e "rotation"))<br />                 styl (xdrx_getpropertyvalue e "textstyle")<br />                 txt (xd::mtext:unformat str)<br />           )<br />           (xdrx_text_make '(0 0 0) txt (car styl) h an)<br />           (xd::drag:simplemove (entlast) "\n文字插入点:" 0 t)<br />           (xdrx_end)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

[/sell]

sicky111

要是纯Lisp的就更牛逼了。

kqqt6236

啥也不说了，感谢楼主分享哇！

liuyj

如何对多重引线的文字操作？

newer

liuyj 发表于 2017-4-19 11:46

和这个帖子的插件有关吗？ 如无关，单独开个主题吧，别在 每日插件论坛下。

liuyj

当然有关，多重引线的文字就是多行文字，不过炸开一次不行

newer

liuyj 发表于 2017-4-19 17:31

(xdrx_getpropertyvalue mleaderEnt "mtext") 你会得到临时的MTEXT实体的，操作后，删除它。

alliuyx

正需要，支持楼主大人了！

ymcui2005

啥也不说了，感谢楼主分享哇！

xdcad9819

啥也不说了，感谢楼主分享哇！