OBJETOS SOLIDOS DUPLICADOS

Hola a todos

Tengo el siguiente problema:

Resulta que tengo un archivo con objetos en 3D y en el hay mas de 1000 tornillos, todos con el mismo volumen, y quiero borrarlos, pero todas las entidades estan dibujadas con el mismo layer osea placas, tornillos, estructura, etc., y no quiero seleccionar de uno por uno porque me va a llevar una eternidad.

consegui esta rutina pero no me funciona, yo tengo AutoCAD 2017.

haber si alguien me puede ayudar

Código:

(defun sm-del (minvol / )
  (vlax-for x (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
    (if (and (= "AcDb3dSolid" (vla-get-objectname x))
             (< (vla-get-volume x) minvol)
             ); and
      (vl-catch-all-apply 'vla-delete (list x))
      ); if
    ); vlax-for
  ); defun

Saludos

Ummm, parece que la rutina debe funcionar siempre que (vl-load-com) este cargado y pongas un volumen adecuado.
No será que son bloques??
Puedes subir un archivo ejemplo???

Un saludo

Hola Nolo

Ya la hice funcionar bien, lo unico que hice fue que en esta linea le agregue al simbolo de menor un simbolo de igual

estaba asi:

Código:

(< (vla-get-volume x) minvol)

y quedo asi:

Código:

(<= (vla-get-volume x) minvol)

y con esto me reconocio todos los valores de volumen igual o menor al que estoy ingresando de todos los solidos que necesito borrar......y vualá......funciono muy bien...

Gracias

Estupendo, me alegro, muchísimas veces son tonterías los motivos por los que no funcionan las rutinas
Un saludo