guosheyang 发表于 2024-4-16 13:19:03

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

本帖最后由 guosheyang 于 2024-4-17 08:57 编辑

群里面讨论到了 标注文字的填充色任意修改的问题 ，经测试发现 不用修改文字样式也可以实现   只不过不是单独修改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 发表于 2024-5-14 20:41:24

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


Mr0sky 发表于 2024-5-14 17:04:10

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

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

guosheyang 发表于 2024-5-14 20:37:36

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

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

atone 发表于 2024-4-16 18:11:06

顶一下，让大佬来讨论

magicheno 发表于 2024-4-17 00:16:21

学习学习了！

jkop 发表于 2024-4-17 09:27:11

少见的需求，学习了！

lzspain 发表于 2024-4-17 13:15:06

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

你有种再说一遍 发表于 2024-4-17 20:20:45

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

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

菜鸟初来乍到 发表于 2024-4-17 21:32:12

感谢大佬分享

lzspain 发表于 2024-4-17 22:22:12

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

主要是我不会:'(

LUX1125 发表于 2024-4-17 23:52:12

能只改文字的颜色吗

guosheyang 发表于 2024-4-18 07:41:35

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

其他项 也是修改属性项   如果修改不掉的话可能也是要同时修改两个参数
页: [1] 2 3
查看完整版本: 修改尺寸标注文字的填充颜色