VBA 炸开块出错

longxh28

写了一段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 < 1 Then
    MsgBox "选取对象为空"
    Exit Sub
  End If
  For Each filterent In sset
    filterent.Explode
    filterent.Delete
  Next
End Sub

zzyong00

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

zzyong00

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

longxh28

zzyong00 发表于 2015-4-17 22:32
出错时，最好给出哪行出错，并且，给出出错的代码和内容描述，这样好让大家帮你

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

月牙湾

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

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

longxh28

月牙湾 发表于 2015-4-29 11:05
You do not have to explode a block in order to manipulate its constituent entities. All block defini ...

谢谢,我再研究一下

zzyong00

1. Private Sub LT_XBlock_Click()
   
2.   Me.Hide
   
3.   ThisDrawing.Activate
   
4.   Dim filtertype(0) As Integer
   
5.   Dim filterdata(0) As Variant
   
6.   Dim explodedObjects As Variant
   
7.   Dim sset As AcadSelectionSet, filterent As AcadBlockReference
   
8.   filtertype(0) = 0
   
9.   filterdata(0) = "INSERT"
   
10.   Set sset = ThisDrawing.SelectionSets.Add("SSETS" & CStr(Now()))
    
11.   sset.SelectOnScreen filtertype, filterdata
    
12.   If sset.Count < 1 Then
    
13.     MsgBox "选取对象为空"
    
14.     Exit Sub
    
15.   End If
    
16.   For Each filterent In sset
    
17.     filterent.Explode
    
18.     filterent.Delete
    
19.   Next
    
20. End Sub
    

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

你的图，你的代码，没问题，只是少变量定义,我在1楼就说过

longxh28

月牙湾 发表于 2015-4-29 11:05
You do not have to explode a block in order to manipulate its constituent entities. All block defini ...

您好，这段话的意思是：“你不需要为了调整一个块的组成实体而炸开它，所有的块定义都有一则方法允许你块内调整实体，而不用炸开块参照自身”吗？

longxh28

zzyong00 发表于 2015-5-6 18:13
你的图，你的代码，没问题，只是少变量定义,我在1楼就说过

你好，谢谢你的回答，我现在发现出问题在于这个块的 XYZ插入比例不一样时出错，如果忽略错误，炸开块就没东西了