¿Cómo se explotan los bloques SÓLIDOS?

SOLIDOS no permite explotar los bloques, por razones de seguridad, ya que se pierde el dispositivo.

Sin embargo, si desea hacer explotar el bloque de todos modos, primero debe activar el comando EXPLODE en los bloques SÓLIDOS.

Para ello, guarde el "lisp" a continuación, cárguelo con el comando APPLOAD y corre.

Para utilizar LISP en CAD, después de cargarlo, llame al comando MakeExplodable y seleccione los bloques

Por último, llame al comando EXPLODE y seleccione los mismos bloques.

(defun c:FazerExplodivel (/ ss ent vla BLOCOS)
  (setq    ss (ssget '((0 . "INSERT")))

  )
  (vl-load-com)
  (SETQ    BLOCOS (VLA-GET-Blocks
         (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
           )
  )

  (REPEAT (SSLENGTH SS)
    (SETQ ENT (SSNAME SS 0)
      VLA (VLAX-ENAME->VLA-OBJECT ENT)
    )

    (VLA-PUT-Explodable
      (VLA-ITEM BLOCOS (VLA-GET-EffectiveName VLA))
      :VLAX-TRUE
    )

    (SSDEL ENT SS)
  )
)