¿Cómo sumo longitudes de polilineas en AutoCAD?

[pablochavez]

Tengo una consulta acerca de AutoCAD, y es que si existe alguna forma de sumar las longitudes de un conjunto de polilineas en un dibujo, ya que hasta la fecha solo he podido hacerlo de forma manual seleccionando el conjunto de polilineas y dando el comando LIST para ir anotando sus longitudes lo cual es muy tedioso cuando son muchas.
Asi que si alguien conoce una mejor forma de hacerlo y desea compartirlo se lo agradeceré

[ROJOBE]

Hola amigos:

AutoCAD tiene el comando DATAEXTRACTION que permite extraer datos de un plano (como una suma de polilíneas, por ejemplo). Estos datos son transferidos desde la hoja de AutoCAD hasta una hoja de cálculo Excel de manera automática y de forma columnar, lugar donde luego se puede hacer su sumatoria con el comando Excel AUTOSUMA.

Este comando se puede accionar escribiéndolo en la barra de comandos o bien como HERRAMIENTAS> EXTRACCION DE DATOS.

Saludos muy especiales en estas fiestas de fin de año

[Josemt57]

Le adjunto un programa en autolisp pero opera con lineas, es posible que pueda modificarse para polineas, si lo modifica publiquelo

[eltendal]

aqui le dejo uno que consegui buscado en internet y ya lo probe me avisas si te sirve te dejo archivo adjunto

[mekafime]

Interesante pero alguien sabe como dividir lineas entre sus intersecciones?, osea si una hay dos lineas intersectandose, al usar el comando que desconosco, estas lineas se dividan quedando 4 lineas, unidos por un punto.

[eltendal]

Interesante pero alguien sabe como dividir lineas entre sus intersecciones?, osea si una hay dos lineas intersectandose, al usar el comando que desconosco, estas lineas se dividan quedando 4 lineas, unidos por un punto.

NO TE ENTIENDO LO QUE QUIERES HACER , SI ME EXPLICAS MEJOR QUISAS

[Drawdejc]

Aqui el lisp para sumar lineas y etiquetar en un texto

(defun C:suli ()
(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))
)
(setq pucot (getpoint "Donde colocar texto? : "))
(command "_text" "Justify" "mr" pucot 0 (rtos tot 2 2) 3 )

(princ (strcat "\nLongitud Total: " (rtos tot)))
)
)
(princ)
)

nada es mio

[caifan-2007]

Gracias por tu rutina, yo tenia una que se llama somaper.lsp pero en el autocad 2015 no funciona, Saludos

[Josemt57]

aqui le dejo uno que consegui buscado en internet y ya lo probe me avisas si te sirve te dejo archivo adjunto

Excelente rutina de autolisp

[jesuss055]

aqui le dejo uno que consegui buscado en internet y ya lo probe me avisas si te sirve te dejo archivo adjunto

Excelente funciona al 100 autocad 2015 se agradece