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

如何批量删除文字

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

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

<p>(Setq ssdim (ssget '((0 . "*TEXT")))))</p><p>(sssetfirst nil ssdim)</p><p>这是我选文字的代码</p><p>拿去用吧,</p><p>自己改也行,例如你要选择内容为"右路基宽度=3.250"的文字</p><p>把(0 . "*TEXT")这个表改成 (1 . "右路基宽度=3.250")</p><p>应该就是你想要的东西了</p>

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

很简单啊，用VB搞定就行。循环遍历模型空间<br/>Sub Main()<br/>    Dim subEnt As AcadEntity<br/>    For Each subEnt In ThisDrawing.ModelSpace<br/>        If (subEnt.ObjectName = "AcDbText") Then<br/>            subEnt.Delete<br/>        End If<br/>    Next<br/>End Sub<br/><br/>就运行这个就能将图纸内的单行文字全部删除。<br/>

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

<p>可查看filter命令帮助文件会更清楚些。</p>
页: [1]
查看完整版本: 如何批量删除文字