请问如何在图形窗口之间切换啊

daydayup

小弟我在当前图形窗口获得了一些点的数据，然后创建了一个新的窗口用这些数据作了条多线段。可是我还想回到原来的图形窗口进行一些操作，请问我该怎么做呢？？？ 我试验的代码： Dim dName As String, dPath, File
dName = ThisDrawing.name
dPath = ThisDrawing.Path
MsgBox (dPath) & " " & (dName)
File = ((dPath) & " " & (dName))
Application.Documents.Add
ThisDrawing.Application.Documents.Open (File) 其中MsgBox显示了当前窗口的路径和文件名，可是添加了新窗口后Open语句却出错说找不到该文件？？？请问我该怎么办啊 还想请问一下：（1）创建的新窗口可以自己命名吗？默认的是drawing1 （2）我的一个数组里存有很多点的数据。现在我想以相邻两点在XOY面上的距离为横坐标，Z差为纵坐标形成一个新的数组，盖怎么做呢？？循环嵌套？？

alin

There should be a "\" between path and filename.

雪山飞狐_lzh

2. Sub tttt()
3. Dim doc1 As AcadDocument
4. Dim doc2 As AcadDocument
5. Set doc1 = Application.ActiveDocument
6. Set doc2 = Application.Documents.Add()
7. doc2.Activate
8. ThisDrawing.Utility.GetPoint
9. doc1.Activate
10. End Sub

Sub tttt() Dim doc1 As AcadDocument Dim doc2 As AcadDocument Set doc1 = Application.ActiveDocument Set doc2 = Application.Documents.Add() doc2.Activate ThisDrawing.Utility.GetPoint doc1.Activate End Sub

创建的新窗口不可以自己命名

2. Function ChangePnts(pnts As Variant)
3. Dim p1, p2
4. Dim p(2) As Double
5. Dim dots()
6. ReDim dots(UBound(pnts) - 1)
7. For i = 0 To UBound(pnts) - 1
8. p1 = pnts(i)
9. p2 = pnts(i + 1)
10. p(0) = ((p1(0) - p2(0)) ^ 2 + (p1(1) - p2(1)) ^ 2) ^ 0.5
11. p(1) = Abs(p1(2) - p2(2))
12. dots(i) = p
13. Next i
14. ChangePnts = dots
15. End Function

Function ChangePnts(pnts As Variant) Dim p1, p2 Dim p(2) As Double Dim dots() ReDim dots(UBound(pnts) - 1) For i = 0 To UBound(pnts) - 1 p1 = pnts(i) p2 = pnts(i + 1) p(0) = ((p1(0) - p2(0)) ^ 2 + (p1(1) - p2(1)) ^ 2) ^ 0.5 p(1) = Abs(p1(2) - p2(2)) dots(i) = p Next i ChangePnts = dots End Function