[dextron3]

Предыстория:

Обычно сейчас все делают электронные подписи для того чтобы не уставать подписывать чертежи в ручную.

Создана подпись ввиде сплайна и преобразована в блок,
на всех листах нанесена.

Перед выдачей заказчику в электронном виде хотелось бы чтобы этот блок полностью адалился со всех лайаутов в чертеже (чтобы заказчик не пользовался моей подписью в корыстных целях)

Я обычно создаю другой блок ну допустим кружочек маленький маленький и заменяю крудочком подпись.

Есть ли команда в Автокаде чтобы просто удалить блок из чертежа и из всех мест где он зафиксирован?

Буду признателен!

[Startrek]

XREF свою подпись, и не посылай заказчикам

[dextron3]

я свои файлы по всем компам таскаю не пойдет такое

[PL]

Сообщение от dextron3 я свои файлы по всем компам таскаю не пойдет такое

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

[dextron3]

это я должен таскать вагон и маленькую тележку с хрефами, однако гемор

Неужели не существует команды в автокаде?

[VVA]

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

[dextron3]

Читал что хрефы притормаживают работу компьютера, особенно когда их много

[zenon]

да переопредели блок и вся нелегкая. вставь туды что-нить вроде "Фик Вам!!!"

[mr_ivan]

Быстрым выбором выбирай все блоки с именем твоей подписи, потом purge
но вот это как раз и есть геморой!
Пробуй XREF - когда поймеш его преимущество, ненарадуешься

[VVA]

Сообщение от dextron3 Читал что хрефы притормаживают работу компьютера, особенно когда их много

Ссылка будет одна, просто вхождений блока может быть сколько угодно

[dextron3]

Вопрос на засыпку, а если на двух компьютерах работаешь не соединенных сетью? и файлы хранятся в разных папках и буквы жестких дисков разные?

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

_etransmit

[dextron3]

Ребята, я нашел более гуманный способ,
берите ручки и записывайте....

1. Двойной щелчок по блоку
2. В выпадающем окошке на кнопку ОК
3. Заходим в редактор дин блока
4. Удаляем наш блочок
5. Закрываем
6. Сохраняем
7. Все!

А хрефы пусть остануться хрефами

[dextron3]

как бы теперь это все в макрос записать

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

>#13 : Достаточно дурной способ, уж прошу прощения. Лисп для удаления блока вообще, где бы он ни был, с попыткой очистки:

Код:

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

(defun remove-block (name / adoc *error* fun_get-name)
                    ;|
*    Удаление блока из файла.
*    Параметры вызова:
	name	имя блока.
*    Примеры вызова:
(remove-block "qwe")
|;
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (defun fun_get-name (ent)
    (if (vlax-property-available-p ent 'effectivename)
      (vla-get-effectivename ent)
      (vla-get-name ent)
      ) ;_ end of if
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (tblobjname "block" name)
    (progn
      (vlax-for blk_def (vla-get-blocks adoc)
        (if (equal (vla-get-isxref blk_def) :vlax-false)
          (vlax-for ent blk_def
            (if (and (wcmatch (strcase (vla-get-objectname ent)) "*BLOCKREF*")
                     (= (strcase (fun_get-name ent)) (strcase name))
                     ) ;_ end of and
              (vl-catch-all-apply '(lambda () (vla-erase ent)))
              ) ;_ end of if
            ) ;_ end of vlax-for
          ) ;_ end of if
        ) ;_ end of vlax-for
      (if (vl-catch-all-error-p
            (vl-catch-all-apply
              '(lambda () (vla-delete (vla-item (vla-get-blocks adoc) name)))
              ) ;_ end of vl-catch-all-apply
            ) ;_ end of vl-catch-all-error-p
        (alert (strcase "Не удалось удалить описание блока " name))
        ) ;_ end of if
      (vla-regen adoc acallviewports)
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Состояние слоев не отслеживается (т.е. слои надо будет руками разблокировать и разморозить).
Вариант с удалением состава блока:

Код:

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

(defun remove-block-cont (name / *error* adoc)
                         ;|
*    Удаление состава блока. Сам блок не удаляется
*    Параметры вызова:
	name	имя блока.
*    Примеры вызова:
(remove-block-cont "qwe")
|;
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (tblobjname "block" name)
    (progn
      (vlax-for sub (vla-item (vla-get-blocks adoc) name)
        (vl-catch-all-apply '(lambda () (vla-erase sub)))
        ) ;_ end of vlax-for
      (vla-regen adoc acallviewports)
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Насчет слоев - то же, что и в первом лиспе.
Код особо не гонял.

[dextron3]

незработал чтото

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

Я ж примеры привел специально.

[elsakov]

как удалить блок?

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

Руками. Найти и удалить.
P.S. Каков вопрос, таков ответ.

[Человек]

Главное меню - ФАЙЛ - УТИЛИТЫ - ОЧИСТИТЬ ...
Удаляем неиспользуемые блоки, стили и т.д.