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
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

AutoCad - LISP: suma distancias de lineas

  Imprimir  
Vista:

LISP: suma distancias de lineas

Publicado por APOLLO (24 intervenciones) el 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!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:LISP: suma distancias de lineas

Publicado por PABLO (1 intervención) el 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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LISP: suma distancias de lineas

Publicado por Edwin (1 intervención) el 30/07/2012 17:48:06
Genial, funciona bien, gracias pablo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LISP: suma distancias de lineas

Publicado por Luis (1 intervención) el 23/01/2013 13:53:09
solo posteo para agradecerte pablo por la rutina que adjuntaste me fue de mucha mucha mucha utilidad!!

GRACIAS!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:LISP: suma distancias de lineas

Publicado por lomar (1 intervención) el 15/08/2014 16:25:18
BUENIIIIIIISIMO. Funciona perfectamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar