lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Le envió una rutina lisp para sumar multiples líneas, polilineas y arcos de un dibujo espero que le pueda servir.
el lisp suma las siguientes entidades:
Suma distancias consecutivamente entre puntos
Suma distancias no necesariamente entre puntos consecutivos
Suma las longitudes de un número indeterminado de arcos
Suma las longitudes de un número indeterminado de líneas
Suma las longitudes de un número indeterminado de líneas y/o polilineas
Suma las áreas y perímetros/longitudes de un número indeterminado de polilineas
Suma las longitudes de todas las líneas de una capa
Cordialmente
José Q.
1 Attachment(s)
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Me disculpan me falto el lisp
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Una rutina que sirve para seleccionar grupos de lineas, arcos y/o polilineas, obtiene
longitudes y devuelve la suma total:
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)
)
)
(princ "\nsuma total de longitudes: ")
(princ sl)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
GENIAAAAAAAAAAAAAAALLLLLLLLLLLLLLL
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Muchas gracias j, me cae como del cielo...
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Gracias! funciona perfecto!!
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
BUEN..POST....APLICADO EN AUTOCAD 2010..SI CORRE...GRXS....
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
gracias por el aporte esta muy bueno
Re: lisp para sumar multiples líneas, polilineas y arcos de un dibujo
Hola a todos! Oye super bueno este LISP, Nunca antes habia usado uno y corrio perfectamente bien en cad 2007. Oye ahora lo que necesito es un LISP que me cuente las intersecciones que se generaron entre 2 o mas polilineas. Donde puedo encontrarlo, o si es algun comando que probablemente desconozca. Gracias a todos!:mrgreen: