求助：单行文字批量转成多行文字时，多行文字的宽度根据单行文字的内容自动调整

微笑忘记过去

在工作中，有时需要对单行文字批量遮罩，由于不想用ET自带的那个【文字遮罩】的功能（因为遮罩不能根据文字的移动而移动），故想通过把单行文字批量转换为多行文字之后，再利用多行文字的背景遮罩来实现，但是通过贱人工具箱将单行文字批量转换为多行文字时，转换后的多行文字背景宽度比文字内容多很多，有没有办法实现单行文字批量转成多行文字时，转换后的多行文字的宽度根据单行文字的内容自动调整为最小遮罩背景呢？想实现的效果如下图所示：

springwillow

修改了一版供试用。

yoyoho

感谢 springwillow 分享学习!!!

微笑忘记过去

springwillow 发表于 2015-12-14 15:36
修改了一版供试用。

谢谢您的大作，我想实现的效果是转换的多行文字不是自动换行的效果，而是各行之间还是独立的，单行文字转换后文字的位置不变。

微笑忘记过去

springwillow 发表于 2015-12-14 15:36
修改了一版供试用。

谢谢您的大作，我想实现的效果是转换的多行文字不是自动换行的效果，而是各行之间还是独立的，单行文字转换后文字的位置不变。

xiaomm250

2. ;;  Text1MtextJust.lsp [command name: T1MJ]
   
3. ;http://cadtips.cadalyst.com/multiline-text/convert-text-mtext-without-changing-justification
   
4. ;;  TXT2MTXT command does not preserve all aspects of justification.  For
   
5. ;;    one selected Text/Attribute-definition entity, retains horizontal component
   
6. ;;    [except Aligned/ Fit have Center imposed], but always imposes Top for
   
7. ;;    vertical component, regardless of Text entity's original justification.
   
8. ;;  T1MJ converts each selected Text or Attribute-Definition entity separately
   
9. ;;    to Mtext with same or equivalent justification as original Text, including
   
10. ;;    vertical component.
    
11. ;;  "Equivalent" for Text/Attribute justifications not used with Mtext:
    
12. ;;    Left/Center/Right become Bottom-Left/Bottom-Center/Bottom-Right;
    
13. ;;    Middle becomes Middle-Center;
    
14. ;;    Aligned/Fit become Bottom-Center with new insertion point half-way
    
15. ;;      between original Text entity's baseline alignment/fit points, so that
    
16. ;;      any positional change is minimized.
    
17. ;;  Will sometimes result in slight positional change, depending on specific
    
18. ;;    justification involved, text font, and/or whether text content includes
    
19. ;;    characters extending above or below height of capital letters [e.g. lower-
    
20. ;;    case letters with descenders, parentheses/brackets/braces, slashes, etc.].
    
21. ;;  Fit-justified object will retain original height, but lose width adjustment.
    
22. ;;  Kent Cooper, last edited 27 August 2014
    
23. ;单行文本转多行文本，并且保留对齐方式
    
24. 
    
25. (defun C:T1MJ ; = Text or Attribute Definition to 1-line Mtext, retaining Justification
    
26.   (/ *error* cmde doc tss inc tent tobj tins tjust)
    
27. 
    
28.   (defun *error* (errmsg)
    
29.     (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
    
30.       (princ (strcat "\nError: " errmsg))
    
31.     ); if
    
32.     (vla-endundomark doc)
    
33.     (setvar 'cmdecho cmde)
    
34.     (princ)
    
35.   ); defun - *error*
    
36. 
    
37.   (setq
    
38.     cmde (getvar 'cmdecho)
    
39.     doc (vla-get-activedocument (vlax-get-acad-object))
    
40.   ); setq
    
41.   (vla-startundomark doc)
    
42.   (setvar 'cmdecho 0)
    
43.   (prompt "\nTo change Text/Attribute to 1-line Mtext, preserving Justification,")
    
44.   (if (setq tss (ssget "_:L" '((0 . "TEXT"))))
    
45.     (repeat (setq inc (sslength tss))
    
46.       (setq
    
47.         tent (ssname tss (setq inc (1- inc)))
    
48.         tobj (vlax-ename->vla-object tent)
    
49.         tins (vlax-get tobj 'TextAlignmentPoint)
    
50.         tjust (vla-get-Alignment tobj)
    
51.       ); setq
    
52.       (cond
    
53.         ((= tjust 0) (setq tjust 7 tins (vlax-get tobj 'InsertionPoint))); Left
    
54.         ((< tjust 3) (setq tjust (+ tjust 7))); 1/2 [Center/Right] to 8/9
    
55.         ((= tjust 4) (setq tjust 5)); Middle to Middle-Center
    
56.         ((member tjust '(3 5)); Aligned/Fit
    
57.           (setq
    
58.             tjust 8 ; to Bottom-Center
    
59.             tins (mapcar '/ (mapcar '+ (vlax-get tobj 'InsertionPoint) tins) '(2 2 2))
    
60.               ; with new insertion point
    
61.           ); setq
    
62.         ); Aligned/Fit
    
63.         ((setq tjust (- tjust 5))); all vertical-horizontal pair justifications
    
64.       ); cond
    
65.       (if (= (vla-get-TextString tobj) "") (vla-put-TextString tobj (vla-get-TagString tobj)))
    
66.         ;; if no default content, disappears after TXT2MTXT: impose Tag value for it
    
67.         ;; [to use Prompt value instead, change end to (vla-get-PromptString tobj).]
    
68.       (command "_.txt2mtxt" tent ""); convert, then
    
69.       (setq tobj (vlax-ename->vla-object (entlast))); replace Text as object with new Mtext
    
70.       (vla-put-AttachmentPoint tobj tjust); original Text's justification [or equiv.]
    
71.       (vlax-put tobj 'InsertionPoint tins); original Text's insertion
    
72.     ); repeat
    
73.   ); if
    
74.   (setvar 'cmdecho cmde)
    
75.   (vla-endundomark doc)
    
76.   (princ)
    
77. ); defun -- T1MJ
    
78. (vl-load-com)
    
79. (prompt "\nType T1MJ to change Text/Attribute-Definitions to 1-line Mtext, preserving Justification.")
    

;;  Text1MtextJust.lsp [command name: T1MJ]<br /> ;http://cadtips.cadalyst.com/multiline-text/convert-text-mtext-without-changing-justification<br /> ;;  TXT2MTXT command does not preserve all aspects of justification.  For<br /> ;;    one selected Text/Attribute-definition entity, retains horizontal component<br /> ;;    [except Aligned/ Fit have Center imposed], but always imposes Top for<br /> ;;    vertical component, regardless of Text entity's original justification.<br /> ;;  T1MJ converts each selected Text or Attribute-Definition entity separately<br /> ;;    to Mtext with same or equivalent justification as original Text, including<br /> ;;    vertical component.<br /> ;;  "Equivalent" for Text/Attribute justifications not used with Mtext:<br /> ;;    Left/Center/Right become Bottom-Left/Bottom-Center/Bottom-Right;<br /> ;;    Middle becomes Middle-Center;<br /> ;;    Aligned/Fit become Bottom-Center with new insertion point half-way<br /> ;;      between original Text entity's baseline alignment/fit points, so that<br /> ;;      any positional change is minimized.<br /> ;;  Will sometimes result in slight positional change, depending on specific<br /> ;;    justification involved, text font, and/or whether text content includes<br /> ;;    characters extending above or below height of capital letters [e.g. lower-<br /> ;;    case letters with descenders, parentheses/brackets/braces, slashes, etc.].<br /> ;;  Fit-justified object will retain original height, but lose width adjustment.<br /> ;;  Kent Cooper, last edited 27 August 2014<br /> ;单行文本转多行文本，并且保留对齐方式<br /> <br /> (defun C:T1MJ ; = Text or Attribute Definition to 1-line Mtext, retaining Justification<br />   (/ *error* cmde doc tss inc tent tobj tins tjust)<br /> <br />   (defun *error* (errmsg)<br />     (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))<br />       (princ (strcat "\nError: " errmsg))<br />     ); if<br />     (vla-endundomark doc)<br />     (setvar 'cmdecho cmde)<br />     (princ)<br />   ); defun - *error*<br /> <br />   (setq<br />     cmde (getvar 'cmdecho)<br />     doc (vla-get-activedocument (vlax-get-acad-object))<br />   ); setq<br />   (vla-startundomark doc)<br />   (setvar 'cmdecho 0)<br />   (prompt "\nTo change Text/Attribute to 1-line Mtext, preserving Justification,")<br />   (if (setq tss (ssget "_:L" '((0 . "TEXT"))))<br />     (repeat (setq inc (sslength tss))<br />       (setq<br />         tent (ssname tss (setq inc (1- inc)))<br />         tobj (vlax-ename->vla-object tent)<br />         tins (vlax-get tobj 'TextAlignmentPoint)<br />         tjust (vla-get-Alignment tobj)<br />       ); setq<br />       (cond<br />         ((= tjust 0) (setq tjust 7 tins (vlax-get tobj 'InsertionPoint))); Left<br />         ((< tjust 3) (setq tjust (+ tjust 7))); 1/2 [Center/Right] to 8/9<br />         ((= tjust 4) (setq tjust 5)); Middle to Middle-Center<br />         ((member tjust '(3 5)); Aligned/Fit<br />           (setq<br />             tjust 8 ; to Bottom-Center<br />             tins (mapcar '/ (mapcar '+ (vlax-get tobj 'InsertionPoint) tins) '(2 2 2))<br />               ; with new insertion point<br />           ); setq<br />         ); Aligned/Fit<br />         ((setq tjust (- tjust 5))); all vertical-horizontal pair justifications<br />       ); cond<br />       (if (= (vla-get-TextString tobj) "") (vla-put-TextString tobj (vla-get-TagString tobj)))<br />         ;; if no default content, disappears after TXT2MTXT: impose Tag value for it<br />         ;; [to use Prompt value instead, change end to (vla-get-PromptString tobj).]<br />       (command "_.txt2mtxt" tent ""); convert, then<br />       (setq tobj (vlax-ename->vla-object (entlast))); replace Text as object with new Mtext<br />       (vla-put-AttachmentPoint tobj tjust); original Text's justification [or equiv.]<br />       (vlax-put tobj 'InsertionPoint tins); original Text's insertion<br />     ); repeat<br />   ); if<br />   (setvar 'cmdecho cmde)<br />   (vla-endundomark doc)<br />   (princ)<br /> ); defun -- T1MJ<br /> (vl-load-com)<br /> (prompt "\nType T1MJ to change Text/Attribute-Definitions to 1-line Mtext, preserving Justification.")<br />

xiaomm250

https://cadtips.cadalyst.com/mul ... nging-justification

999999

支持一下，顶起，谢谢各位大佬的分享

Violetmoon

xiaomm250 发表于 2020-5-7 14:10

这个好，刚好解决了我，单行转多行的疑问，感谢

ferious

xiaomm250 发表于 2020-5-7 14:12
https://cadtips.cadalyst.com/multiline-text/convert-text-mtext-without-changing-justification?q=mult ...

下载不了，能给个附件？