lisp para sumar multiples líneas, polilineas y arcos de un dibujo

[i19.vity741889]

Muchiísima gracias por su aporte

[araceli.salinasbr746444]

gracias!!!

[mgarciagamra749808]

Gracias!!! Me viene perfectos

[R0m3r014]

Aqui un codigo para sumar Lineas, Polilineas, Arcos, Circulos, Elipses, Spline, 3dpoly

(defun c:SUMALL(/ fList firSet entSet filOut entList totLen)
  
  (vl-load-com)
  
  (setq fList '((-4 . "<OR")(0 . "*LINE")(0 . "CIRCLE")
		(0 . "ARC")(0 . "ELLIPSE")(-4 . "OR>")
		(-4 . "<NOT")(0 . "MLINE")(-4 . "NOT>"))
	filOut 0
	); end setq
  (if
    (not
      (and
        (setq firSet(ssget "_I")
              entSet(ssget "_I" fList)
              ); end setq
       ); end and
     ); end not
     (progn
       (princ "\n<<< Seleccione entidades para calcular la longitud Total: >>> ")
       (setq entSet(ssget fList))
      ); end progn
      (setq filOut(-(sslength firSet)(sslength entset)))
    ); end if
  (if entSet
    (progn
      (setq entList(mapcar 'vlax-ename->vla-object
                    (vl-remove-if 'listp
                     (mapcar 'cadr(ssnamex entSet))))
            totLen(apply '+
                    (mapcar '(lambda (x)
                      (vlax-curve-getDistAtParam x
                        (vlax-curve-getEndParam x)))entList))
            ); end setq
             (if(/= 0 filOut)
                 (princ(strcat "\n<!> " (itoa filout)
                   " were filtered out (unsupported type)! <!>"))
	       ); end if
             (princ(strcat "\n<<< Total de Entidades: "(itoa(length entList))
                           ", Longitud total: "(rtos totLen) " >>> "))
      ); end progn
    (princ "\n<!> No has seleccionado Nada! <!>")
    ); end if
  (princ)
 ); end of c:SUMALL

[jobel_ad]

Funciona perfecto, gracias

[R0m3r014]

De Nada,me alegra poder Ayudar.

[victoramesquitaruiz784826]

Muchas gracias sos un crack

[eprocad2000799275]

SALUDOS AMIGO NO ME FUNCIONA LA RUTINAO ESTE CODIGO ME CARGA EL LISP SUMALL PERO CUANDO SELECCIONO ME DA ERROR NIL

[Ed Jobe]

SALUDOS AMIGO NO ME FUNCIONA LA RUTINAO ESTE CODIGO ME CARGA EL LISP SUMALL PERO CUANDO SELECCIONO ME DA ERROR NIL

Funciona para mí. Tal vez escribiste algo mal. Adjunto el código como un archivo lsp. Para cargarlo, puede arrastrar el archivo a AutoCAD o escribir (load "sumall") en la línea de comandos.

Nota: solo puede seleccionar los tipos de entidad que se muestran en el video anterior.