【求教】块参照炸开后对象移位问题

chensj

我vba写了一段程序，实现【在模型界面中框选块参照，然后将选择的所有块参照循环炸开】，

但是发现了一个奇怪的问题：炸开后的所有对象，都一起移开了一个位移。但是如果

手动在模型界面中用explode命令炸开同一个块参照，则炸开对象没有移位！

不知道是什么原因，烦请各位大侠指点！

liuzpzp007

我也是这个问题，没人解决啊

尘缘一生

这个问题困惑很久了，顶起来。。。。。。。

xinxirong

我也说一句vla-explode，跟explode命令是不同的

poly168

Private Sub exploredblock()
    Dim myss As AcadSelectionSet, gpcode(0) As Integer, datavalue(0) As Variant, groupCode As Variant, dataCode As Variant, mm As AcadBlockReference
    On Error Resume Next
    For Each myss In ThisDrawing.SelectionSets
        myss.Delete
    Next
    Set myss = ThisDrawing.SelectionSets.Add("ms1")
    gpcode(0) = 0: datavalue(0) = "insert"
    groupCode = gpcode: dataCode = datavalue
    Call myss.SelectOnScreen(groupCode, dataCode)
    For Each mm In myss
        mm.Explode
    Next mm
    myss.Delete
End Sub

经验证，不存在炸开后的块移位的问题。