For starters, here's a few routines to help. Since a lot of people ask about
batch processing, I cobbled together a small batch processing hook. The way
it works is you pass it the firectory you want to process along with the
*.dwg filter: C:\myDir\*.dwg. In addition, you pass it the name of the
function that does the actual processing. In this case, dummy. The Batch
routine will find your files and pass them as argument to the dummy routine.
In this case, dummy just pops up a dialog saying what file it was given.
You, of course will make your rotuine much more useful. As for the saving
part, after you've processed your file, call ThisDrawing.Close True. Hope
this helps.
Public Sub Batch(filter As String, funcName As String)
Dim tmp As String
tmp = Dir$(filter)
Do While tmp <> ""
Eval funcName & " """ & tmp & """"
tmp = Dir$
Loop
End Sub
Public Sub dummy(dwg As String)
MsgBox "Found " & dwg
End Sub
Public Sub test()
Batch "C:\program files\mdt4\*.dwg", "dummy"
End Sub
--
Get free software and more at http://www2.stonemedia.com/franko
"Ruth Mitchell or Jim Kitts"
wrote in message
news:[email protected]...
> using A2k and VBA, I am looking for a study code scrap to:
> batch cycle through about 50 dwg's in c:\xfile.
> I want to open each dwg, shrink all the text by about 25%,
> re-save each file and move to the next one without dismissing dialog
> boxes.
> I have the shrink text project in the help file, so my main question
> is to do with a batch-open-do-something-then-save routine.
> Thanks all,
> jim kitts
>
>
>
