[Mikhail]

Поделитесь мнением чем пользуетесь. Группами (group) или блоки в автокаде. Они довольно похожи. Но блоки можно вроде как вставлять из чертежа в чертеж к тому же с аттрибутами. А для чего используются группы?

[Vova]

Смотрим посты от 23 до 30 и вокруг них. CTRL=H, pickstyle Есть ограничения...
Может поможет?

[Pilot]

Конечно читал и пробовал.
Ключевой момент:

Сообщение от Alaspher Ни "разбивки", ни "дружного сбора" не происходит - меняется режим выбора.

Т.е. сами-то группы остаются - а я хотел бы иметь возможность одним махом от них избавиться вовсе.

Вчера к ночи придумал:
Т.к. группы после "посещения" буфера обмена прекращают свое существование, то:
Выбираем все объекты (Ctrl+A)
Копируем их в буфер с указанием базовой точки (Ctrl+Shift+C)
Удаляем все объекты.
Вставляем из буфера (Ctrl+V) в ту же точку.
Групп после этого нет.
У этого метода есть не очень приятный нюанс: размеры, проставленные в листе скорее всего потеряют связь с новыми вставленными из буфера в модель объектами, но это уже мелочи.

Vova, как ведущий специалист по макросам, может напишешь грамотный макрос по приведенному алгоритму? Хоть какое-то, но решение проблемы.

[frostmourn]

Вроде бы всё гораздо проще...

Код:

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

 
(defun C:DelGroups ()
	(vlax-for item
		(vla-item (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))) "ACAD_GROUP")
		(if
			(vl-catch-all-error-p
				(vl-catch-all-apply 'vla-delete (list item))
			)
			(princ (strcat "\nНе удалось удалить группу " (vla-get-name item)))
		)
	)
)

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

Можно еще проще
(vlax-for item (vla-get-groups doc ...

P.S. Забыл про метки начала/конца отмены

[Pilot]

Сообщение от Кулик Алексей aka kpblc Можно еще проще (vlax-for item (vla-get-groups doc ...

Алексей, а можно полностью?
Просто к тому времени как появились эти функции типа (vla-... я перестал серьезно заниматься лиспом и с трудом их понимаю)

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

Без VLIDE, насухую:
(vlax-for item (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))
(vl-catch-all-apply (function (lambda() (vla-delete item)))))

[Vova]

Сообщение от Pilot Т.к. группы после "посещения" буфера обмена прекращают свое существование, то: ...... Vova, как ведущий специалист по макросам, может напишешь грамотный макрос по приведенному алгоритму? Хоть какое-то, но решение проблемы.

Конечно, приведенный ниже вариант с макросом неконкурентен с предложенным выше решением на лиспе, но будет работать, попутно предостав дополнительную опцию.
Вместо буфера обмена можно использовать wblock. Две кнопки, одна по созданию w-блока а другая по его вставке описаны в моей книге Autodad Язык макрокоманд и создание кнопок в главе 14 "Альтернативные ячейки памяти". Ну а дополнительная опция это одновременная глубокая очистка чертежа, которая осуществляется при создании wblock-а
Альтернативная ячейка памяти это дополнительная к буферу обмена. То есть вы можете сохранить нужные обьекты в двух (как минимум) местах: один набор в буфере, второй в месте хранения w-блока (его место заложено в кнопке)
Возможно, потребуется некая доработка чтобы в w-блоке восстановить весь набор переменных, который был в начальном файле

[Pilot]

Сообщение от Кулик Алексей aka kpblc Без VLIDE, насухую: (vlax-for item (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) (vl-catch-all-apply (function (lambda() (vla-delete item)))))

Алексей спасибо!
Попробовал - работает.
Оформил в виде команды с предварительным напоминанием типа что все группы будут развалены.

[frostmourn]

Offtop:

Сообщение от Pilot Алексей спасибо!

А я, сталбыть, ни при чём, да? Ладно-ладно!

Да ничего, я ж несерьёзно
А если есть такая уверенность, что ошибок никогда не будет, можете убрать и catch-all-apply, ещё короче станет.

[Pilot]

Сообщение от frostmourn А я, сталбыть, не при чём, да? Ладно-ладно!

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