Red de conocimiento informático - Computadora portátil - Ayuda para la programación de Autolisp

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)

)