[Соня]

Как оптом сохранить все чертежи в формате 14-го автокада?
я их открыла и каждый -"сохранить как" в формате 14-го автокада. а у меня их около сотни- мало того, что автокад захлебывается, так еще и надоело до чертиков(

Если кому интересно чем это я занимаюсь:
есть файлы 10-го автокада, шрифты в 2002 не читаются. Для конвертора надо файлы 14-го автокада.. я перевожу 10 в 14 и потом в 2000.

[plaz]

Наверное придется задействовать LISP или скрипты

[Соня]

plaz, сильно сказал!

Наверное придется задействовать LISP или скрипты

а есть у кого такие уже написанные?

[plaz]

А ты не пробовола в каком нибудь Яндексе или Google искать? Существует куча программ конвертеров.
Например:
http://www.qwerks.com/download/4569/ahacad.exe
http://www.fpsols.com/installers/DWGDXFConvert.exe
http://www.cad.dp.ua/files/10to14.zip

Хватит?

[Соня]

так у меня чудненький конвертор, только надо сначала все файлы перевести в 14 автокад) а так конвертирует чудесно!
за ссылки спасибо дополнительное)

[Lenich]

Могу предолжить код на VBA, который сохраняет все открытые файлы на свое старое место и закрывает. Формат сохранения acR14_dwg (в хелпе про другие форматы написано много чего).

Чтобы это реализовать нужно:
Запустить акад, загрузить нужные чертежи, открыть VBA (Alt+F11).
В редакторе VBA делаем Инсерт Модуль и там пишем следующее:

Код:

[Выделить все]

Sub SaveR14()
Dim a As AcadDocument
Dim originalValue As Variant
' Get the OpenSave preferences object
Set ACADPref = ThisDrawing.Application.Preferences.OpenSave
' Store current setting
originalValue = ACADPref.SaveAsType
ACADPref.SaveAsType = acR14_dwg
For Each a In ThisDrawing.Application.Documents
a.Activate
a.Save
a.Close
Next
ACADPref.SaveAsType = originalValue
End Sub

Затем в VBA нажимаем запуск и в списке выбираем этот макрос.

[Соня]

тьфу ты...
у меня прав нету :cry: поэтому о VBA придется забыть!

[Соня]

http://www.qwerks.com/download/4569/ahacad.exe

это требует регистрации и не работает, моя прога лучше, хотя и корявей.

http://www.cad.dp.ua/files/10to14.zip

ваще бодяга какая то.. тож не работает как надо...

мне , если на то пошло, надо из 10 в 2002.

[Соня]

http://www.qwerks.com/download/4569/ahacad.exe

это требует регистрации и не работает, моя прога лучше, хотя и корявей.

http://www.cad.dp.ua/files/10to14.zip

ваще бодяга какая то.. тож не работает как надо...

мне , если на то пошло, надо из 10 в 2002.

[plaz]

Сообщение от Соня так у меня чудненький конвертор, только надо сначала все файлы перевести в 14 автокад) а так конвертирует чудесно! за ссылки спасибо дополнительное)

Так эти программы как раз работают с R10. Кстати послядняя - LISP

[Lenich]

Сообщение от Соня тьфу ты... у меня прав нету :cry: поэтому о VBA придется забыть!

Чего-то я не понял. Причем тут права и VBA, который встроен в Автокад :shock:

[Соня]

Причем тут права и VBA, который встроен в Автокад

У меня компьютер сделан в режиме простого пользователя, даже не опытного пользователя.. автокад раньше не позволял настроить даже значки- только на один сеанс и потом все заново, но по настоятельно просьбе нам на автокад дали полнй доступ, но видать не такой уж и полный))
вначале ветки прописывали в реестве.. видимо чтото не прописали(

[plaz]

:shock: Ну и звери

[Grinzaid]

А разве к оригинальному акаду не прилагается Batch Drawing Converter? Я ми постоянно пользуюсь.
[ATTACH]1096439000.gif[/ATTACH]

[Соня]

А разве к оригинальному акаду не прилагается Batch Drawing Converter?

у нас такого нет) может он у нас не оригинальный? :wink:

Ну и звери

полностью согласна! мы даже время не можем исправить(
но сейчас хоть чтото можно сделать, раньше было хуже.. зато это вытащило из народе революционные чувства)

[Lenich]

зато это вытащило из народе революционные чувства)

Если так и дальше пойдет, то случится переворот

Я смотрю, интернет то у Вас не отняли 8)

я их открыла и каждый -"сохранить как" в формате 14-го автокада.

А в каком акаде открыли? Незнаю как насчет 14, но если в поздних версиях то там есть Tools->Options->Open and Save->File Save->Save As: и здесь выбери "Autocad R14..." и кад будет по умолчанию сохранять в выбранном формате. (т.е. не надо делать Save as каждый раз)

[Соня]

Я смотрю, интернет то у Вас не отняли

гы) мы за него платим сами) сколько потопали- столько и заплатили)

Tools->Options->Open and Save->File Save->Save As:

ух ты.. и как я сразу не подумала об этом... вот спасибо!

[Соня]

Если так и дальше пойдет, то случится переворот

он и случился) иначе как бы я вообще чтото смогла делать!
ну надо же как просто вопрос решился!!! до сих пор понять не могу отчего я сама то не догадалась!

[Lenich]

вот спасибо!

Пожалуйста!

гы) мы за него платим сами) сколько потопали- столько и заплатили)

Прикольно!
Зато, сразу можно зарплату считать на основе выложенных денежек за интернет (чем больше заплатил тем меньше наработал, соответственно и зарплата должна быть поменьше)... Кошмар какой. Сочувствую.

[Dikoy]

Lenich, +5 баллов! И никаких лиспов