AutoCad - LISP: suma distancias de lineas

   
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

LISP: suma distancias de lineas

Publicado por Henry (1 intervención) el 23/12/2015 23:24:55
Bueno, rece lo veo este lips, nunca he programado .. espero que me ayude... tengo la versión del cad 2016. pero ante todo te quería agradecer..
Henry
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