• sf
  • Восстановленный участник
  • На форуме с 5 марта 2005г.
  • Сообщений: 46
  • Спасибо: 0

Тема: Поочередное открытие вайлов DWG из нужной папки ???

Уважаемые форумчане, спецы VBA.
Может кто поможет. Заранее спасибо.
Нужно
1. Поочередное открывать файловы DWG из нужной папки и подпапок ???
2. для каждого открытого файла перейти в модель и   выполнить команду explode, потом во все layout тоже explode

  • Durimar
  • Восстановленный участник
  • На форуме с 9 марта 2005г.
  • Сообщений: 29
  • Спасибо: 0

Re: Поочередное открытие вайлов DWG из нужной папки ???

Голова нужна не только для того, что бы в неё закладывать еду. Ею (то биш головой) ещё и думают.
Желаю успехов на поприще программирования.

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Поочередное открытие вайлов DWG из нужной папки ???

Паразительно. Мне нужно абсолютно тоже самое.

Sub startBatch()
    Dim path As String
    Dim doc As AcadDocuments
    Set doc = AcadApplication.Documents
    path = BrowseForFolder(ThisDrawing, "Select a Directoty", "")
    Dim fs, folders, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folders = fs.GetFolder(path)
    Set Files = folders.Files
    For Each FileName In Files
        fString = FileName.path
        If (FileName.Type = "AutoCAD Drawing") Then
            doc.Open fString
            AcadApplication.ZoomExtents
                 'code here
            doc.Item(1).Save
            doc.Item(1).Close
        End If
    Next
End Sub

> cadhelp
BrowseForFolder
http://www.freevbcode.com/ShowCode.asp?ID=852