[求助]：如何用VBA将标注完全打散？

zkycds

我需要用ESRI的MapObject显示DWG图形，MapObject不能正常显示CAD的标注。我需要将CAD的标注完全打散（标注中的块和多行文本等也要打散），打散后的文本放在一个图层，其它部分放在另一个图层。请问该如何作？

块用Explode函数，但标注没有这个函数，在VBA中用什么函数炸开标注？

雪山飞狐(lzh)

Public Property Get DimText(objDim As AcadObject) As Variant
    Dim i As Integer
    Dim pDimName As String
    Dim pBlock As AcadBlock
    Dim pVlax As New VLAX
    pDimName = pVlax.EvalLispExpression("(cdr (assoc 2 (entget (handent " & ToStr(objDim.Handle) & "))))")
    Set pVlax = Nothing
    Set pBlock = ThisDrawing.Blocks(pDimName)
    For i = 0 To pBlock.Count + 3
        Debug.Print pBlock(i).ObjectName
        If TypeOf pBlock(i) Is AcadMText Then
            DimText = pBlock(i).TextString
            Exit Property
        End If
    Next i

End Property

zkycds

谢谢你的帮助，但是我在下面这句运行不了：
Dim pVlax As New VLAX
提示错误： 用户定义类型未定义。
我用的版本是CAD2000。