恼人的问题

huangbinlq

大家好!我是初学AutoCAD vba的,请教一个烦人的问题:

假设我的dwg文件中已经有一个名为"椅子"的图块,而且这个图块有若干个块对象,如何用vba一次性地将这些图块对象全部

删除,我想尽了办法都没能实现,请这里的高人指教!谢谢

zhang007

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

英雄无敌

设置过滤器就行啊，

Sub selectblk()
On Error Resume Next
Dim f0() As Integer, f1() As Variant
Dim ss As AcadSelectionSet
ReDim f0(0)
ReDim f1(0)
f0(0) = 0
f1(0) = "insert"
f0(0) = 2
f1(0) = "cg20a" '块名
Set ss = ThisDrawing.SelectionSets.Add("ccc")
If Err Then
        Err.Clear
        Set ss = ThisDrawing.SelectionSets.Item("ccc")
        ss.Clear
End If
 ss.Select acSelectionSetAll, , , f0, f1
 ss.Erase
End Sub

huangbinlq

谢谢了,只是我想用vc的方式来操作autocad,用了Select方法怎么都过滤不了