Ayuda para la programación de Autolisp
Cambie la idea, el esquema no se elimina, el código es el siguiente:
(defun c:111 ( / ptb ptb1 sel1 x)
( if (setq sel1 (entsel))
(progn
(setq sel1 (car sel1))
(setq ptb (mapcar 'cdr (vl-remove -if '(lambda (x)(/= (car x) 10)) (entget sel1))))
(if (setq ptb1 (ssget "_cp" ptb));Si el objeto es seleccionado
(vl-catch-all-apply 'ssdel (list sel1 ptb1));Excluir líneas de contorno del conjunto de selección
)
(if ( ssname ptb1 0);Si el conjunto de selección Hay otros objetos en él
(comando "BORRAR" ptb1 ""); eliminar
)
)
)
(princ)
)