用Recordset管理实体数据

兰州人

2. Sub gggg()
3. Dim Ent As AcadEntity, tt As AcadText
4.           Dim adoRecordset    As ADODB.Recordset
5.           Set adoRecordset = New ADODB.Recordset
6.           aa = Array("EntityText", "X", "Y", "Z"): bb = Array(adBSTR, adDouble, adDouble, adDouble)
7.   With adoRecordset
8.           For i = 0 To 3                '为Recordset2个字段,即为  DataGrid  添加2列
9.             .Fields.Append aa(i), adVariant, , adFldMayBeNull
10.             .Fields.Item(i).Type = bb(i)
11.           Next i
12.           .Open
13.     For Each Ent In ThisDrawing.ModelSpace
14.        Select Case Ent.ObjectName
15.          Case "AcDbText"
16.            Set tt = Ent
17.              If tt.Layer = "零件表格文本" Then
18.                .AddNew
19.                .Fields(1).Value = Round(tt.InsertionPoint(0), 2)
20.                .Fields(2) = Round(tt.InsertionPoint(1), 2)
21.                .Fields(3) = 0
22.                .Fields(0) = tt.TextString
23.              End If
24.         End Select
25.      Next Ent
26.      .Sort = y
27.      .MoveFirst
28.      For ii = 0 To .RecordCount - 1
29.        Debug.Print .Fields(0).Value, .Fields(1).Value; .Fields(2).Value
30.        .MoveNext
31.      Next ii
32.   End With
33. End Sub

Sub gggg() Dim Ent As AcadEntity, tt As AcadText           Dim adoRecordset    As ADODB.Recordset           Set adoRecordset = New ADODB.Recordset           aa = Array("EntityText", "X", "Y", "Z"): bb = Array(adBSTR, adDouble, adDouble, adDouble)   With adoRecordset           For i = 0 To 3                '为Recordset2个字段,即为  DataGrid  添加2列             .Fields.Append aa(i), adVariant, , adFldMayBeNull             .Fields.Item(i).Type = bb(i)           Next i           .Open     For Each Ent In ThisDrawing.ModelSpace        Select Case Ent.ObjectName          Case "AcDbText"            Set tt = Ent              If tt.Layer = "零件表格文本" Then                .AddNew                .Fields(1).Value = Round(tt.InsertionPoint(0), 2)                .Fields(2) = Round(tt.InsertionPoint(1), 2)                .Fields(3) = 0                .Fields(0) = tt.TextString              End If         End Select      Next Ent      .Sort = y      .MoveFirst      For ii = 0 To .RecordCount - 1        Debug.Print .Fields(0).Value, .Fields(1).Value; .Fields(2).Value        .MoveNext      Next ii   End With End Sub

robbin840311

赞一个