[求助]：如何将块炸成基本图元，并获得炸开后的图元？

zkycds

如何用VBA将块炸成基本图元，并获得炸开后的图元？

huangyanshi

我懂，联系我。

lijiao

最初由 zkycds 发布
[B]如何用VBA将块炸成基本图元，并获得炸开后的图元？ [/B]

严格地讲，不是块，而是块的引用。
块的引用：RetVal = object.Explode

ganjue1979

最初由 lijiao 发布
[B]
严格地讲，不是块，而是块的引用。
块的引用：RetVal = object.Explode [/B]

补充些：
对于不同复合对象的分解，有不同的结果产生。参照 AutoCAD 命令参考 中的 EXPLODE 命令主题以得到有关可分解对象及其结果详细列表。

不需要通过分解一个块来操纵其块内实体。所有的块定义都有了 Item 方法，它允许用户操纵块内部实体而不需分解块定义本身。

zkycds

谢谢各位！块的打散我已经会了，我本来想的是炸开CAD的标注，但是试验后发现标注不支持块炸开的Explode函数，在VBA中用什么函数炸开标注？

雪山飞狐(lzh)

和炸开MText相似，自己改改吧
Private Function MToS(MText As Variant) As Variant
'炸开MText并返回一个Text数组
    Dim i As Integer
    Dim ss As AcadSelectionSet
    Dim pTexts As New Collection
    ThisDrawing.ActiveSelectionSet.Clear
    ThisDrawing.SendCommand "Explode" & vbCr & "(handent " & Chr(34) _
                            & MText.Handle & Chr(34) & ")" & vbCr & vbCr
    Set ss = ThisDrawing.ActiveSelectionSet
    ReDim pTexts(ss.Count - 1) As AcadObject
    For i = 0 To ss.Count - 1
        If UCase(ss(i).ObjectName) = "ACDBTEXT" Then pTexts.Add ss(i)
    Next i
    MToS = pTexts
End Function

zkycds

最初由 lzh741206 发布
[B]和炸开MText相似，自己改改吧
Private Function MToS(MText As Variant) As Variant
'炸开MText并返回一个Text数组
    Dim i As Integer
    Dim ss As AcadSelectionSet
    Dim pTexts As New Collection
... [/B]

谢谢！我已经做出了，思路和你的一样，都是用SendCommand。

baby1

块炸开后的返回值是何类型