[rvv]

Может быть кому-то пригодится решение проблемы, возникшей у меня вчера.
В пришедших от заказчика чертежах все вхождения блоков имели выключённым аттрибут Allow Exploding, что по ряду причин нас не устраивало и проблема требовала решения. Сам я не программист, поэтому пришлось обратиться ко всемирному разуму.
На просторах сети было найдено обсуждение, которое решило мой вопрос наилучшим образом. Привожу код за авторством тамошнего юзера whdjr. Код опубликован открыто, посему не вижу препятствий к его дальнейшему распространению.

Установка Allow Exploding для всех блоков чертежа:

Код:

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

 (defun c:eb ()
  (vlax-map-collection
	(vla-get-blocks
	  (vla-get-activedocument (vlax-get-acad-object))
	)
	'(lambda (x)
	   (and
	 (vlax-property-available-p x 'explodable)
	 (eq (vlax-get-property x 'explodable) :vlax-false)
	 (not (vlax-put-property x 'explodable :vlax-true))
	   )
	 )
  )
)

То же только для выбранных объектов.

Код:

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

 (defun c:ebi (/ blk)
   ;;;---------------------------------------------------------------------;;;
   ;;;A rewrite of the entsel function.					  ;;;
   ;;;---------------------------------------------------------------------;;;
     (defun ent_sel (msg / ent)
   	(while (not ent)
   	  (cond ((setq ent (entsel msg)))
   		((= (getvar "ErrNo") 7)
   		 (princ "\nSelection missed.  Please try again.")
   		)
   		((= (getvar "ErrNo") 52) (exit))
   	  )
   	)
   	ent
     )
   ;;;
   ;;;
   ;;;
     (while (not blk)
   	(setq blk (car (ent_sel "\nSelect Block:  ")))
     )
     (mapcar '(lambda (x)
   		 (and
   		   (vlax-property-available-p x 'explodable)
   		   (eq (vlax-get-property x 'explodable) :vlax-false)
   		   (not (vlax-put-property x 'explodable :vlax-true))
   		   (princ "\nThe selected Block is now Explodable!  ")
   		 )
   	   )
   	  (list
   		(vla-item (vla-get-blocks
   			(vla-get-activedocument (vlax-get-acad-object))
   			  )
   			  (cdr (assoc 2 (entget blk)))
   		)
   	  )
     )
     (princ)
   )

[VVA]

Добавлю так же, что в теме LISP. Подготовка подосновы есть команда

BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)

[rvv]

Сообщение от VVA Добавлю так же, что в теме LISP. Подготовка подосновы есть команда

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