Тема: изменение цвета слоя в нескольких чертежах

Кто богат ссылками для решения следующей задачи.
алгоритм задачи:
1. Открыть чертеж из папки "А" (проверить, если нет чертежей в данной папке, перейти к папке "С")
2. Поменять цвет слоя "1" (если данного слоя не существует, перейти к следующему чертежу)
3. Закрыть чертеж
4. Открыть следующий чертеж

Re: изменение цвета слоя в нескольких чертежах

> Alen
Для примера выложил здесь:
http://forums.augi.com/showthread.php?p … post815592
Нужна регистрация
~'J'~

Re: изменение цвета слоя в нескольких чертежах

> Fatty
Спасибо за ссылку.
Но пока выдает ошибку после выбора файлов, выбора имени слоя, выбора цвета и запуска Run.
Попробую запустить StepInfo и разобраться.

Re: изменение цвета слоя в нескольких чертежах

> Fatty
Ошибка возникае в момент открытия файла в котором необходимо произвести изменения цвета слоя:
Run-time error'-2145320845 (80210073)':
Invalid file name

и после Debug выводит на строку

Set AcadDoc = Application.Documents.Open(strFileName)

Re: изменение цвета слоя в нескольких чертежах

> Alen
Может длина имени файла слишком большая?
Проверял на 2008-м все работает
~'J'~

Re: изменение цвета слоя в нескольких чертежах

> Fatty
А программа пропивывает не только имя файла, но весь путь файла; в данном случае:
D:\CLOSURE'S PLAN\PAGE-001.dwg
А у переменной типа String есть ограничения на длину (количество знаков)?

Re: изменение цвета слоя в нескольких чертежах

> Alen
Если мне неизменяет память в именах файлов
недопустимо применение знака quote (одиночная
кавычка)
~'J'~

Re: изменение цвета слоя в нескольких чертежах

> Fatty
Прежде всего огромное спасибо за поддержку!!!
Вот мои изыскания по поводу работы программы.
Исследования показали:
1. имя папки (папок) значения не имеет, в имени папок могут присутствовать все стандратные знаки допустимые в названиях папок операционной системы WindowsXP;
2. в имени файла программа допускает только цифровые значения;
3. при выборе одновременно нескольких файлов (имеющих имя соответственно п.2), программа выполняет изменения только в одном из выбранных файлов, остальные открывает-закрывает без изменений;
4. по окончаннии изменения в одном файле, открытия-закрытия остальных файлов, программа останавливается с запросом в командной строке Command: Macro name: ; перед этим запросом, последняя выводимая программой команда Command:'_layer
Файлы dwg были выполнены в AutoCAD 2005 LT;
Исследования проводились в AutoCAD 2008 (полная версия).

Re: изменение цвета слоя в нескольких чертежах

> Alen
Я не знаю как тебе помочь, на моей машине
все работает, я тоже проверял в 2008-м
Так что извини
~'J'~

Re: изменение цвета слоя в нескольких чертежах

> Alen
Попробуй еще в начале установить

ThisDrawing.SetVariable "SDI", 0

~'J'~