[原创]实体数据存到txt文件一例。

兰州人

现在多数人是将实体数据存到mdb或xls中。
mdb 文件太大，字段需要定义。xls文件受到65535行的限制。txt文件比较少。下面一例就是将实体数据存到 txt中。

2. Sub ll()
3.   Dim LineData As AcadLine, ArcData As AcadArc
4.   Close #1
5.   Open "D:\ls.txt" For Output As #1
6.   
7.   Write #1, "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9", "m10", "m11", "m12"
8.   
9.   Dim Ent As AcadEntity
10.   
11.   For Each Ent In ThisDrawing.ModelSpace
12.     m1 = Ent.ObjectName
13.     m2 = Ent.ObjectID
14.     Select Case Ent.ObjectName
15.       Case "AcDbLine"
16.         Set LineData = Ent
17.         With LineData
18.           m3 = Round(.StartPoint(0), 5)
19.           m4 = Round(.StartPoint(1), 5)
20.           m5 = Round(.StartPoint(2), 5)
21.           m6 = Round(.EndPoint(0), 5)
22.           m7 = Round(.EndPoint(1), 5)
23.           m8 = Round(.EndPoint(2), 5)
24.          
25.         End With
26.     End Select
27.     Write #1, m1, m2, m3, m4, m6, m7, m8
28.    
29.   Next Ent
30.   Ent.GetBoundingBox
31.   Close #1
32. End Sub

Sub ll()   Dim LineData As AcadLine, ArcData As AcadArc   Close #1   Open "D:\ls.txt" For Output As #1      Write #1, "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9", "m10", "m11", "m12"      Dim Ent As AcadEntity      For Each Ent In ThisDrawing.ModelSpace     m1 = Ent.ObjectName     m2 = Ent.ObjectID     Select Case Ent.ObjectName       Case "AcDbLine"         Set LineData = Ent         With LineData           m3 = Round(.StartPoint(0), 5)           m4 = Round(.StartPoint(1), 5)           m5 = Round(.StartPoint(2), 5)           m6 = Round(.EndPoint(0), 5)           m7 = Round(.EndPoint(1), 5)           m8 = Round(.EndPoint(2), 5)                   End With     End Select     Write #1, m1, m2, m3, m4, m6, m7, m8       Next Ent   Ent.GetBoundingBox   Close #1 End Sub

在AutoCAD的VBA中照样可以用SQL语句，相当方便。