Here si some quick code to get you started (Assume you run it in a VBA
subroutine)
Dim app As AcadApplication
Dim dwg As AcadDocument
Dim i As Integer
Set app=ThisDrawing.Application
mStop=False '' a form level variable, default to False
For i=0 To Ubound(dwgnameArray)
''Open each drawing
Set dwg=app.Documents.Open(dwgnameArray(i))
''Do something to the drawing by referring the the varaiable dwg
''Close the drawing, save or not save changes
dwg.Close True ''Save the changes to the drawing, or "dwg.Close False"
if you do not want to save changes
''You may want to stop the looping by provide a "Stop" button. Do Events
allows the click on the Stop button
DoEvents
If mStop Then Exit For
Next
At Form level you should have
Private mStop As Boolean
Private Sub CommandButtonStop_Click()
mStop=True
End Sub
wrote in message news:5206319@discussion.autodesk.com...
Hi All,
I have used the commondialog to select multiple drawings.I know that the .
ParseFileNames returns an array of files selected.Now I need to loop through
these drawings -opening each one,making changes and then saving the drawing.
Can anyone please help me with it.Code for this will be helpful and
appreciated.
Thanks,
Avantika
