Esta rutina desarrollada con AutoLisp nos genera una tabla con las coordenadas Norte y Este, 
adicionalmente permite obtener el valor de la coordenada Z, es decir la cota de un punto, estas coordenadas son obtenidas a través de la indicación de puntos en pantalla.
Observemos el cuadro de diálogo del programa:
1.- Sección: Destino de las coordenadas.-
En esta sección podrás elegir el destino de las coordenadas obtenidas, el cual puede ser una tabla insertada en AutoCAD o un archivo de valores (CSV) de Excel.
Si eliges una tabla, podrás definir en qué escala se insertará dicha tabla y así se podrá controlar el tamaño de la misma (incluidos los textos).
2.- Sección: Texto del vértice.-
Si el punto de coordenada que deseas obtener tiene un texto ya creado, por ejemplo (P1), aquí deberás de indicar Seleccionar texto, si no tiene ningún texto en el vértice que desea exportar, se deberá de indicar Automático.
En el caso de indicar Automático, se podrá optar por insertar un texto automáticamente en el punto del vértice o un círculo.
3.- Sección: Coordenadas.-
Aquí podrás elegir si el programa obtiene o no la coordenada Z del punto indicado y el número de decimales que tendrán las coordenadas en la tabla o en el archivo CSV.
Para utilizar esta rutina debes de hacer lo siguiente:
- Carga el archivo lisp en AutoCAD.
- Ingresa el nombre del comando: corex
- Indica los puntos que deseas obtener
- Presiona enter o clic derecho cuando deseas finalizar la selección de los puntos y deseas generar la tabla o el archivo
Comentarios (31)
muy buenos aportes
Hola,
estoy tratando de ejecutar esta rutina en Autocad 2007, pero la consola me devuelve los siguientes errores:
- Cuando pulso el botón de archivo aparece:
Error: no function definition: ACET-FILENAME-EXT-REMOVE
- Cuando selecciono varios objetos y pulso enter o botón derecho:
<...>
Pike el vértice a exportar: <<4>>
Pike el vértice a exportar:
Comando "STYLE" desconocido. Pulse F1 para obtener ayuda.
Comando "ARIAL" desconocido. Pulse F1 para obtener ayuda.
Comando "ARIAL.TTF" desconocido. Pulse F1 para obtener ayuda.
¿Pueden indicarme su necesario efectuar algún paso previo a la ejecución y que estoy pasando por alto?¿Por qué está fallando el programa?
GRACIAS!
Hola Daviar.
Por lo que nos comentas los motivos y las soluciones serian las siguientes:
1.- Error: no function definition: ACET-FILENAME-EXT-REMOVE
Este mensaje puede aparecer porque no tienes instalado Express Tools, debes de instalarlo para que funcione correctamente esta rutina y muchas otras que están basadas en las funciones adicionales de las utilidades Express.
2.- Comando "STYLE" desconocido. Pulse F1 para obtener ayuda.
Aquí se genera un error porque tu AutoCAD está en español y el comando llamado Style esta en inglés, abre el archivo del lisp y donde dice "Style" agrégale un guión abajo como lo siguiente: "_style".
Con esas pequeñas consideraciones ya no deberías de tener problemas.
Sls.
Exelente rutina, muy util para hajilizar el trabajo....
Gracias por la aportacion...
Adelante con el foro y el sitio web, Felicidades!!!
Hola, la rutina no dejar exportar a un archivo. Le doy las instrucciones, pero siempre me dice que "Debe de elegir la ruta del archivo a exportar". Què ocurre??
Esta rutina se ha actualizado a la versión 2.7, gracias nocaima por tu comentario que nos ha permitido haces algunas pequeñas correciones al Lisp, cualquier otro comentario será bienvenido.
Ahora puedes descargar esta nueva versión de Corex.
Hola, què eficiencia, estoy sorprendido. El Lisp ahora funciona complétamente. Muchas gracias de antemano por la rutina, y también gracias por haberla ajustado. Buen aporte. Ojalá el Blog siga creciendo.
Mil felicitaciones.
saludos
yo la descargue tambien y me pasa lo mismo no me
acepta la ruta del archivo
como como hago para que funcione
gracias
Hola, en la versión 2.7 de Corex, se ha solucionado ese impase, verifica que tengas esa versión, si es asi, cuando cargues el comando y eligas en el destino de las coordenadas la opción Archivo, deberás de hacer clic tambien en el botón que esta a su costado, para que así elijas la ruta correspondiente.
SI te sigue saliendo el error nos gustaría que nos envies mas detalles del mismo (que mensajes de error se generan) y si es necesario una captura de imagen.
Sls.
muchas gracias..excelente rutina...solo una par de comentarios:
_la tabla, a pesar que pincho cerca de mi grilla, es creada muy lejos de esta, es decir solo al hacer un zoom extents puedo encontrar la tabla muy alejada...
_es posible pinchar el punto y que inmediatamente agregue el texto?
gracias..
Hola niglofo, posiblemente la causa de que la tabla aparezca bien alejada del punto de inserción que le indicas se deba a que con el comando UCS has modificado el origen de coordenadas, puedes probar en otro archivo que no hayas modificado las mismas para ver los resultados.
Lo utilize hace poco,
y me parece qe te deberia permitir las dos opciones, el de insertar la tabla y al mismo tiempo exportar al csv.
Saludos!
Hola, la rutina no me deja exportar a un archivo.
Cuando en el destino de las coordenadas pincho archivo y luego pincho sobre la pestaña la aplicación me desaparece.
Hola, es extraño, he realizado una nueva prueba con esta rutina y todo funciona correctamente. ¿con que Windows estás trabajando?
hola.
trabajo con el xp profesional,la versión 2002.
Excelente rutina; muy buena la aclaración para cuando el autocad se encuentra en inglés o en español. Esta tipo de lisp nos ahorra bastante tiempo en la ejecución de trabajos
Muchas gracias por la rutina y las aclaraciones
un saludo
MUCHAS PERO MUCHAS GRACIAS POR COMPARTIR EL CONOCIMIENTO
Saludos amigo, muy buena rutina pero para mi le falta que calcule las distancias en tre los puntos que va a tener la tabla que es muy importante en el acta de mensura.
Buenas Mario, una pregunta
Como puedo hacer para que cuando empiece a marcar otra vez todos los puntos me lo haga a continuación del ultimo punto marcado anteriormente????
es decir, yo marco del 1 al 4 por ejemplo, termino la oprden, se me crea la tabla, y luego cuando comience otra vez, que me empiece en el número 5
o hay otra forma de hacerlo?
Gracias y un saludo
Hola Jerogliphic, en esta versión no se puede, pero lo tendré en cuenta al momento de actualizar la rutina. Gracias por la sugerencia.
Gracias Mario,
al final lo he estado haciendo con la rutina de "Replanteo"´, no es tan directo, pero al menos puedo ir renumerando desde donde quiero y si me confundo con algún punto (tengo 7000) no pasa nada
Un saludo
Excelentes Rutinas las que estan aportando a todos los usuarios, muchas gracias. Les doy un 10
para que version de cad es, ya que no la puedo correr con 2004
ESTOY EMPEZANDO CON AUTOLISP COMO SE CARGAN
nena123, utiliza el comando APPLOAD, selecciona el archivo lisp y haces clic en el botón LOAD. Luego sigues con las indicaciones de como usar el lisp.
Hola Mario, cordial saludo.
Adjunto un macro que encontre en internet y la clave del mismo se encuentra en el .doc.
Mi pregunta es si se puede obtener el codigo fuente a partir de la aplicacion .dvb
La otra consulta es sobre la forma de incluir la barra de proceso del programa en ice, para darle un toque... mas glamuroso? si, mas glamuroso. jeje
Sin mas inquietudes y deseandote exitos en todo, me suscribo.
Hola David, gracias por compartir esta rutina, aunque lo recomendable es abrir un nuevo tema en el foro para un mayor aporte de los usuarios, pero no hay problema.
Con respecto a si puedes obtener el código de un archivo dvd, si se puede, pero siempre y cuando no esta protegido con password y si lo está es necesario tener la contraseña, en tu caso con la macro que compartes, también nos estas compartiendo la contraseña.
Para obtener el código debes de hacer lo siguiente:
Con respecto a una barra de progreso en la rutina lisp, tambien se puede hacer, eso se logra con la función acet-ui-progress.
EXCELENTE RUTINA , BUSACAB ALGO ASI HACE RATO, SE AGRADECE !!!
necesito crear un lsp para curvas verticales simetricas y asimetrica (acuerdos verticales). Se agradeceran los aportes dode encontrarlos.
SALUDOS:
ME GUSTARIOA MUCHO SU AYUDA, TENGO EL PROBLEMA DE QUE CUANDO INDICO QUE ME EXPORTE A ARCHIVO ME APARECE
Error: bad argument type: (or stringp symbolp): nil
Y YA NO PERMITE CONTINUAR.
TAMBIEN GUSTARIA SABER SI SE PUEDE HACER MULTIPLE LA SELECCION DE LOS OBJETOS.