Te envio un lisp ojala te sirva :

(defun suma-linpol   ()
  (initget "Capa Seleccion")
  (setq opt (getkword " Sumar por [Capa/Seleccion] <Seleccion>: "))

  (if (= opt nil)
    (setq opt "Seleccion")
  )

  (if (= opt "Seleccion")
    (progn
      (setq lineas (ssget))
      (setq polilineas lineas)
   (progn
     (setq   m-lin (sslength lineas)
      m     0
     )
     (setq objlin 0)
     (repeat m-lin
       (setq nombre (ssname lineas m))
       (if   (= "LINE" (cdr (assoc 0 (entget nombre))))
         (progn
      (setq p1 (cdr (assoc 10 (entget nombre)))
            p2 (cdr (assoc 11 (entget nombre)))
      )
      (setq distancia-l (distance p1 p2))
      (setq lst-distancia (cons distancia-l lst-distancia))
      (setq objlin (1+ objlin))
         )
       )
       (setq m (1+ m))
     )
     (setq lonlin-total (apply "+ lst-distancia))
   ) ;_progn
     
   (progn
     (setq   n-pol (sslength polilineas)
      n     0
     )
     (setq objpol 0)
     (repeat n-pol
       (setq nombre (ssname polilineas n))
       (if   (= "LWPOLYLINE" (cdr (assoc 0 (entget nombre))))
         (progn
      (command "_. Area" "_o" nombre)
      (setq lon (getvar "perimeter"))
      (setq longitud (cons lon longitud))
      (setq objpol (1+ objpol))
         )
       )
       (setq n (1+ n))
     )
     (setq lonpol-total (apply "+ longitud))
     (alert (strcat "("(rtos n-pol 2 0)")"
          "  Objetos seleccionados"
          " ______________________________   "
          "       "
          "("(rtos objlin 2 0)")"
          "  Líneas"
          " "
          (rtos lonlin-total 2 2)
          "  unid. "
          "       "
          "("(rtos objpol 2 0)")"
          "  Polilíneas"
          " "
          (rtos lonpol-total 2 2)
          "  unid. "
          " ______________________________   "
          " "
          "TOTAL  "
          "("(rtos (+ objlin objpol) 2 0)")"
          "  Líneas + Polilíneas"
          "       "
          (rtos (+ lonlin-total lonpol-total) 2 2)
          "  unid. "
          " "
       )
     )
   ) ;_progn
    ) ;_prong
    (progn
      (setq sel-capa
        (cdr
          (assoc 8
            (entget (car (entsel " Seleccione Objeto: ")))
          ) 
        )
      )
      (setq lineas
        (ssget "_x"
          (list "(0. "LINE") (cons 8 sel-capa))
        )
      )
      (if (/= lineas nil)
   (progn
     (setq   m-lin (sslength lineas)
      m     0
     )
     (setq objlin 0)
     (repeat m-lin
       (setq nombre (ssname lineas m))
       (if   (= "LINE" (cdr (assoc 0 (entget nombre))))
         (progn
      (setq p1 (cdr (assoc 10 (entget nombre)))
            p2 (cdr (assoc 11 (entget nombre)))
      )
      (setq distancia-l (distance p1 p2))
      (setq lst-distancia (cons distancia-l lst-distancia))
      (setq objlin (1+ objlin))
         )
       )
       (setq m (1+ m))
     )
     (setq lonlin-total (apply "+ lst-distancia))
   ) ;_progn
        (progn
     (setq lonlin-total 0)
          (setq objlin 0)
   )
      ) ;_if
    (progn
      (setq polilineas
        (ssget "_x"
          (list "(0. "LWPOLYLINE") (cons 8 sel-capa))
        )
      )
      (if (/= polilineas nil)
   (progn
     (setq   n-pol (sslength polilineas)
      n     0
     )
     (setq objpol 0)
     (repeat n-pol
       (setq nombre (ssname polilineas n))
       (if   (= "LWPOLYLINE" (cdr (assoc 0 (entget nombre))))
         (progn
      (command "_. Area" "_o" nombre)
      (setq lon (getvar "perimeter"))
      (setq longitud (cons lon longitud))
      (setq objpol (1+ objpol))
         )
       )
       (setq n (1+ n))
     )
     (setq lonpol-total (apply "+ longitud))

   ) ;_progn
        (progn
     (setq lonpol-total 0)
          (setq objpol 0)
   )
      ) ;_if
     (alert (strcat "Capa  "
          """
          sel-capa
          """
          " ______________________________   "
          "       "
          "("(rtos objlin 2 0)")"
          "  Líneas"
          " "
          (rtos lonlin-total 2 3)
          "  unid. "
          "       "
          "("(rtos objpol 2 0)")"
          "  Polilíneas"
          " "
          (rtos lonpol-total 2 3)
          "  unid. "
          " ______________________________   "
          " "
          "TOTAL  "
          "("(rtos (+ objlin objpol) 2 0)")"
          "  Líneas + Polilíneas"
          "       "
          (rtos (+ lonlin-total lonpol-total) 2 3)
          "  unid. "
          " "
       )
     )
      ) ;_progn
    ) ;_progn
  ) ;_if
)

(defun c:sulipo   (/      tipo      polilineas   lineas
       n-pol      n      m-lin      m
       nombre      lon      longitud   linpol
       lonlin-total   lonpol-total   p1      p2
       distancia-l   lst-distancia   opt      sel-capa
      )
  (setvar "cmdecho" 0)
  (suma-linpol)
  (setvar "cmdecho" 1)
  (prin1)
)

(prompt " *** nuevo comando SuLiPo definido. ***")
(prin1)

Copias esta rutina, lo pegas en un block de notas lo guardas con extencion "LSP"  es todo lo cargas al cad y listo es lo que nesecitas

Hola compañero podrias explicar como cargar las rutinas lisp gracias

Hola, Julio César

Tal como te indica Fernando, debes copiar los datos en un archivo de texto, salvarlo como SULIPO. TXT y después renombrarlo como SULIPO. LSP. Después usas el comando APPLOAD de AutoCAD, buscas el archivo y le das a CARGAR. Para usar la utilidad tan sólo has de teclear SULIPO.

Gracias Fernando por tu aporte. Un saludo

Curro

Hola, he intentado probar esto y cuando pongo sulipo me dice comando sulipo desconocido, he probado con otros nombres y tampoco me va.

Necesito alguna forma de sumar todas las longitudes de los elementos de un dibujo pliiiiiis

Hola forero anónimo,

Danos alguna pista. ¿Se te cargó correctamente (apareció una confirmación en la línea de comandos justo después de cerrar el cuadro de diálogo de APPLOAD)?

Ya nos cuentas. Saludos

Curro

Comando: _appload sulipo. LSP correctamente cargado(s).
Comando: ; error: error de sintaxis

Que hago mal , gracias

Hola ADR

Efectivamente parece que esta versión de SULIPO tiene algún error de sintaxis (le sobrará algún paréntesis) que no estoy dispuesto a buscar. Te adjunto el archivo SULIPO. TXT (que yo copié en algún otro post) que a mí sí que me funciona y al que debes cambiarle la extensión a LSP. Espero que así no tengas problema. Un saludo

Curro

sulipo

Gracias amigos funciona el archivo sulipo. Txt, yo no sabía que podrían agregarse este tipo de complementos al autocad.

Ahora quisiera que me indiquen donde encuentro la descripción de estos comandos utilizados en el sulipo, formatos, y un editor de los mismos, etc para realizar mas aplicaciones en el autocad. Deseo aprender a programar en ese código. Y por cierto si no es mucho pedir donde encuentro más codigos o aplicaciones como el sulipo para autocad listos para usar. Gracias de antemano, ustedes son muy buenos en esto y yo deseoi conocer MAS.

Hola Juankaz,

En internet dispones de multitud de rutinas programadas en lenguaje LISP. SI te interesa aprender programación en este lenguaje también puedes encontrar cursos. Quizá te interese comprar un buen manual de programación LISP.

Un saludo

Curro

Una maravilla perfecto gracias por todo me inscribo en la pagina y ya a compartir informacion... Saludos a todos

Hola Raúl,

No hay de qué. Me alegro de haberte sido de ayuda. Un saludo

Curro

Muchisimas gracias me ahorraste 2 dias de cuantificar lineas.