【已解决】如何设置标注文字的填充颜色为“背景”？

天天问

问题已解决，详见kucha007的帖子http://bbs.mjtd.com/forum.php?mod=viewthread&tid=189711&fromuid=7329538



--------------------------------------------
以下是原贴
当标注文字与其他图元（线条、填充图案等）存在交叉的时候，文字优先，给标注文字加个遮罩，看文字就清晰多了。
尝试使用Lsp来实现，但发现个问题，无法设置文字的填充颜色为“背景”，其他颜色倒是可以成功设置。
奈何日常使用的时候，填充颜色一般都只用“背景”，其他颜色基本不用。有没有大佬帮忙看看这个问题该如何解决？
附上源码，请大佬修改。

2. (defun c:XGTC( / bzwztc_input  ss  i  num  e_tmp  e_obj  )
   
3.         ;标注文字填充设置
   
4.         (vl-load-com)
   
5.         
   
6.         (initget "A  B")
   
7.         (setq  bzwztc_input (getkword (strcat "\n选择 修改类型 [标注文字添加背景填充(A)/标注文字取消填充(B)]<当前默认 " (if (= bzwztc nil) "A" bzwztc) " >：")))
   
8.         (if (= bzwztc nil) (setq bzwztc "A"))
   
9.         (if (/= bzwztc_input nil) (setq  bzwztc  bzwztc_input))
   
10.         
    
11.         (IF (= bzwztc "A")
    
12.                 (progn
    
13.                         (prompt "\n选择尺寸标注，按 回车 或 空格 结束选择：")
    
14.                         (setq ss (ssget '((0 . "DIMENSION"))))        ;创建选择集                        
    
15.                         
    
16.                         (if ss
    
17.                                 (progn
    
18.                                         (setq i 0)
    
19.                                         (setq num (sslength ss));获取选择集里的图元数量
    
20.                                         (repeat num
    
21.                                                 (setq e_tmp (ssname ss i))
    
22.                                                 (setq e_obj (vlax-ename->vla-object e_tmp))
    
23.                                                 (vlax-put e_obj 'TextFill  1);非0值都表示打开标注文字的填充颜色
    
24.                                                 ;(vla-put-textfill e_obj :vlax-true);这句与上面的那一句功能等价        
    
25.                                                 (vlax-put e_obj 'TextFillColor  1);≤-1红色，0随层,1~255为索引色，≥256随层。=======目前还未找到背景色的设置方法
    
26.                                                 (setq i (1+ i))
    
27.                                         )
    
28.                                 )
    
29.                         );end if,                        
    
30.                         
    
31.                 )
    
32.         );end if
    
33.         
    
34.         
    
35.         (IF (= bzwztc "B")
    
36.                 (progn
    
37.                         (prompt "\n选择尺寸标注，按 回车或 空格 结束选择：")
    
38.                         (setq ss (ssget '((0 . "DIMENSION"))))        ;创建选择集                        
    
39.                         
    
40.                         (if ss
    
41.                                 (progn
    
42.                                         (setq i 0)
    
43.                                         (setq num (sslength ss));获取选择集里的图元数量
    
44.                                         (repeat num
    
45.                                                 (setq e_tmp (ssname ss i))
    
46.                                                 (setq e_obj (vlax-ename->vla-object e_tmp))
    
47.                                                 (vlax-put e_obj 'TextFill  0)
    
48.                                                 (setq i (1+ i))
    
49.                                         )
    
50.                                 )
    
51.                         );end if,                        
    
52.                         
    
53.                 )
    
54.         );end if
    
55. 
    
56.         (princ)
    
57. )

(defun c:XGTC( / bzwztc_input  ss  i  num  e_tmp  e_obj  )<br />         ;标注文字填充设置<br />         (vl-load-com)<br />         <br />         (initget "A  B")<br />         (setq  bzwztc_input (getkword (strcat "\n选择 修改类型 [标注文字添加背景填充(A)/标注文字取消填充(B)]<当前默认 " (if (= bzwztc nil) "A" bzwztc) " >：")))<br />         (if (= bzwztc nil) (setq bzwztc "A"))<br />         (if (/= bzwztc_input nil) (setq  bzwztc  bzwztc_input))<br />         <br />         (IF (= bzwztc "A")<br />                 (progn<br />                         (prompt "\n选择尺寸标注，按 回车 或 空格 结束选择：")<br />                         (setq ss (ssget '((0 . "DIMENSION"))))        ;创建选择集                        <br />                         <br />                         (if ss<br />                                 (progn<br />                                         (setq i 0)<br />                                         (setq num (sslength ss));获取选择集里的图元数量<br />                                         (repeat num<br />                                                 (setq e_tmp (ssname ss i))<br />                                                 (setq e_obj (vlax-ename->vla-object e_tmp))<br />                                                 (vlax-put e_obj 'TextFill  1);非0值都表示打开标注文字的填充颜色<br />                                                 ;(vla-put-textfill e_obj :vlax-true);这句与上面的那一句功能等价        <br />                                                 (vlax-put e_obj 'TextFillColor  1);≤-1红色，0随层,1~255为索引色，≥256随层。=======目前还未找到背景色的设置方法<br />                                                 (setq i (1+ i))<br />                                         )<br />                                 )<br />                         );end if,                        <br />                         <br />                 )<br />         );end if<br />         <br />         <br />         (IF (= bzwztc "B")<br />                 (progn<br />                         (prompt "\n选择尺寸标注，按 回车或 空格 结束选择：")<br />                         (setq ss (ssget '((0 . "DIMENSION"))))        ;创建选择集                        <br />                         <br />                         (if ss<br />                                 (progn<br />                                         (setq i 0)<br />                                         (setq num (sslength ss));获取选择集里的图元数量<br />                                         (repeat num<br />                                                 (setq e_tmp (ssname ss i))<br />                                                 (setq e_obj (vlax-ename->vla-object e_tmp))<br />                                                 (vlax-put e_obj 'TextFill  0)<br />                                                 (setq i (1+ i))<br />                                         )<br />                                 )<br />                         );end if,                        <br />                         <br />                 )<br />         );end if<br /> <br />         (princ)<br /> )

uvyx

先占个位，我也想知道！
可惜一直没找到办法

e2002

相关的说说，不涉及到代码：
MTEXT对象才有 Background 属性，Text对象很遗憾没有，希望Autodesk能改进Text对象，加上各种先进特性，如背景（不仅能纯色，还可以渐变，图案填充），2D几何变形等。

Bao_lai

试了下，这个确实不好弄，搞不好。
(vlax-Put (Vlax-Ename->Vla-Object (Car(Entsel))) 'TextFillColor "背景")

天天问

e2002 发表于 2024-3-26 18:15
相关的说说，不涉及到代码：
MTEXT对象才有 Background 属性，Text对象很遗憾没有，希望Autodesk能改进Tex ...

您的意思是，这个问题现阶段用lisp无法解决吗？

kucha007

天天问 发表于 2024-3-26 20:56
您的意思是，这个问题现阶段用lisp无法解决吗？

LeeMac有一个类似的https://lee-mac.com/mask.html
我写了个简版，但论坛现在传不了文件= =

天天问

kucha007 发表于 2024-3-26 22:15
LeeMac有一个类似的https://lee-mac.com/mask.html
我写了个简版，但论坛现在传不了文件= =

大佬，关键部分的代码方便展示一下吗，截图也行

kucha007

天天问 发表于 2024-3-27 08:12
大佬，关键部分的代码方便展示一下吗，截图也行

【DF】切换标注遮罩_v1.0
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7329538
(出处: 明经CAD社区)

天天问

kucha007 发表于 2024-3-27 09:11
【DF】切换标注遮罩_v1.0
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=189711&fromuid=7329538
...

干货满满，谢谢分享

飞的鱼儿

借个楼，提个问，我用CAD时，经常遇到标注文字会有背景，在标注样式里改成标注文字的背景为“无"当时标注时，文字的背景确实没有了，可是没过多一会儿，就又有背景了，改了变量DIMTFILL，也是如此。不知道为什么，也不知道该怎么改才行，有没有前辈能指教。