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

Тема: Изменение путей для файлов в сборке

Нужен макрос или идеи как измененить пути файлов в сборке.
Действия которые должны выполняться макросом:
1. Приоткрытии в AutoCAD любого файла, нужно найти в нем все ссылки на внешние файлы
2. Для найденных ссылок изменить путь к файлам (заменить имя сервера)
Было:

\\Server_old\Dir1\....\DirN\filename.ext

Нужно:

\\Server_New\Dir1\....\DirN\filename.ext

3. Сохранить файл.
P.S. Вручную через XFER Manager не предлогать - файлов очень много - Файлов сборок более 50000 штук, каждый из них имеет связи с 3-200 файлов.
Поэтому нужен пакетный файл или макрос срабатывающий при открытии файла.
Задача очень срочная, т.к. из-за привязки файлов к серверу не могу переместить файлы на другой сервер, а переместить нужно срочно.

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

Re: Изменение путей для файлов в сборке

> MKlimanski
Private Sub changePath()
Dim TempBlock As AcadBlock
Dim xrefBlock As Object
Dim xrefpath As String
For Each TempBlock In ThisDrawing.Blocks
If TempBlock.IsXRef Then
Set xrefBlock = TempBlock
xrefpath = xrefBlock.Path
xrefpath = Replace(xrefpath, "Server_old", "Server_new", , , vbTextCompare)
xrefBlock.Path = xrefpath
End If
Next
End Sub
Накидал на быструю руку, времени доводить до совершенства нет.
Надеюсь что помог.

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

Re: Изменение путей для файлов в сборке

После xrefBlock.Path = xrefpath добавьте xrefBlock.Reload

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

Re: Изменение путей для файлов в сборке

Спасибо!
Попробую так сделать.

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

Re: Изменение путей для файлов в сборке

> Shogun
Не работает, выдаёт ошибку на строку:
-->            xrefpath = xrefBlock.Path

Run-time error '438':
Object doesn't support this property or method

Проверял в AutoCAD 2004 English

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

Re: Изменение путей для файлов в сборке

> MKlimanski
Писал под 2005-ым