VBA 炸开块出错

longxh28 · 发表于 2015-4-17 17:18:00

写了一段VBA 代码，在炸开某些块的时候总是出错，是怎么回事
Private Sub LT_XBlock_Click()
  Me.Hide
  ThisDrawing.Activate
  Dim filtertype(0) As Integer
  Dim filterdata(0) As Variant
  Dim explodedObjects As Variant
  filtertype(0) = 0
  filterdata(0) = "INSERT"
  Set sset = ThisDrawing.SelectionSets.Add("SSETS" & CStr(Now()))
  sset.SelectOnScreen filtertype, filterdata
  If sset.Count

出错图纸

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

zzyong00 · 发表于 2015-4-17 22:24:00

我测试一下你的图，没有发现问题呀，用你的代码也没问题、
只是，有几个变量没定义，是全局变量吗？

zzyong00 · 发表于 2015-4-17 22:32:00

出错时，最好给出哪行出错，并且，给出出错的代码和内容描述，这样好让大家帮你

longxh28 · 发表于 2015-4-27 13:54:00

程序弹出：
运行时错误 '-2145386493
输入无效

月牙湾 · 发表于 2015-4-29 11:05:00

You do not have to explode a block in order to manipulate its constituent entities. All block definitions have an Item method that allow you to manipulate the entities within the block without exploding the block definition itself.
块好像不能分解。
http://www.feizhimeng.com

zzyong00 · 发表于 2015-4-29 14:57:00

他炸的不是块吧，是块引用

longxh28 · 发表于 2015-5-6 11:53:00

谢谢,我再研究一下

zzyong00 · 发表于 2015-5-6 18:13:00

copy

Private Sub LT_XBlock_Click()
  Me.Hide
  ThisDrawing.Activate
  Dim filtertype(0) As Integer
  Dim filterdata(0) As Variant
  Dim explodedObjects As Variant
  Dim sset As AcadSelectionSet, filterent As AcadBlockReference
  filtertype(0) = 0
  filterdata(0) = "INSERT"
  Set sset = ThisDrawing.SelectionSets.Add("SSETS" & CStr(Now()))
  sset.SelectOnScreen filtertype, filterdata
  If sset.Count < 1 Then
    MsgBox "选取对象为空"
    Exit Sub
  End If
  For Each filterent In sset
    filterent.Explode
    filterent.Delete
  Next
End Sub