¿Cómo extraer coordenadas de vértices de múltiples polilíneas seleccionadas en AutoCAD?
Saludos @Anonymous
Aplicando el comando (_list) a tus polylineas deberías de poder obtener la información deseada.
También tengo una rutina que obtiene las coordenadas de puntos seleccionándolos consecutivamente y colocandolos en pantalla uno por uno, luego lo que puedes hacer es copiar estos textos en una hoja de excel o acomodarlos por orden dentro de una tabla en tu dibujo. Debes cargarla usando el comando (_ap) y buscar el archivo en la ruta donde lo descargues o copies en tu computador
El comando se ingresa con (c3d) luego te pide la altura de texto y luego que selecciones el punto, luego que piques en pantalla donde deseas colocar la info y sigues igual con el siguiente punto hasta que termines con un enter el comando
Espero te ayude en algo
Si mi comentario da solución a tu consulta selecciónala como respuesta aceptada, para que ayudes a otros en futuras consultas a este tema, de lo contrario no dejes de comentar como vas con tu consulta
Solución aceptada
Estimado @jisanchezTPB4T
Aquí te adjunto una rutina Autolisp que he editado para que se ajuste a tus requerimientos, adjunto vídeo screencast explicativo y el archivo Lisp.
Espero que te sea de ayuda.
Saludos.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Buenas tardes, he probado la rutina Lisp y cuando pide el primer punto de la polilínea para escribir el nombre de esta la rutina falla y se para.
El fichero TXT con las coordenadas si lo crea bien.
Adjunto captura del desarrollo de la orden y su fallo.
Uso la versión 24 de AutoCAD.
Gracias.
Saludos @juan_talaveraWAL8U
Prueba esta modificación...
;;;Rutina Autolisp Editado por CCG, V01: 17-10-23.
;;;Exporta Coordenadas de polilinea a un archivo de texto.
;**********************************************EXPORTA COORDENADAS DE POLILINEA****************************************
(defun c:datapol1( / obj c num ind nombre ruta lrenglones renglon linea obj c i x y e ht htn)
(vl-load-com)
(setq *model-space* (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setq nombre(getvar "dwgname"))
(setq ruta(getvar "dwgprefix"))
(setq lrenglones nil)
(setq renglon nil)
(setq ht(getstring"\n Ingresar Altura de texto..."))
(setq num 1)
(setvar "Dynmode" 1)
(setvar "Osmode" 512)
;;; -----------------------------------------------LOOP WHILE---------------------------------------------------------
(setq plinea T)
(while plinea
(Setq ind 1)
(setq plinea(car(entsel"\n Selecciona Polilinea...")))
(setq obj (vlax-ename->vla-object plinea))
(setq c (vlax-get obj "Coordinates")
i 0
e (vla-get-elevation obj)
)
(setq iv 0)
(setq htn(atoi ht))
(setq x (nth 0 c)
y (nth 1 c)
pto (list x y)
)
(Entmake (list '(0 . "text")
(cons 1 (strcat "Polilinea " (itoa num)))
(cons 10 (mapcar '+ pto (list (* 2 htn) 0. 0.)))
(cons 40 htn)
(cons 62 1)
)
)
;-------------------------------------------------LOOP REPEAT----------------------------------------------------------
(repeat (/ (length c) 2)
(setq x (nth i c)
y (nth (1+ i) c))
(setq ptoN(list x y))
(setq Nvert(vla-addtext *model-space* ind (vlax-3d-point ptoN) htn))
(setq i (+ i 2))
(setq renglon(strcat "Polilinea "(rtos num 2 0) " " (rtos ind 2 0) " " (rtos x 2 2) " " (rtos y 2 2) ))
(setq lrenglones(cons renglon lrenglones))
(setq ind(1+ ind))
(princ)
);Repeat
(Textline1)
(TextlineN)
(startapp "notepad" archivo)
(setq num (1+ num))
);While
);Defun
;-------------------------------------------------------SUBROUTINE1----------------------------------------------------
(defun Textline1()
(setq xx(strlen nombre))
(setq yy(- xx 4))
(setq narch(substr nombre 1 yy))
(setq archivo(strcat ruta narch "-datos" ".doc"))
(setq renglon1(strcat "Descripcion" " " "N° Vertice" " - " "Coord.Este" " - " "Coord.Norte"));titulo
(setq abre(open archivo "w"))
(write-line renglon1 abre)
(close abre))
;-------------------------------------------------------SUBROUTINE2----------------------------------------------------
(defun TextlineN()
(setq abre(open archivo "a"))
(setq cont 0)
(setq lrenglones(acad_strlsort lrenglones))
(repeat(length lrenglones)
(write-line(nth cont lrenglones)abre)
(setq cont(1+ cont)))
(close abre))
;-----------------------------------------------------MSG--------------------------------------------------------------
(alert (strcat "\n Lisp: Export-Coord. Polilinea" "\n\n Ingresar: Datapol1"))
(princ)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Saludos Juan
Me da mucho gusto que te sea de ayuda...
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Estimado @john_leonVP5AN
Me da mucho gusto que te haya sido de ayuda. Cualquier consulta sobre el tema con mucho gusto estamos por aqui.
Saludos.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.