[Borikv]

У меня к клавише S привязана команда QSAVE -(defun C:S () (command "qsave"))
Я бы хотел привязать к этой команде скрипт, который бы стирал блок с конкретным именем и делал бы ему PURGE. Возможно ли это?. Нужно обмануть одну внешнюю программу.

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

Сообщение от Borikv Возможно ли это?

Возможно.

[Profan]

Стёртому блоку сделать purge?

[Borikv]

Да , чтобы он больше не появлялся при повторном срабатывании этой внешней прораммы.

[Олег (jr.)]

Замени имя блока и название команды

Код:

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

(defun C:BPUR  (/ blockname)
  (setq blockname "myblock")	 ;	<-- change block name 
  (if (tblsearch "block" blockname)
    (command "_purge" "_b" blockname "_n")
    )
  )

[Profan]

Так это же не скрипт.

[Borikv]

В принципе и лисп сгодится, только привязать его к часто используемой команде типа Qsave ну и вставить стирание этого блока

[Borikv]

А как дополнить привидённый выше лисп, чтобы сначала из чертежа стёрлись все эти блоки , а потом уже пёрдж?

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

По-быстрому, без особых проверок:

[Borikv]

Круто! За пол часа такй лиспище! Только непонятно как запускать после Load aplication

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

[VVA]

Добавочка к #5. Надеюсь, что блок не динамический

Код:

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

(defun C:BPUR  (/ blockname ss i)
  (setq blockname "myblock")	 ;	<-- change block name
  (vl-load-com)
  (if (and (setq ss (ssget "_X" (list(cons 0 "INSERT")(cons 2 blockname))))
           (setq i (sslength ss))
           )
    (repeat i
      (vl-catch-all-apply 'entdel
      (list(ssname ss (setq i (1- i))))
        )
      )
      )
  (if (tblsearch "block" blockname)
    (command "_purge" "_b" blockname "_n")
    )
  (princ)
  )

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

VVA, забыл про вхождения блоков внутрь других блоков.

> Borikv:
(_kpblc-block-erase "ИмяБлокаВКавычках" t) - удалит блок, где бы он ни был, невзирая на состояние слоев.
(_kpblc-block-erase "ИмяБлокаВКавычках" nil) - удалит блок, где бы он ни был, оставив в неприкосновенности блоки на заблокированных и замороженных слоях.
Как вариант, "обертка" в виде команды. Для запуска в ком.строке ввести ber

P.S. Этот код не тестировал вообще.

[Borikv]

Всем учавствовавшим большое спасибо. Последний вариант работает отлично

[dadatamada]

Сообщение от Кулик Алексей aka kpblc VVA, забыл про вхождения блоков внутрь других блоков. > Borikv: (_kpblc-block-erase "ИмяБлокаВКавычках" t) - удалит блок, где бы он ни был, невзирая на состояние слоев. (_kpblc-block-erase "ИмяБлокаВКавычках" nil) - удалит блок, где бы он ни был, оставив в неприкосновенности блоки на заблокированных и замороженных слоях. Как вариант, "обертка" в виде команды. Для запуска в ком.строке ввести ber P.S. Этот код не тестировал вообще.

Спасибо за Лисп. А можно сделать поддержку динамических блоков и выбор блока мышкой?

[Boxa]

dadatamada, https://forum.dwg.ru/showpost.php?p=947385&postcount=2