Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Crear cuenta

AutoCad - LISP: suma distancias de lineas

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:LISP: suma distancias de lineas
Autor:APOLLO (24 intervenciones)
Fecha:28/12/2004 16:03:50
alguien conoce una rutina lisp para sumar las distancias de lineas???

gracias por adelantado y felices fiestas para todos!!!
Responder Subir
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:RE:LISP: suma distancias de lineas
Autor:PABLO (1 intervención)
Fecha:10/09/2007 22:13:48
; ----------------------------------------------------------------------
; (Returns the sum of selected line objects)
; Copyright (C) 1997 DotSoft, All Rights Reserved
; ----------------------------------------------------------------------

; Para lineas con diferente cota en sus extremos se tomara la longitud real (3D Longitud), no la proyectada.

(defun C:sumlinea ()
(setq sset (ssget '((0 . "LINE"))))
(if sset
(progn
(setq tot 0.0)
(setq num (sslength sset) itm 0)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq pt1 (cdr (assoc 10 ent)))
(setq pt2 (cdr (assoc 11 ent)))
(setq dis (distance pt1 pt2))
(setq tot (+ tot dis))
(setq itm (1+ itm))
)
(princ (strcat "\nLongitud Total: " (rtos tot)))
)
)
(princ)
)

;********************************* HOLA CARACOLA ********************************

(prompt "\n*** Conjunto de rutinas para mediciones correctamente cargadas ***")
(prin1)
Comentar Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:RE:LISP: suma distancias de lineas
Autor:Edwin (1 intervención)
Fecha:30/07/2012 17:48:06
Genial, funciona bien, gracias pablo.
Comentar Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:RE:LISP: suma distancias de lineas
Autor:Luis (1 intervención)
Fecha:23/01/2013 13:53:09
solo posteo para agradecerte pablo por la rutina que adjuntaste me fue de mucha mucha mucha utilidad!!

GRACIAS!!
Comentar Subir