请高手指导vba的cad标题栏信息提取问题!!!

mistletoe

对普遍的标题栏为块文字为属性的方法，有些疑问请各位大虾指教

1.预设好标题栏块后，用户在输入信息时，除了用attedit命令，还有其他友好的方法么？
2.CAD自带的attext命令好像没用么，怎么看到别人都是自己写提取过程的？
3.现在哪里有比较好的提取控件阿，价格怎么样？

暂时就这么多，想起别的再来问

mccad

2. 
   
3. Dim ssetObj As AcadSelectionSet
   
4. Dim J As Integer
   
5.     Set ssetObj = ThisDrawing.SelectionSets.Add("BTLSET")
   
6.     Dim mode As Integer
   
7.     mode = acSelectionSetAll
   
8.     Dim FilterType As Variant, FilterData As Variant
   
9.     Dim FilType(0) As Integer
   
10.     Dim FilData(0) As Variant
    
11.     FilType(0) = 2
    
12.     FilData(0) = "B-BTL"
    
13.     FilterType = FilType
    
14.     FilterData = FilData
    
15.     ssetObj.Select mode, , , FilterType, FilterData
    
16.     Dim ssetCount As Integer
    
17.     Dim entObj As AcadBlockReference
    
18.     If ssetObj.Count = 0 Then
    
19.         DimTolMat = False
    
20.     Else
    
21.         Set entObj = ssetObj.Item(0)
    
22.         Dim attvars As Variant
    
23.         Dim clString As String
    
24.         attvars = entObj.GetAttributes
    
25.         For J = 0 To UBound(attvars)
    
26.             If StrComp(attvars(J).TagString, "clbj", 1) = 0 Then
    
27.                 clString = attvars(J).TextString
    
28.                 Exit For
    
29.             End If
    
30.         Next
    
31.      End If
    

<br /> Dim ssetObj As AcadSelectionSet<br /> Dim J As Integer<br />     Set ssetObj = ThisDrawing.SelectionSets.Add("BTLSET")<br />     Dim mode As Integer<br />     mode = acSelectionSetAll<br />     Dim FilterType As Variant, FilterData As Variant<br />     Dim FilType(0) As Integer<br />     Dim FilData(0) As Variant<br />     FilType(0) = 2<br />     FilData(0) = "B-BTL"<br />     FilterType = FilType<br />     FilterData = FilData<br />     ssetObj.Select mode, , , FilterType, FilterData<br />     Dim ssetCount As Integer<br />     Dim entObj As AcadBlockReference<br />     If ssetObj.Count = 0 Then<br />         DimTolMat = False<br />     Else<br />         Set entObj = ssetObj.Item(0)<br />         Dim attvars As Variant<br />         Dim clString As String<br />         attvars = entObj.GetAttributes<br />         For J = 0 To UBound(attvars)<br />             If StrComp(attvars(J).TagString, "clbj", 1) = 0 Then<br />                 clString = attvars(J).TextString<br />                 Exit For<br />             End If<br />         Next<br />      End If<br />