爆炸迪姆斯

Sub ExplodeDim()
Dim sstext As AcadSelectionSet
Dim blk As AcadBlockReference
Dim oEnt As AcadEntity
Dim FilterType(1) As Integer
Dim FilterData(1) As Variant
    On Error Resume Next
    ThisDrawing.SelectionSets.Item("XDim").Delete
    Set sstext = ThisDrawing.SelectionSets.Add("XDim")
    FilterType(0) = 67
    FilterData(0) = 0
    FilterType(1) = 0
    FilterData(1) = "Dimension"
    sstext.Select acSelectionSetAll, , , FilterType, FilterData
    
    For Each oEnt In sstext
        If TypeOf oEnt Is AcadDimAligned Then
            If oEnt.TextColor = 5 And oEnt.TextOverride  " " And oEnt.TextOverride  "" Then
                    'Explode Dim here
            End If
        End If
    Next
End Sub

Public Sub Main()
    Dim objDim As AcadDimension
    Dim varPickPoint As Variant
    Dim PickPoint As String
    
    ThisDrawing.Utility.GetEntity objDim, varPickPoint, "Pick a dimension to explode..."
    PickPoint = varPickPoint(0) & "," & varPickPoint(1) & "," & varPickPoint(2)
    
    ThisDrawing.SendCommand "EXPLODE " & PickPoint & vbCrLf
End Sub