chensj 发表于 2007-9-15 09:16:00

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

<p>我vba写了一段程序，实现【在模型界面中框选块参照，然后将选择的所有块参照循环炸开】，</p><p>但是发现了一个奇怪的问题：炸开后的所有对象，都一起移开了一个位移。但是如果</p><p>手动在模型界面中用explode命令炸开同一个块参照，则炸开对象没有移位！</p><p>不知道是什么原因，烦请各位大侠指点！</p>

liuzpzp007 发表于 2012-7-12 16:14:02

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

尘缘一生 发表于 2018-4-30 10:09:29

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

xinxirong 发表于 2018-4-30 14:01:16

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

poly168 发表于 2018-9-26 12:53:47

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

经验证，不存在炸开后的块移位的问题。
页: [1]
查看完整版本: 【求教】块参照炸开后对象移位问题