???
Dim I As Integer
Dim Path As String
Dim Doc As AcadDocument
For I = 1 To 10
Path = "C:\" & I & ".dwg"
Set Doc = Application.Documents.Add
Doc.SaveAs Path
Doc.Close
Next I
Joe ...
wrote in message news:5981591@discussion.autodesk.com...
Dim path As String
Dim i As Integer
For i = 0 To 10
Layer = "e:\" & i & ".dwg"
Dim Doc As AcadDocument
Set Doc = ThisDrawing.Application.Documents.Add()
Doc.SaveAs path
Doc.Close False
next
CAD08 failed,only set up one document,then not run,however 04 and 09 OK,
please help
thanks very much~
