Cómo cortar líneas por lotes en un bloque en Lisp

(ai_undo_on); Habilitar DESHACER

(ai_undo_push); Iniciar DESHACER GRUPO

(save_var); p>

(setq doc (vla-get-activedocument

); setq doc (vla-get-activedocument

) p> (save_var); guardar variables de entorno

(setq doc (vla-get-activedocument

(vlax-get-acad-object)

)

)

(setq tf T)

( while tf

(setq e (nentsel "\n select entidad lt; exitgt;: "))

(if e

(cond

((= (longitud e) 2)

(xdrx_object_delete (car e))

)

((= (longitud e) 4)

(progn

(setq ents (última e)

len (longitud ents )

)

(if (= len 1)

(setq todel (car e ))

(setq todel (nth (-)len 2)ents))