vba炸开cad-mtext字体

uilqing

Sub xmtext()
Dim tsel As AcadSelectionSet
Dim entry As AcadEntity
Dim tpic As Variant
Dim layerstr As String
On Error Resume Next
Set tsel = ThisDrawing.SelectionSets("topirolss")
If Err Then
Err.Clear
Set tsel = ThisDrawing.SelectionSets.Add("topirolss")
tsel.Clear
End If
tsel.Clear
'ThisDrawing.Utility.GetEntity entry, tpic
Err.Clear

layerstr = entry.Layer
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
   FilterType(0) = 0
   FilterData(0) = "Mtext"
   tsel.Select acSelectionSetAll, , , FilterType, FilterData
   tsel.Highlight (True)
   If tsel.Count = 0 Then
   tsel.Delete
   Else
   ThisDrawing.Utility.InitializeUserInput 1, "Move Copy Erase"
   ThisDrawing.SendCommand "x" & vbCr & "p" & vbCr & vbCr
   End If
   tsel.delete
End Sub

uilqing

另还想请教

 我用选择集得到如下的范围

而用天正电气的到得是如下

 

我知道是由于当前选择集不是自己定义的那个选择集

请教高手怎样设置当前选择集为自己定义的那个呢？？？？

PS122

学习了，谢谢