huangbinlq 发表于 2007-8-12 22:32:00

恼人的问题

<p>大家好!我是初学autocad vba的,请教一个烦人的问题:</p><p>假设我的dwg文件中已经有一个名为"椅子"的图块,而且这个图块有若干个块对象,如何用vba一次性地将这些图块对象全部</p><p>删除,我想尽了办法都没能实现,请这里的高人指教!谢谢</p>

zhang007 发表于 2007-8-15 22:40:00

不用VBA,用快速选择全部选定这种图块后一次性删除就OK.

英雄无敌 发表于 2007-8-16 09:25:00

<p>设置过滤器就行啊，</p><p>Sub selectblk()<br/>On Error Resume Next<br/>Dim f0() As Integer, f1() As Variant<br/>Dim ss As AcadSelectionSet<br/>ReDim f0(0)<br/>ReDim f1(0)<br/>f0(0) = 0<br/>f1(0) = "insert"<br/>f0(0) = 2<br/>f1(0) = "cg20a" '块名<br/>Set ss = ThisDrawing.SelectionSets.Add("ccc")<br/>If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ss = ThisDrawing.SelectionSets.Item("ccc")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ss.Clear<br/>End If<br/>&nbsp;ss.Select acSelectionSetAll, , , f0, f1<br/>&nbsp;ss.Erase<br/>End Sub</p><p></p>

huangbinlq 发表于 2007-8-17 09:32:00

谢谢了,只是我想用vc的方式来操作autocad,用了Select方法怎么都过滤不了
页: [1]
查看完整版本: 恼人的问题