删除文字样式是这样咋不行呢！

燃烧 · 发表于 2013-6-30 14:11

请问删除文字样式用下面的代码不行，有人知道吗？请帮忙指导，谢谢！

(vla-delete (vla-item (vla-get-textstyle (vla-get-activedocument
(vlax-get-acad-object))) "Annotative"))

自贡黄明儒 · 发表于 2013-6-30 14:16

看起来好像行，关键是有名叫Annotative的文字样式？

nzl1116 · 发表于 2013-6-30 23:53

vla-get-textstyle 改成 vla-get-textstyles

ZZXXQQ · 发表于 2013-7-1 08:05

首先要确认图中没有文字使用这个样式。

燃烧 · 发表于 2013-7-1 21:10

谢谢！我改成这样就可以了！
(if (tblsearch "style" "Annotative");删除文字式样Annotative
(vla-delete (vla-item (vla-get-textstyles (vla-get-activedocument
(vlax-get-acad-object))) "Annotative"))
)

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

[已解答] 删除文字样式是这样咋不行呢！