修改尺寸标注文字的填充颜色

guosheyang

群里面讨论到了 标注文字的填充色任意修改的问题 ，经测试发现 不用修改文字样式也可以实现   只不过不是单独修改TextFillColor属性  还需要同时修改TextFill属性项，否则修改不了，标注其他属性项的修改也存在类似情况，这里将标注填充颜色修改代码分享给朋友们，有问题请跟帖，谢谢！



;功能：修改标注填充颜色  作者 ygs-羊羊羊 20 24-4-16
(defun c:tt(/ EN YSSYH)
  (while (not yssyh)
    (setq yssyh(getint "\n 输入颜色索引号 ")))
  (while(not en)
    (setq en( car(entsel "\n 选择标注图元 "))))
(if(= yssyh 0)
  (progn
   (vlax-put-property (vlax-ename->vla-object en) 'TextFill 0)
   (vlax-put-property (vlax-ename->vla-object en) 'TextFillColor yssyh)
  )
  (progn
   (vlax-put-property (vlax-ename->vla-object en) 'TextFill -1)
   (vlax-put-property (vlax-ename->vla-object en) 'TextFillColor yssyh)
  )
)
  (princ)
)

guosheyang

Mr0sky 发表于 2024-5-14 17:04
如图所示，标注属性-填充颜色-背景，请问这个怎么实现呢？

Mr0sky

guosheyang 发表于 2024-5-14 13:42
运行tt   然后输入1  就是红色填充    2 黄色  3 绿色  。。。。。  就是这样啊

如图所示，标注属性-填充颜色-背景，请问这个怎么实现呢？

guosheyang

Mr0sky 发表于 2024-5-14 17:04
如图所示，标注属性-填充颜色-背景，请问这个怎么实现呢？

如果你是高版本  试试这个  (setpropertyvalue (car(entsel)) "Dimtfill" 1)

atone

顶一下，让大佬来讨论

magicheno

学习学习了！

jkop

少见的需求，学习了！

lzspain

就是不能批量加，逐个点选有点儿慢

你有种再说一遍

lzspain 发表于 2024-4-17 13:15
就是不能批量加，逐个点选有点儿慢

entsel作为demo是优秀的行为,不需要考虑过滤出错,自己实现ssget有什么难度咩

菜鸟初来乍到

感谢大佬分享

lzspain

你有种再说一遍 发表于 2024-4-17 20:20
entsel作为demo是优秀的行为,不需要考虑过滤出错,自己实现ssget有什么难度咩

主要是我不会

LUX1125

能只改文字的颜色吗

guosheyang

LUX1125 发表于 2024-4-17 23:52
能只改文字的颜色吗

其他项 也是修改属性项   如果修改不掉的话  可能也是要同时修改两个参数