关于VBA的输出问题

guanggun

请问用VBA能不能实现将图的一些数据写入一个文件。如TEXT！然后还可以把该数据读入图中。想LISP一样！

guanggun

自己顶！

efan2000

2. Option Explicit'将数据写入文件Public Sub WriteToFile()
3.        Dim TextObj As AcadText
4.        Set TextObj = ThisDrawing.ModelSpace(0)
5.        Open "C:\ACADText.txt" For Output As #1
6.        Write #1, TextObj.TextString
7.        Close #1
8. End Sub'从文件读出数据Public Sub ReadFromFile()
9.        Dim TextObj As AcadText
10.        Set TextObj = ThisDrawing.ModelSpace(0)
11.        Dim s As String
12.        Open "C:\ACADText.txt" For Input As #1
13.        Input #1, s
14.        TextObj.TextString = s
15.        Close #1
16. End Sub

Option Explicit'将数据写入文件Public Sub WriteToFile()        Dim TextObj As AcadText        Set TextObj = ThisDrawing.ModelSpace(0)        Open "C:\ACADText.txt" For Output As #1        Write #1, TextObj.TextString        Close #1 End Sub'从文件读出数据Public Sub ReadFromFile()        Dim TextObj As AcadText        Set TextObj = ThisDrawing.ModelSpace(0)        Dim s As String        Open "C:\ACADText.txt" For Input As #1        Input #1, s        TextObj.TextString = s        Close #1 End Sub

guanggun

谢谢尹凡
我可以先不去啃ADL了

guanggun

我在CAD里面画了一条线。然后运行了下。提示类型不匹配！

efan2000

类型不对是因为我是用文字对象来测试，你先新建一张图纸，然后创建一个单行文字的实体，就可以运行了。

guanggun

哦。谢谢哈！

guanggun

请尹凡在指点我下。我现在卡壳了。一下午没什么 进展！


就是如果想把任意一个点的坐标输出到一个文件里面！

myfreemind

Option Explicit Sub WriteToFile()
Dim sset As AcadSelectionSet
Dim i As Integer
Dim txtout As String
Dim coord As Variant
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Set sset = ThisDrawing.SelectionSets.Add("tt")
sset.SelectOnScreen

For i = 0 To sset.Count - 1
coord = sset.Item(i).Coordinates
txtout = txtout & coord(0) & "," & coord(1) & "," & coord(2) & vbCrLf
Next Open "l:\ACADText.txt" For Output As #1
Print #1, txtout
Close #1
End Sub

guanggun

谢谢斑竹，因为忙别的事，好久没来了。但是好象没有输出啊。文本里面是空白啊！