房屋结构注记与楼层注记合并

'该程序针对JMD的房屋结构注记，把相邻的楼层注记合并在一起。
'第一步：选择所有要处理的对象(判断标准是：图层：JMD/类型：TEXT/属性值：字母)
'第二步：遍历所选集，每个对象基点扩展进行文本选择（过滤，若存在则把所选的文本值加到此对象属性中，并删除原对象；无则不动）
Sub TextUnit()
Dim sel1 As AcadSelectionSet
Dim sel2 As AcadSelectionSet
Dim FilterType(0 To 7) As Integer
Dim FilterData(0 To 7) As Variant
Dim FilterType1(0 To 5) As Integer
Dim FilterData1(0 To 5) As Variant
Dim enti As AcadEntity
Dim enti1 As AcadEntity
Dim objtext As AcadText
Dim objtext1 As AcadText
Dim pnt As Variant
Dim p1(0 To 1) As Double
Dim p2(0 To 1) As Double
Dim p3(0 To 1) As Double
Dim p4(0 To 1) As Double
Dim pointsArray(0 To 11) As Double
Dim mode As Integer

FilterType(0) = 8
FilterData(0) = "JMD"
FilterType(1) = 0
FilterData(1) = "TEXT"
FilterType(2) = -4
FilterData(2) = "<OR"
FilterType(3) = 1
FilterData(3) = "@"