Как оптом сохранить все чертежи в формате 14-го автокада?

Соня · 28.09.2004, 09:04

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

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

plaz · 28.09.2004, 11:25

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

Соня · 28.09.2004, 11:30

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

Цитата:

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

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

plaz · 28.09.2004, 12:01

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

Хватит?

Соня · 28.09.2004, 12:11

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

Lenich · 28.09.2004, 12:15

Могу предолжить код на 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 нажимаем запуск и в списке выбираем этот макрос.

Соня · 28.09.2004, 12:35

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

Соня · 28.09.2004, 12:50

Цитата:

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

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

Цитата:

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

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

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

Соня · 28.09.2004, 12:50

Цитата:

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

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

Цитата:

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

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

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

plaz · 28.09.2004, 12:51

Цитата:

Сообщение от Соня

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

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

Lenich · 28.09.2004, 15:25

Цитата:

Сообщение от Соня

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

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

Соня · 29.09.2004, 10:15

Цитата:

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

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

plaz · 29.09.2004, 10:20

:shock: Ну и звери

Grinzaid · 29.09.2004, 10:23

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

Соня · 29.09.2004, 10:29

Цитата:

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

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

Цитата:

Ну и звери

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

Lenich · 29.09.2004, 10:56

Цитата:

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

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

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

Цитата:

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

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

Соня · 29.09.2004, 11:00

Цитата:

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

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

Цитата:

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

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

Соня · 29.09.2004, 11:03

Цитата:

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

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

Lenich · 29.09.2004, 11:25

Цитата:

вот спасибо!

Пожалуйста!

Цитата:

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

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

Dikoy · 06.02.2008, 17:03

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

Dym · 21.04.2010, 17:33

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

Кулик Алексей aka kpblc · 21.04.2010, 19:55

Такое?

Код:

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

(defun psf (/ documentscollection unpurgedfilelist activedocument acadobject unpurged filelist index path x)

  (vl-load-com) ;Загрузить расширение
  (setq acadobject (vlax-get-acad-object)) ;получить объект Application
  (setq activedocument (vla-get-activedocument acadobject)) ;Получить указатель на активный документ
  (setq documentscollection (vla-get-documents acadobject)) ;получить указатель на коллекцию документов

  (setq path (vl-filename-directory (getfiled "Выберете любой чертеж в папке" "" "dwg" 16)))
          ;Получить путь к  очищаемой папке
  (alert
    "!!!Внимание!!!\n
          Процесс чистки может занять много времени.\n
          В целях ускорения процесса сессия будет невидима\n
          Пожалуйста дождитесь завершения\n
	  Нажмите ОК для продолжения"
    )     ;выдать предупреждение
  (vlax-put-property acadobject "Visible" :vlax-false) ;убрать сеанс с экрана

  (setq filelist (vl-directory-files path "*.dwg" 1)) ;получить список файлов в директории
  (if (not (null filelist)) ; если найден хоть один файл
    (progn
      (setq filelist (mapcar '(lambda (x) (strcat path "\\" x)) filelist)) ;получить список полных путей к файлам
      (setq index 0) ;инициализировать индекс
      (setq unpurged 0) ;инициализировать счетчик неочищеных файлов
      (setq unpurgedfilelist "") ;Инициализировать строку - список неочищеных
      (repeat (length filelist) ;цикл
        (setq activedocument
               (vl-catch-all-apply 'vla-open (list documentscollection (nth index filelist))) ;открыть файл
              ) ;end setq
        (if (not (vl-catch-all-error-p activedocument)) ;если при открытии не возникло ошибок
          (progn

            (if (= (vlax-get-property activedocument "ReadOnly") :vlax-true)
          ;если чертеж открыт только для чтения
              (progn ;если чертеж нельзя изменять
                (setq unpurged (1+ unpurged)) ;инкримент счетчика неочищеных файлов
                (setq unpurgedfilelist (strcat "\n" (nth index filelist) unpurgedfilelist))
          ; добавить строку с путем к файлу
                (vlax-invoke-method activedocument "Close" :vlax-false) ;закрыть чертеж без сохранения
                ) ;end progn
              (progn ;если чертеж можно изменять
                (vlax-invoke-method activedocument "Purgeall") ;чистить
                (vlax-invoke-method activedocument "Purgeall") ;чистить
                (vlax-invoke-method activedocument "Purgeall") ;чистить
                (vlax-invoke-method activedocument "SaveAs" ac2004_dwg) ; сохранить в формате 2004
                (vlax-invoke-method activedocument "Close") ;закрыть чертеж
                ) ;end progn
              ) ;end if
            ) ;end progn

          (setq unpurged (1+ unpurged)) ;если файл не открылся - нкримент счетчика неочищеных файлов
          ) ;end if
        (setq index (1+ index)) ;перейти к следующему файлу
        ) ;_ end of repeat

      (vlax-put-property acadobject "Visible" :vlax-true) ; сделать акад видимым

      (alert
        (strcat "Процесс чистки успешно завершен.\n" ;выдать сообщение
                (if (not (null unpurgedfilelist))
                  (strcat " Неочищеных файлов: " (itoa unpurged) "\n" unpurgedfilelist)
                  "\n"
                  ) ;_ end of if
                ) ;end strcat
        ) ;end alert
      )   ;end progn
    (progn
      (vlax-put-property acadobject "Visible" :vlax-true) ; сделать акад видимым
      (alert "\n Не найдено ни одного файла") ; если в каталоге нет ни одного файла - сообщить об этом
      )   ;end progn
    )     ;end if
  (princ)
  ) ;_ end of defun

А вот вариант с очисткой зарегистрированных приложений и попыткой аудита:

Код:

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

(defun psf (/ documentscollection unpurgedfilelist activedocument acadobject unpurged filelist index path x)

  (vl-load-com) ;Загрузить расширение
  (setq acadobject (vlax-get-acad-object)) ;получить объект Application
  (setq activedocument (vla-get-activedocument acadobject)) ;Получить указатель на активный документ
  (setq documentscollection (vla-get-documents acadobject)) ;получить указатель на коллекцию документов

  (setq path (vl-filename-directory (getfiled "Выберете любой чертеж в папке" "" "dwg" 16)))
          ;Получить путь к  очищаемой папке
  (alert
    "!!!Внимание!!!\n
          Процесс чистки может занять много времени.\n
          В целях ускорения процесса сессия будет невидима\n
          Пожалуйста дождитесь завершения\n
	  Нажмите ОК для продолжения"
    )     ;выдать предупреждение
  (vlax-put-property acadobject "Visible" :vlax-false) ;убрать сеанс с экрана

  (setq filelist (vl-directory-files path "*.dwg" 1)) ;получить список файлов в директории
  (if (not (null filelist)) ; если найден хоть один файл
    (progn
      (setq filelist (mapcar '(lambda (x) (strcat path "\\" x)) filelist)) ;получить список полных путей к файлам
      (setq index 0) ;инициализировать индекс
      (setq unpurged 0) ;инициализировать счетчик неочищеных файлов
      (setq unpurgedfilelist "") ;Инициализировать строку - список неочищеных
      (repeat (length filelist) ;цикл
        (setq activedocument
               (vl-catch-all-apply 'vla-open (list documentscollection (nth index filelist))) ;открыть файл
              ) ;end setq
        (if (not (vl-catch-all-error-p activedocument)) ;если при открытии не возникло ошибок
          (progn

            (if (= (vlax-get-property activedocument "ReadOnly") :vlax-true)
          ;если чертеж открыт только для чтения
              (progn ;если чертеж нельзя изменять
                (setq unpurged (1+ unpurged)) ;инкримент счетчика неочищеных файлов
                (setq unpurgedfilelist (strcat "\n" (nth index filelist) unpurgedfilelist))
          ; добавить строку с путем к файлу
                (vlax-invoke-method activedocument "Close" :vlax-false) ;закрыть чертеж без сохранения
                ) ;end progn
              (progn ;если чертеж можно изменять
                (repeat 3
                  (vla-purgeall activedocument)
                  ) ;_ end of repeat
                (vlax-for app (vla-get-registeredapplications activedocument)
                  (vl-catch-all-error-p
                    (function
                      (lambda ()
                        (vla-delete app)
                        ) ;_ end of lambda
                      ) ;_ end of function
                    ) ;_ end of vl-catch-all-error-p
                  ) ;_ end of vlax-for
                (vl-catch-all-apply
                  (function
                    (lambda ()
                      (vla-auditinfo activedocument :vlax-true)
                      ) ;_ end of lambda
                    ) ;_ end of function
                  ) ;_ end of vl-catch-all-apply
                (vla-saveas activedocument (vla-get-fullname activedocument) ac2004_dwg)
                (vla-close activedocument)
                ) ;end progn
              ) ;end if
            ) ;end progn

          (setq unpurged (1+ unpurged)) ;если файл не открылся - нкримент счетчика неочищеных файлов
          ) ;end if
        (setq index (1+ index)) ;перейти к следующему файлу
        ) ;_ end of repeat

      (vlax-put-property acadobject "Visible" :vlax-true) ; сделать акад видимым

      (alert
        (strcat "Процесс чистки успешно завершен.\n" ;выдать сообщение
                (if (not (null unpurgedfilelist))
                  (strcat " Неочищеных файлов: " (itoa unpurged) "\n" unpurgedfilelist)
                  "\n"
                  ) ;_ end of if
                ) ;end strcat
        ) ;end alert
      )   ;end progn
    (progn
      (vlax-put-property acadobject "Visible" :vlax-true) ; сделать акад видимым
      (alert "\n Не найдено ни одного файла") ; если в каталоге нет ни одного файла - сообщить об этом
      )   ;end progn
    )     ;end if
  (princ)
  ) ;_ end of defun

SLADE · 06.03.2011, 00:09

Не стал плодить новую тему, проблема похожая
Работаю через внешние ссылку, прыгаю с файла к файлу, корректирую.

Как сделать оптовое сохранение всех открытых файлов в ACADе ??

VVA · 06.03.2011, 12:56

Цитата:

Сообщение от SLADE

Как сделать оптовое сохранение всех открытых файлов в ACADе ??

Express menu -> File tools -> Save All Drawings (SAVEALL)

SLADE · 06.03.2011, 20:08

Володя, спасибо

Vova · 07.03.2011, 05:39

Offtop: Mожет, VVA тщательно скрывает свое настоящее имя, а ты его выдал....

Солидворкер · 20.03.2011, 14:59

Цитата:

Сообщение от Vova

Offtop: Mожет, VVA тщательно скрывает свое настоящее имя, а ты его выдал....

О да... очень тщательно
http://dwg.ru/pub/9
См. подпись

28.09.2004, 09:04		#1
Как оптом сохранить все чертежи в формате 14-го автокада? Соня Пермь Регистрация: 14.01.2004 Сообщений: 220 Как оптом сохранить все чертежи в формате 14-го автокада? я их открыла и каждый -"сохранить как" в формате 14-го автокада. а у меня их около сотни- мало того, что автокад захлебывается, так еще и надоело до чертиков( Если кому интересно чем это я занимаюсь: есть файлы 10-го автокада, шрифты в 2002 не читаются. Для конвертора надо файлы 14-го автокада.. я перевожу 10 в 14 и потом в 2000.
Просмотров: 14963

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск