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é
Canales de Ingeniería Civil en: *Whatsapp* / *Telegram*
¿Cómo sumo longitudes de polilineas en AutoCAD?
Reglas del Foro
No se Permite Publicar correos para solicitar informacion, todo se debe manejar dentro del foro para que se comparta con todos, ademas de que no es seguro publicar emails en los foros, porque estos son detectados por programas que envian SPAM o Correo Basura
No se Permite Publicar correos para solicitar informacion, todo se debe manejar dentro del foro para que se comparta con todos, ademas de que no es seguro publicar emails en los foros, porque estos son detectados por programas que envian SPAM o Correo Basura
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
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
Le adjunto un programa en autolisp pero opera con lineas, es posible que pueda modificarse para polineas, si lo modifica publiquelo
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.
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 QUISASmekafime escribió: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.
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
(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
-
- Usuario Principiante
- Mensajes: 5
- Registrado: Vie Mar 07, 2008 1:44 pm
- Ubicación: DF
Gracias por tu rutina, yo tenia una que se llama somaper.lsp pero en el autocad 2015 no funciona, Saludos
-
- Similar Topics
- Respuestas
- Vistas
- Último mensaje
-
- 0 Respuestas
- 187 Vistas
-
Último mensaje por carlosesquinas
-
- 1 Respuestas
- 1968 Vistas
-
Último mensaje por construaprende
-
- 0 Respuestas
- 1739 Vistas
-
Último mensaje por karenmontero
-
- 0 Respuestas
- 1905 Vistas
-
Último mensaje por pannus0
-
- 0 Respuestas
- 2588 Vistas
-
Último mensaje por eduardo3800
-
- Información
-
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 11 invitados