[求助]怎样利用SelectOnScreen方法的过滤机制

HQ_2003

我用本站提供的BuildFilter函数建立如下选择集程序——程序要求选择"text","mtet"和标注文本，并把选择的对象存在一变量中。
但是程序无法运行，请教各位如何修改?

mccad

2. Public SSetObj As AcadSelectionSet
   
3. Public EntObj As AcadEntity
   
4. Private Sub www()
   
5.     Dim fType As Variant
   
6.     Dim fData As Variant
   
7.       
   
8.     On Error Resume Next
   
9.     Set SSetObj = ThisDrawing.SelectionSets("test")
   
10.     If Err.Number <> 0 Then
    
11.         Err.Clear
    
12.         Set SSetObj = ThisDrawing.SelectionSets.Add("test")
    
13.     End If
    
14.     SSetObj.Clear
    
15.     BuildFilter fType, fData, [b]-4, "<or", [/b]0, "text", 0, "mtext",  _
    
16.             0, "AcDbAlignedDimension", 0, "AcDbRotatedDimension",[b] -4, "or>"[/b]
    
17.     SSetObj.SelectOnScreen fType, fData
    
18.     Dim bl
    
19.     bl = EntObj.TextString
    
20.    
    
21. End Sub
    
22. 
    
23. Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())
    
24.     Dim fType() As Integer, fData()
    
25.     Dim index As Long, i As Long
    
26.      
    
27.     index = LBound(gCodes) - 1
    
28.          
    
29.     For i = LBound(gCodes) To UBound(gCodes) Step 2
    
30.         index = index + 1
    
31.         ReDim Preserve fType(0 To index)
    
32.         ReDim Preserve fData(0 To index)
    
33.         fType(index) = CInt(gCodes(i))
    
34.         fData(index) = gCodes(i + 1)
    
35.     Next
    
36.     typeArray = fType: dataArray = fData
    
37. End Sub

Public SSetObj As AcadSelectionSet<br /> Public EntObj As AcadEntity<br /> Private Sub www()<br />     Dim fType As Variant<br />     Dim fData As Variant<br />        <br />     On Error Resume Next<br />     Set SSetObj = ThisDrawing.SelectionSets("test")<br />     If Err.Number <> 0 Then<br />         Err.Clear<br />         Set SSetObj = ThisDrawing.SelectionSets.Add("test")<br />     End If<br />     SSetObj.Clear<br />     BuildFilter fType, fData, [b]-4, "<or", [/b]0, "text", 0, "mtext",  _<br />             0, "AcDbAlignedDimension", 0, "AcDbRotatedDimension",[b] -4, "or>"[/b]<br />     SSetObj.SelectOnScreen fType, fData<br />     Dim bl<br />     bl = EntObj.TextString<br />     <br /> End Sub<br /> <br /> Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())<br />     Dim fType() As Integer, fData()<br />     Dim index As Long, i As Long<br />      <br />     index = LBound(gCodes) - 1<br />          <br />     For i = LBound(gCodes) To UBound(gCodes) Step 2<br />         index = index + 1<br />         ReDim Preserve fType(0 To index)<br />         ReDim Preserve fData(0 To index)<br />         fType(index) = CInt(gCodes(i))<br />         fData(index) = gCodes(i + 1)<br />     Next<br />     typeArray = fType: dataArray = fData<br /> End Sub

HQ_2003

BuildFilter fType, fData, -4, "<or", 0, "text", 0, "mtext",  _
            0, "AcDbAlignedDimension", 0, "AcDbRotatedDimension", -4, "or>"
一句应该改为这样吧BuildFilter fType, fData, -4, "<or", 0, "text", 0, "mtext", 0, "dimension", -4, "or>"
但是如何提取标注内容呢？用“ EntObj.TextOverride“为什么不可以

mccad

不好意思，我没有注意到。
至于TextOverride，如果标注文字未被修改过，则该属性为NULL(空字符串)。
如果你需要标注的默认值，可使用Measurement 属性来得到。
[WEB]http://www.mjtd.com/object/acad2004/idh_measurement.htm[/WEB]

HQ_2003

为什么我把标注尺寸分解一次之后，就不可以用TextOverride或Measurement属性提取标注文本了。
请问？怎样才能提取分解一次之后标注文本？

mccad

标注尺寸分解后，文字部分就成为了MTEXT对象了，你可以参照该类型对象的属性来获取文本内容。

HQ_2003

对不起，这我已经能做到了，用mtext对象的textstring属性即可。我把问题贴错了。
我是问：用"100, "BlockReference"过滤方法选择“块文字“时用“XRefDatabase“属性为什么不能获得文本内容。
该属性的帮助内容说“该属性仅仅在块的IsXRef 属性等于TRUE时才有效“
请问“IsXRef” 属性什么情况下等于true

liujiping

BuildFilter fType, fData, -4, "<or", 0, "text", 0, "mtext",  _
            0, "AcDbAlignedDimension", 0, "AcDbRotatedDimension", -4, "or>"
中"AcDbAlignedDimension", 0, "AcDbRotatedDimension" 的判断条件好象无效？