VLISP修改块属性文字样式的示例代码

Lisphk · 发表于 2016-9-2 12:32:55

您需要登录才可以下载或查看，没有账号？立即注册

×

[it618postdisplay>0]

[/it618postdisplay]

(defun c:demo (/ atts i obj ss)
(or adoc (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for blks (vla-get-blocks adoc) ;;修改块定义内的AcDbAttributeDefinition的文字样式
(if (= :vlax-false (vla-get-isxref blks))
(vlax-for blk blks
(if (= (vla-get-objectname blk) "AcDbAttributeDefinition")
(vla-put-stylename blk "MyStyleName")
)
)
)
)
(if (setq ss (ssget "X" '((0 . "INSERT") (66 . 1)))) ;;更新出入到图中的所有块的ATTRIBUTE的文字样式
(repeat (setq i (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
atts (vlax-invoke obj 'getattributes)
)
(foreach att atts
(vla-put-stylename att "MyStyleName")
)
)
)
(vla-regen adoc acallviewports)
(princ)
)

yoyoho · 发表于 2016-9-2 15:11:32

感谢分享学习一下程序!!!!!

HLCAD · 发表于 2016-9-2 17:20:18

谢谢分享！！！

zhu320211 · 发表于 2016-9-12 09:58:37

看看是不是我要的

longer1000 · 发表于 2016-9-12 10:52:51

感谢分享学习一下程序!!!!!

pezyl · 发表于 2017-6-22 09:50:35

修改属性样式？

winabcd · 发表于 2017-6-22 09:55:28

看看隐藏了些什么

cube707 · 发表于 2018-1-19 22:42:14

正需要这个看下楼主是咋解决的

kqqt6236 · 发表于 2018-1-20 00:03:23

回复学习。

fl502 · 发表于 2018-1-22 13:33:25

感谢分享学习一下程序!!!!!

hao_12506 · 发表于 2019-11-7 20:40:49

太好用了，谢谢分享！

代敬龙 · 发表于 2020-2-5 22:32:36

谢谢，学习一下，

liuxinsony · 发表于 2020-2-15 18:33:16

感谢分享程序!!!!!

lhtfhc · 发表于 2020-2-29 16:49:55

学习学习，谢谢！！！

lhtfhc · 发表于 2020-2-29 16:51:28

感谢分享，学习一下!!!

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

[每日一码] VLISP修改块属性文字样式的示例代码