恼人的问题

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

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

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

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

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

设置过滤器就行啊，
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 · 发表于 2007-8-17 09:32:00

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

恼人的问题

发表回复

精选推荐