如何删除图块对象

huangbinlq

假设dwg文件中有很多的图块对象, 图块的名称是" 椅子",请问如何用vba将其全部删除,谢谢!

gyl

先删除块参考，再删除块定义。

huangbinlq

请具体点好吗,我会删除块对象,但不知如何删除块参照,请作个示例好吗

xxxtttxxx

删除块对象后，块参照对象难道还存在于modelspace中吗？

先在modelspace里面选择，用select acselectionall,,, filtertype ，filterdata

其中filtertype=2       filterdata=blockname

for each entity in sset

entity.delete

next

请高手指正

gyl

Sub DeleteBlock()
    Dim ObjBlockRef As AcadBlockReference
    Dim FilterType(0) As Integer, FilterData(0) As Variant
    Dim sset As AcadSelectionSet
   
    '选中名为"椅子"的块参照并删除
    Set sset = ThisDrawing.SelectionSets.Add("test")
    FilterType(0) = 2
    FilterData(0) = "椅子"
    sset.Select acSelectionSetAll, , , FilterType, FilterData
    For Each ObjBlockRef In sset
        ObjBlockRef.Delete
    Next
    sset.Delete
   
    '删除块定义
    ThisDrawing.Blocks.Item("椅子").Delete
End Sub

huangbinlq

不对啊,始终是选择了所有对象啊,没起到过滤的作用啊朋友们

Sub DeleteBlock()
    Dim ObjBlockRef As AcadBlockReference
    Dim FilterType(0) As Integer, FilterData(0) As Variant
    Dim sset As AcadSelectionSet
   
    '选中名为"椅子"的块参照并删除
    Set sset = ThisDrawing.SelectionSets.Add("test")
    FilterType(0) = 2
    FilterData(0) = "椅子"
    sset.Select acSelectionSetAll, , , FilterType, FilterData
    For Each ObjBlockRef In sset
        ObjBlockRef.Delete
    Next
    sset.Delete
   
    '删除块定义
    ThisDrawing.Blocks.Item("椅子").Delete
End Sub

不对啊,始终是选择了所有对象啊,没起到过滤的作用啊朋友们

gyl

在我的机器上试验过，只删除了名为“椅子”的块参照及块定义。

你可以调试一下，检查 sset.Select acSelectionSetAll, , , FilterType, FilterData 执行之后sset中有哪些图元。

实在不行，把过滤器搞复杂一些，多设几个条件，比如增加图层之类。

没有图形文件，我也没有办法帮你更多的忙。

huangbinlq

呵呵,是我错了,其实楼上朋友的代码是完全正确的,我刚复制到acad中去运行了的;只是我不会vba,其实我正在用vc自动化autocad! 选择集的过滤vba代码是sset.Select acSelectionSetAll, , , FilterType, FilterData   翻译成vc就是sel->Select(acSelectionSetAll,fitertype,fiterdata);同样的函数,同样的参数,vba的完全成功,vc的这句就只能全部选择对象而没得到过滤效果;我已经试过无数次了都是这样,好晕啊!哪位朋友能帮我啊?!

guoxianlun

高手们：使用了剪贴板板粘贴块后，指定的块定义删除不了，有没有解决办法？

windandr

遍历空间所有图形

IF图形是块对象

  IF块对象的名字是"椅子"

     删除块对象

  END IF

END IF