Rutina que sirve para cerrar grupos de polilíneas abiertas.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:close-plines (/ sel cant index obj origen final)
  (vl-load-com)
  (prompt "****\nSeleccione polilineas a cerrar\n****")
  (setq sel (ssget '((0 . "*POLYLINE")))
 cant (sslength sel)
 index 0
 )
      (repeat cant
 (setq obj (ssname sel index))
  (setq origen (vlax-curve-getstartpoint obj)
        final  (vlax-curve-getendpoint obj)
  )
  (if (equal origen final 0.001)
    (alert "Pline cerrada....")
    (command "_pedit" obj "_c" "")
  );if
 (setq index (1+ index))
      );repeat
  (princ)
);fin
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;