乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 63|回复: 5

[求助]下列删除文字样式的方法有什么问题

[复制链接]

36

主题

148

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
293
发表于 2006-10-18 07:54:00 | 显示全部楼层 |阅读模式
我想在VBA中删除一个指定的文字样式,可我的代码怎么也删除不了,每次运行都出错。
Dim objCount As Integer
Dim i As Integer
objCount = ThisDrawing.TextStyles.Count
Dim textObj As AcadTextStyle
For i = 0 To objCount - 1
Set textObj = ThisDrawing.TextStyles.Item(i)
If textObj.Name = "aaa" Then ThisDrawing.TextStyles.Item(i).Delete
Next

xy15kx02kjb.JPG

xy15kx02kjb.JPG

回复

使用道具 举报

5

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
59
发表于 2006-10-19 08:53:00 | 显示全部楼层
错误信息已经写得很清楚了,当前图档中有文字使用了该文字样式,所以删不了

回复

使用道具 举报

36

主题

148

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
293
发表于 2006-10-24 09:27:00 | 显示全部楼层
不是的,我对图中的所有文字都进行了检查,没有文字使用这处样式。这可以确定。

回复

使用道具 举报

16

主题

93

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
157
发表于 2006-10-28 10:59:00 | 显示全部楼层
正确的代码如下:
For Each txtStyle In ThisDrawing.TextStyles
        If txtStyle.Name = "aaa" Then
            txtStyle.Delete
        End If
Next
回复

使用道具 举报

36

主题

148

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
293
发表于 2006-10-30 08:21:00 | 显示全部楼层
楼上的代码可以通过,谢谢了!
还有一个问题,我处理的一些外来图纸中,有一些图内有这样的文字样式,其样式名为空,即""。我用下列代码
For Each txtStyle In ThisDrawing.TextStyles
        If txtStyle.Name = "" Then
            txtStyle.Delete
        End If
Next
进行删除时,出错。出错信息和前面一样。

回复

使用道具 举报

16

主题

93

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
157
发表于 2006-11-4 13:46:00 | 显示全部楼层
用下列代码试一下
For Each txtStyle In ThisDrawing.TextStyles
        If Trim(UCase(txtStyle.Name)) = ""  Then
            txtStyle.Delete
        End If
Next
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 21:28 , Processed in 0.700383 second(s), 68 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表