[求助]：理正能否将遮挡做到文字中？

andyhua5240

ET的那个经常在图中用不了，只有新建一个DWG的时候才能用？
理正能否加个文字遮挡的命令呀？
谢谢！

Quelea

还有一个办法就是改用MTEXT。
MTEXT是自身支持遮挡的。（AutoCAD 2006）

使用et中的TXT2MTXT命令可以转换TEXT物体为MTEXT

我写过一个快速开关MTEXT背景的程序：

2. [FONT=courier new]
   
3. (vl-load-com)
   
4. 
   
5. ([color=#800040]defun[/color] c:MaskOn (/ ss sset obj e ent doc)
   
6.   ([color=#0000ff]princ[/color] [color=#ff00ff]"\nTurn on MTEXT Background:"[/color])
   
7.   ([color=#0000ff]setq[/color] ss ([color=#0000ff]ssget[/color] [color=#ff00ff]":L"[/color] '((0 . [color=#ff00ff]"MTEXT"[/color]))))
   
8.   ([color=#0000ff]if[/color] ([color=#0000ff]null[/color] ss)
   
9.     ([color=#ff0000]exit[/color])
   
10.   )
    
11.   ([color=#0000ff]setq[/color] doc ([color=#0000ff]vla-get-activedocument[/color] ([color=#0000ff]vlax-get-acad-object[/color])))
    
12.   ([color=#0000ff]setq[/color] sset ([color=#0000ff]vla-get-activeselectionset[/color] doc))
    
13.   ([color=#0000ff]vla-startundomark[/color] doc)
    
14.   ([color=#0000ff]vlax-for[/color] obj sset
    
15.     ([color=#0000ff]vla-put-backgroundfill[/color] obj :vlax-true)
    
16.     ([color=#0000ff]setq[/color] e (vlax-vla-object-[color=#0000ff]>[/color]ename obj))
    
17.     ([color=#0000ff]setq[/color] ent ([color=#0000ff]entget[/color] e))
    
18.     ([color=#0000ff]setq[/color] ent ([color=#0000ff]subst[/color] ([color=#0000ff]cons[/color] 45 1.2) ([color=#0000ff]assoc[/color] 45 ent) ent))
    
19.     ([color=#0000ff]entmod[/color] ent)
    
20.   )
    
21.   ([color=#0000ff]vla-endundomark[/color] doc)
    
22.   ([color=#0000ff]princ[/color])
    
23. )
    
24. ([color=#800040]defun[/color] c:MaskOff (/ ss sset obj doc)
    
25.   ([color=#0000ff]princ[/color] [color=#ff00ff]"\nTurn off MTEXT Background:"[/color])
    
26.   ([color=#0000ff]setq[/color] ss ([color=#0000ff]ssget[/color] [color=#ff00ff]":L"[/color] '((0 . [color=#ff00ff]"MTEXT"[/color]))))
    
27.   ([color=#0000ff]if[/color] ([color=#0000ff]null[/color] ss)
    
28.     ([color=#ff0000]exit[/color])
    
29.   )
    
30.   ([color=#0000ff]setq[/color] doc ([color=#0000ff]vla-get-activedocument[/color] ([color=#0000ff]vlax-get-acad-object[/color])))
    
31.   ([color=#0000ff]setq[/color] sset ([color=#0000ff]vla-get-activeselectionset[/color] doc))
    
32.   ([color=#0000ff]vla-StartUndoMark[/color] doc)
    
33.   ([color=#0000ff]vlax-for[/color] obj sset
    
34.     ([color=#0000ff]vla-put-backgroundfill[/color] obj :vlax-false)
    
35.   )
    
36.   ([color=#0000ff]vla-EndUndoMark[/color] doc)
    
37.   ([color=#0000ff]princ[/color])
    
38. )
    
39. [/FONT]

[FONT=courier new]<br /> (vl-load-com)<br /> <br /> ([color=#800040]defun[/color] c:MaskOn (/ ss sset obj e ent doc)<br />   ([color=#0000ff]princ[/color] [color=#ff00ff]"\nTurn on MTEXT Background:"[/color])<br />   ([color=#0000ff]setq[/color] ss ([color=#0000ff]ssget[/color] [color=#ff00ff]":L"[/color] '((0 . [color=#ff00ff]"MTEXT"[/color]))))<br />   ([color=#0000ff]if[/color] ([color=#0000ff]null[/color] ss)<br />     ([color=#ff0000]exit[/color])<br />   )<br />   ([color=#0000ff]setq[/color] doc ([color=#0000ff]vla-get-activedocument[/color] ([color=#0000ff]vlax-get-acad-object[/color])))<br />   ([color=#0000ff]setq[/color] sset ([color=#0000ff]vla-get-activeselectionset[/color] doc))<br />   ([color=#0000ff]vla-startundomark[/color] doc)<br />   ([color=#0000ff]vlax-for[/color] obj sset<br />     ([color=#0000ff]vla-put-backgroundfill[/color] obj :vlax-true)<br />     ([color=#0000ff]setq[/color] e (vlax-vla-object-[color=#0000ff]>[/color]ename obj))<br />     ([color=#0000ff]setq[/color] ent ([color=#0000ff]entget[/color] e))<br />     ([color=#0000ff]setq[/color] ent ([color=#0000ff]subst[/color] ([color=#0000ff]cons[/color] 45 1.2) ([color=#0000ff]assoc[/color] 45 ent) ent))<br />     ([color=#0000ff]entmod[/color] ent)<br />   )<br />   ([color=#0000ff]vla-endundomark[/color] doc)<br />   ([color=#0000ff]princ[/color])<br /> )<br /> ([color=#800040]defun[/color] c:MaskOff (/ ss sset obj doc)<br />   ([color=#0000ff]princ[/color] [color=#ff00ff]"\nTurn off MTEXT Background:"[/color])<br />   ([color=#0000ff]setq[/color] ss ([color=#0000ff]ssget[/color] [color=#ff00ff]":L"[/color] '((0 . [color=#ff00ff]"MTEXT"[/color]))))<br />   ([color=#0000ff]if[/color] ([color=#0000ff]null[/color] ss)<br />     ([color=#ff0000]exit[/color])<br />   )<br />   ([color=#0000ff]setq[/color] doc ([color=#0000ff]vla-get-activedocument[/color] ([color=#0000ff]vlax-get-acad-object[/color])))<br />   ([color=#0000ff]setq[/color] sset ([color=#0000ff]vla-get-activeselectionset[/color] doc))<br />   ([color=#0000ff]vla-StartUndoMark[/color] doc)<br />   ([color=#0000ff]vlax-for[/color] obj sset<br />     ([color=#0000ff]vla-put-backgroundfill[/color] obj :vlax-false)<br />   )<br />   ([color=#0000ff]vla-EndUndoMark[/color] doc)<br />   ([color=#0000ff]princ[/color])<br /> )<br /> [/FONT]

AutoCAD另还有一个新命令：TEXTTOFRONT

这个命令用于把所有的文字和标注物体提到最上层，确保不被其它物体遮掉。