Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Te pasaste!!!!!!
Excelente lisp!! :D
+10! jakjakaj
Quote:
Originally Posted by
jquintero
Me disculpan me falto el lisp
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
FUNCIONA A LA PERFECCION, ES UNA GRAN HERRAMIENTA, GRACIAS.
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
oye me podrias mandar el lisp lo quise descargar y no pude
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Hola, perdón... pero no sé si hice mal o no me funciona...
pongo SUMLP selecciono las polilíenas y me da error ¿?
Estoy haciendo algo mal?
GRACIAS.
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
La rutina, tal como está, no suma correctamente. Lo que hace es sumar la longitud del primer objeto seleccionado tantas veces como objetos se han seleccionado. Para que funcione bien tiene ser.
Code:
(defun c:sll () (sum-long-lin) (princ))
(defun sum-long-lin (/ ss c i sl e vlae l)
(vl-load-com)
(setq ss (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE")))
c (sslength ss)
i 0
sl 0
)
(repeat c
(setq e (ssname ss i)
vlae (vlax-ename->vla-object e)
l (vlax-get vlae 'length)
sl (+ l sl)
i (+ i 1)
)
)
(princ "\nsuma total de longitudes: ")
(princ sl)
)
Le faltaba i (+ i 1)
Tampoco funciona si se selecciona un arco
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
muy bueno....buen aporte al mundo Cad
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Buen aporte! Gracias por compartir (Y)
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Muy buen lisp, funciona a la perfeccion.