[Малюк]

Есть такая проблема - приблизительно 25,0 Гб грязных чертежей, которые находятся в разных папках. Есть LISP на _purge (скачанный на dwg.ru). Когда его запускаеш он запрашивает файл, указываеш его место положение и он чистит всю директорию (вложенные папки он к сожалению не читстит). Подскажите пожалуста, где можно найти такой LISP который бы также чистил вложенные папки?

[Лентяй]

А вот такое пробовал?

Код:

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

(defun C:BatchPurge ( / cmd n_doc ShellApp Dir dir_lst file_lst folItm UnPrg UnPrgLst Prg lst msg)
  (vl-load-com)
  (setq	cmd (getvar "CMDECHO")
	n_doc (vla-getinterfaceobject (vlax-get-acad-object) "ObjectDBX.AxDbDocument.16")
        Prg 0 UnPrg 0);setq
  (if (and (setq ShellApp (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
           (setq Dir (vlax-invoke-method ShellApp 'BrowseForFolder 0
                       "Select Direcory to Purge Files in" 0)));and
    (progn (setq dir_lst (list Dir))
      (vlax-release-object ShellApp) (setq ShellApp nil) 
      (while dir_lst (setq itms (vlax-invoke-method (car dir_lst) 'Items)
                           cnt (1- (vla-get-count itms)));setq
        (while (< 0 cnt) (setq itm (vla-item itms cnt)) 
          (if (= :vlax-true (vlax-get-property itm 'IsFileSystem))
            (cond ((= "AutoCAD Drawing" (vla-get-Type itm))
                    (setq file_lst (cons (vla-get-Path itm) file_lst)))
                  ((= :vlax-true (vlax-get-property itm 'IsFolder))
                    (if (setq folItm (vl-catch-all-apply 'vlax-get-property (list itm 'GetFolder)))
                       (setq dir_lst (cons folItm dir_lst))))));if
          (setq cnt (1- cnt)));while
        (setq dir_lst (cdr (reverse dir_lst))));while
    );progn
    file_lst
  );if
  (foreach dwg file_lst 
    (vla-open n_doc (findfile dwg))
    (if (not (vlax-method-applicable-p n_doc 'PurgeAll))
      (progn (setq UnPrg (1+ UnPrg)
                   UnPrgLst (cons (vla-get-name n_doc) UnPrgLst))
        (vla-close n_doc :vlax-false));progn
      (progn (repeat 2 (vla-purgeall n_doc))
        (vla-close n_doc :vlax-true)
            (setq Prg (1+ Prg))));if
   );foreach
  (while UnPrgLst (setq lst (if lst (strcat lst "\n" (car UnPrgLst)) (car UnPrgLst))
                        UnPrgLst (cdr UnPrgLst)));while
  (setq msg1 (if (= Prg 0) "No Purged Files"
               (strcat "Congratulations! Purge Completed.\n" (itoa Prg) "Files Purged"))
        msg2 (strcat (itoa UnPrg) " Files Not Purged: \n" lst));setq
  (alert (strcat msg1 msg2))
);end

[dextron3]

Попробовал

Код:

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

Command: _appload Пурдже директория.lsp successfully loaded.


Command:
Command:
Command: BATCHPURGE
; error: Automation Error. Problem in loading application

не работает

[Кулик Алексей aka kpblc]

> Лентяй : критику принимай. Сразу, влет.
1. В AutoCAD 2007, 2008 и 2002 работать не будет, а ObjectDBX там есть.
2. В русских версиях 100% будут проблемы, потому что AutoCAD Drawing может называться как Рисунок AutoCAD, Рисунок DWG ну и тому подобное.

[Александр Ривилис]

Мне кажется есть значительно более серьезное замечание. В AutoCAD'е есть утечки памяти и пытаться пуржить сразу десятки гигабайт чертежей - это с гарантией получить вылет AutoCAD. Поэтому советую пуржить по частям!

[u77]

может поможет ?
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=16229ev

[Малюк]

Попробывал LISP Лентяя на 2006 eng получилось следущее:

Код:

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

Command: _appload Purge целые дериктории. Вызов - BatchPurge.lsp successfully 
loaded.
Command:
Command:
Command: BatchPurge
; error: ActiveX Server returned the error: unknown name: Close

[Sleekka]

ezscript pro тебе поможет, кстати если акад вылетит, то в прогрессбаре ты узнаешь где именно вылетел, и будешь продолжать пурджить с нужного места, кстати там еще в екзамплах есть скрип на зверский пурдж с помощью wblock - ето вапще жосткая весчь если всякой прокси и тому подобной фигни много, а если чертежики свои (чистенькие) то достаточно purga.

[Лентяй]

Сообщение от Кулик Алексей aka kpblc > Лентяй : критику принимай. Сразу, влет.

Последнюю реплику мы с гневом отвергаем как неорганизованную (С) "Сказка о Тройке"

1. В AutoCAD 2007, 2008 и 2002 работать не будет, а ObjectDBX там есть.

А мне пох Дома у меня стоит 2005, на работе в то время бал тоже 2005, так что под него и писано.

2. В русских версиях 100% будут проблемы, потому что AutoCAD Drawing может называться как Рисунок AutoCAD, Рисунок DWG ну и тому подобное.

Дык мы же того, в Бусурмании обретаемся, так что см. выше.
А ваще фишка так легла, что с АвтоКадом мне, видимо, придется завязывать [sm900]. Потому как резко сменил сферу деятельности и теперь, как в годы золотые безвозвратно ушедшей молодости, занимаюсь сугубо хим. процессами в качестве Laboratory Supervisor, или проще говоря - завлабы мы. [/quote]

[Кулик Алексей aka kpblc]

Ну вот, а было так весело... Хоть появляться-то будешь или завяжешь окончательно?

[Лентяй]

Буду, буду... [sm2203] А то вы меня совсем забудете. [sm802]

[Alan]

>Лентяй Попробывал твой LISP на 2005 rus, тот же вид с боку, что и у Малюка

получилось следущее: Command: BatchPurge ; error: ActiveX Server returned the error: unknown name: Close

только на русском, поэтому не привожу
Если будет время, ты уж посмотри пожалуйста. Автокад не забывай...

[Кулик Алексей aka kpblc]

Все верно, в ObjectDBX нет метода Close...