如何批量删除文字

gzjt032 · 发表于 2009-7-23 14:41:00

图中有一些文字需要删除,手工删除慢.能不能批量删呢?请高手邦邦忙,编一个小程序用用.谢谢.我不懂这个LSP

hawnn · 发表于 2009-7-25 23:36:00

(Setq ssdim (ssget '((0 . "*TEXT")))))

(sssetfirst nil ssdim)

这是我选文字的代码

拿去用吧,

自己改也行,例如你要选择内容为"右路基宽度=3.250"的文字

把(0 . "*TEXT")这个表改成 (1 . "右路基宽度=3.250")

应该就是你想要的东西了

wj_job · 发表于 2009-7-23 20:04:00

很简单啊，用VB搞定就行。循环遍历模型空间
Sub Main()
    Dim subEnt As AcadEntity
    For Each subEnt In ThisDrawing.ModelSpace
        If (subEnt.ObjectName = "AcDbText") Then
            subEnt.Delete
        End If
    Next
End Sub

就运行这个就能将图纸内的单行文字全部删除。

ljttjl · 发表于 2009-7-23 22:44:00

filter 过滤器autocad命令就可以轻松实现了。

gzjt032 · 发表于 2009-7-24 14:22:00

谢谢啦,帮我的朋友.我试用一下.再次感谢.向你学习,向你致敬!

gzjt032 · 发表于 2009-7-24 14:40:00

全部删除文字也没对,要有选择删除.麻烦高手朋友再邦我理一下.谢谢哦!

gzjt032 · 发表于 2009-7-24 14:45:00

filter 这个命令不知怎么用?能说详细点吗?

ljttjl · 发表于 2009-7-24 21:06:00

可查看filter命令帮助文件会更清楚些。

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

如何批量删除文字

本帖子中包含更多资源