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

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

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

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

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

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

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

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

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

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

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

谢谢！我改成这样就可以了！
(if (tblsearch "style" "Annotative");删除文字式样Annotative
    (vla-delete (vla-item (vla-get-textstyles (vla-get-activedocument
(vlax-get-acad-object))) "Annotative"))
)
页: [1]
查看完整版本: 删除文字样式是这样咋不行呢！