Text转Mtext

自贡黄明儒

ZZXXQQ 发表于 2014-1-28 08:44
觉得TENT开始的数据要反过来，这样在后面再次颠倒时才正确。
MTEXT的插入点在左上角，这可以用函数计算出来 ...

感谢楼上三位热情回复，那么下面就成了

1. ;;单行文字变多行文字(text2mtext (car(entsel)))
   
2. (defun text2mtext (e / ANG EN HEI INS LAY OBJ P10 STR STY TENT)
   
3.   ;(setq e (car(entsel)))
   
4.   (setq obj (vlax-ename->vla-object e))
   
5.   (setq ins (vlax-get obj 'insertionPoint))
   
6.   (setq hei (vlax-get obj 'Height))
   
7.   (setq ang (vlax-get obj 'ObliqueAngle))
   
8.   (setq p10 (polar ins (+ (* pi 0.5) ang) hei))
   
9.   (setq str (vlax-get obj 'textstring))
   
10.   (setq sty (vlax-get obj 'stylename))
    
11.   (setq Lay (vlax-get obj 'layer))
    
12.   (setq en (entget e))  
    
13.   (Setq        TENT (list '(0 . "MTEXT")
    
14.                    (cons 8 Lay)
    
15.                    '(100 . "AcDbEntity")
    
16.                    '(100 . "AcDbMText")                    
    
17.                    (cons 7 sty)
    
18.                    (cons 1 str)
    
19.                    (cons 10 p10)
    
20.              )
    
21.   )  
    
22.   (entdel e)  
    
23.   (EntMake TENT)
    
24. )

;;单行文字变多行文字(text2mtext (car(entsel)))<br /> (defun text2mtext (e / ANG EN HEI INS LAY OBJ P10 STR STY TENT)<br />   ;(setq e (car(entsel)))<br />   (setq obj (vlax-ename->vla-object e))<br />   (setq ins (vlax-get obj 'insertionPoint))<br />   (setq hei (vlax-get obj 'Height))<br />   (setq ang (vlax-get obj 'ObliqueAngle))<br />   (setq p10 (polar ins (+ (* pi 0.5) ang) hei))<br />   (setq str (vlax-get obj 'textstring))<br />   (setq sty (vlax-get obj 'stylename))<br />   (setq Lay (vlax-get obj 'layer))<br />   (setq en (entget e))  <br />   (Setq        TENT (list '(0 . "MTEXT")<br />                    (cons 8 Lay)<br />                    '(100 . "AcDbEntity")<br />                    '(100 . "AcDbMText")                    <br />                    (cons 7 sty)<br />                    (cons 1 str)<br />                    (cons 10 p10)<br />              )<br />   )  <br />   (entdel e)  <br />   (EntMake TENT)<br /> )

sachindkini

Text2MText Upgraded

Program Description

A dynamic variation on the familiar Express Tools function, this program allows the user to dynamically amalgamate several separate MText & DText objects into a single MText object, with all formatting remaining in tact. The user is also provided with additional options to control how text strings are combined.

Text will take on the layer of the first text entity chosen (as per the behaviour of the Express Tools function), but will keep its colour if not set to ByLayer.

The user is provided with two modes of operation: Same Line & New Line, which may be switched by pressing the spacebar between selections. When operating inSame Line mode, new text is appended to the end of the last line in the resulting MText object, whereas the New Line mode forces selected text to begin on a new line.

Shift-Clicking on Text object will keep the original object in place, whilst still add its string to the resultant MText; and upon pressing u between selections, the last text selected will be removed from the resultant MText object.

Examples of Usage

Combining Three DText Objects into a Single MText Object

qjchen

Express tool 里面的Text , Convert Text to Mtext，个人觉得挺好用的

自贡黄明儒

qjchen 发表于 2014-1-28 13:40
Express tool 里面的Text , Convert Text to Mtext，个人觉得挺好用的

是呀，好象是text2Mtext,关键好多人不知道什么叫ET，而且我也常忘记安装ET.最近来打算写一个文本集成工具。击文本执行12个命令，干脆一下弄进去算了。

qjchen

自贡黄明儒 发表于 2014-1-28 14:57
是呀，好象是text2Mtext,关键好多人不知道什么叫ET，而且我也常忘记安装ET.最近来打算写一个文本集成工具 ...

自己编当然是很好的事情

文字编辑方面，个人觉得coolzhb朋友写的 文字修改大师 或者 酷周工具箱

http://coolzhb.ys168.com/?jdfwkey=ovwch3

都是很好的，几乎能想到的大部分都有了

自贡黄明儒

qjchen 发表于 2014-1-29 09:14
自己编当然是很好的事情

文字编辑方面，个人觉得coolzhb朋友写的 文字修改大师 或者 酷周工具箱

虽然很强大，但我更关注批量处理。

llsheng_73

1. (defun text2mtext (e / EN)
   
2.   (EntMake
   
3.     (setq en(entget e)
   
4.           en(list '(0 . "MTEXT")(assoc 8 en)'(100 . "AcDbEntity")'(100 . "AcDbMText")(assoc 7 en)(assoc 1 en)
   
5.                    (cons 10(polar(if(equal'(0 0 0)(cdr(assoc 10 en)))(cdr(assoc 11 en))(cdr(assoc 10 en)))(+(* pi 0.5)(cdr(assoc 50 en)))(cdr(assoc 40 en))))
   
6.              )
   
7.   ))(entdel e)
   
8. )

(defun text2mtext (e / EN)<br />   (EntMake<br />     (setq en(entget e)<br />           en(list '(0 . "MTEXT")(assoc 8 en)'(100 . "AcDbEntity")'(100 . "AcDbMText")(assoc 7 en)(assoc 1 en)<br />                    (cons 10(polar(if(equal'(0 0 0)(cdr(assoc 10 en)))(cdr(assoc 11 en))(cdr(assoc 10 en)))(+(* pi 0.5)(cdr(assoc 50 en)))(cdr(assoc 40 en))))<br />              )<br />   ))(entdel e)<br /> )

把老黄这个改了下，效果是一样的，但文字是左对齐的时候会有一点移位，正中不会，其它对齐方式没测试

无厘崖

sachindkini 发表于 2014-1-28 13:18
Text2MText Upgraded
Program DescriptionA dynamic variation on the familiar Express Tools function,  ...

you
are so
good!

773786668

精华帖，学习了，哈哈 不过有个问题，为什么加载了黄总的代码，会提示分配给保护的符号...后面一串提示

iamhuangjinming

很好用，谢谢楼主，哈哈