tema Re: Como puedo eliminar todos los achurados de un dibujo en AutoCAD - Todos los productos - Foro en Español

Como puedo eliminar todos los achurados de un dibujo

Anonymous — Thu, 26 Oct 2017 14:08:10 GMT

Buenos dias.

Hay alguna forma de eliminar los solidos y achurados que se encuentren en un dibujo de autocad, ya que muchos achurados se encuentran dentro de un bloque el cual esta dentro de otro bloque.y para poder eliminarlo toca ingresar a cada bloque y eliminarlos, y un dibujo promedio tiene mas de 500 bloques con achurados y es un trabajo muy complicado.

el comando FILL-DESACTIVADO no me sirve por que solo oculta los achurados pero no los elimina del dibujo.

Re: Como puedo eliminar todos los achurados de un dibujo

Edwin.Saez — Thu, 26 Oct 2017 16:04:48 GMT

@Anonymous,

Considero que el único problema que tendrías es eliminar los hatch que se encuentran dentro de los bloques, por lo tanto, te envío este lisp para que lo pruebes.

*lisp by Tharwat*

(defun c:deletehatchblock (/ doc)
  (vlax-for bks (vla-get-blocks (setq
                      doc (vla-get-ActiveDocument (vlax-get-acad-object))
                    )
                  )
    (if (and (eq :vlax-false (vla-get-islayout bks))
             (eq :vlax-false (vla-get-isXref bks))
        )
      (vlax-for obj bks
        (if (and (wcmatch (vla-get-objectname obj)
                          "AcDbSolid,AcDbHatch,AcDbWipeout"
                 )
                 (vlax-write-enabled-p obj)
            )
          (vla-delete obj)
        )
      )
    )
  )
  (vla-regen doc AcAllViewports)
  (princ)
)(vl-load-com)

Re: Como puedo eliminar todos los achurados de un dibujo

Anonymous — Thu, 26 Oct 2017 16:09:20 GMT

Muy amable, me sirvio esa rutina a la perfeccion, gracias por el aporte

Re: Como puedo eliminar todos los achurados de un dibujo

Edwin.Saez — Thu, 26 Oct 2017 16:17:00 GMT

Fue un gusto poder ayudarte! 😄

por favor Acepta como solución si te ayudo mi respuesta!

Re: Como puedo eliminar todos los achurados de un dibujo

j_cordero — Fri, 02 Mar 2018 15:38:19 GMT

hola que tal oye la rutina elimina

"AcDbSolid,AcDbHatch,AcDbWipeout"

si solo quiero los sólidos seria solo AcDbSolid

Re: Como puedo eliminar todos los achurados de un dibujo

karenyusieth — Fri, 04 Feb 2022 14:48:48 GMT

Alguien me puede orientar con como agregar esa lisp a autocad ?

Alguien tiene el archivo que porfa lo comparta o como se genera ese archivo

gracias

Re: Como puedo eliminar todos los achurados de un dibujo

calderg1000 — Sun, 06 Feb 2022 22:28:16 GMT

Saludos @karenyusieth

Para cargar una rutina autolisp al Autocad, debes utilzar el comando APPLOAD, luego direccionas hacia la ubicacion del archivo que contiene la rutina, seleccionas el archivo y presionas LOAD.

Luego ya puedes utilizar el nuevo comando, digitando su nombre, en este caso debes digitar: deletehatchblock

Aqui te adjunto el archivo de la rutina, espero te sea de ayuda

Adjunto link de video explicativo.

https://www.youtube.com/watch?v=jCA3p35tPHU