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

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

本帖最后由 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-4-18 07:41

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

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

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

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

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

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

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

主要是我不会

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

顶一下，让大佬来讨论

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

学习学习了！

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

少见的需求，学习了！

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

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

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

感谢大佬分享

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

能只改文字的颜色吗

账号		自动登录	找回密码
密码			注册

[经验] 修改尺寸标注文字的填充颜色

本帖子中包含更多资源