[Svolo4]

Добрый день. Есть лисп (автор VVA), который удаляет из файла словари

Код:

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

 (defun C:DR ( / notdelete)
  ;;;notdelete список неудаляемых словарей
  (setq notdelete '("ACAD_IMAGE_DICT" "ACAD_IMAGE_VARS"))
	(mapcar
	'(lambda(d)
	(vl-catch-all-apply '(lambda()(if (not(member d notdelete))(dictremove (namedobjdict) d)))))
	(mapcar 'cdr(vl-remove-if-not '(lambda(x)(= (car x) 3))(entget(namedobjdict))))
	)
  )

Как сделать так, чтобы после выполнения команды DR запускался purge с удалением вложенных элементов и после audit с исправлением ошибок?

[cancanchuc]

Всем добрый день!
Подскажите как добавить исключения в файл очистки, чтобы не удалялись элементы программы VetCAD++?

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

Для начала было бы неплохо вообще эти элементы определить. Хоть как-то

[cancanchuc]

В этом то и вопрос. Может здесь есть те, кто определил как эти элементы называются.

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

Offtop: Тут уж проще будет автора VetCAD спросить, наверное

[doctorraz]

Вот что написал мне автор Веткада: "Добрый день! Пока нет возможности посмотреть файлы детальнее, но если нужно исключить словари веткада, то это должно быть просто. Они все начинаются на VETCAD, если мне память не изменяет. Поэтому исключающий if может выглядеть так: (if (and (not (wcmatch (strcase d) "ACAD_*")) (not (wcmatch d "AcDb*")) (not (wcmatch (strcase d) "VETCAD*")) ) ;_ end of and (dictremove (namedobjdict) d) ) ;_ end of if"

https://www.proektant.org/index.php/...html#msg316290

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

Как вариант чистки, без проверок и тестов.

Код:

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

 (vl-load-com)
(defun c:like-full-purge (/ adoc fun_purge-and-audit) 

  (defun fun_purge-and-audit (adoc / sysvars) 
    (repeat 3 (vla-purgeall adoc))
    (setq sysvars (mapcar 
                    (function 
                      (lambda (x / temp) 
                        (setq temp (getvar (car x)))
                        (setvar (car x) (cdr x))
                        (cons (car x) temp)
                      )
                    )
                    '(("cmdecho" . 0)
                      ("menuecho" . 0)
                      ("nomutt" . 1)
                     )
                  )
    )
    (vl-catch-all-apply 
      (function 
        (lambda () 
          (vl-cmdf "_.-purge" "_e")
          (vl-cmdf "_.-purge" "_z")
        )
      )
    )
    (foreach item sysvars 
      (setvar (car item) (cdr item))
    )
    (vla-auditinfo adoc ::vlax-true)
    (repeat 3 (vla-purgeall adoc))
  )

  (vl-load-com)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (fun_purge-and-audit adoc)
  (vlax-for dict (vla-get-dictionaries adoc) 
    (if 
      (or (not (vlax-property-available-p dict 'name)) 
          (not (wcmatch (vla-get-name dict) "ACAD_*,AcDb*"))
          (not (wcmatch (strcase (vla-get-name dict)) "VETCAD*"))
      )
      (vl-catch-all-apply 
        (function 
          (lambda () 
            (vla-delete dict)
          )
        )
      )
    )
  )
  (fun_purge-and-audit adoc)
  (vla-endundomark adoc)
  (princ)
)

Offtop: Я просто не помню, вычищает vla-purgeall пустые тексты и нулевую длину или нет