Cómo cortar líneas por lotes en un bloque en Lisp
Delsubent (/ e tf doc)
(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 p>
(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))