Resultados 1 al 5 de 5

Lisp para acotación automática en AutoCAD

  1. #1
    Fecha de ingreso
    Sep 2008
    Mensajes
    156

    Lisp para acotación automática en AutoCAD

    Años sin publicar nada.

    Estuve modificando un Lisp de AutoCAD para generar cotas automáticas al seleccionar líneas o polilíneas. Es un Lisp que funciona en versiones en inglés (no probé en español porque no es el idioma de mi programa).

    Bueno, supongo que, todos saben cómo cargar Lisps en AutoCAD por lo que sólo describiré algunas cosas que hace:

    Creé con la misma base, cuatro Lisps diferenciados por el tamaño de las fuentes que más utilizo para mis planos: 0.16, 0.2, 0.3, 0.4. Pudiendo crear más Lisp a gusto cambiando el comando a llamar (ejemplo (defun c:ML2()) y modificando el tamaño de la fuente en la línea (command ._Text j bc txt_ins 0.20 ang (rtos thr)).

    Llamando al Lisp con el comando ML2 se carga el Lisp donde acotará todo con fuente tamaño 0.20, con ML3 cargará el Lisp con fuente 0.30 y así con cada una de los cargados y nuevos creados. Cada Lisp se diferencia justamente en el comando que lo llama.

    Cuando terminan de seleccionar las entidades a acotar, aparecen las cotas correspondientes y al mismo tiempo se crea una capa (Layer) nueva llamada - COTA ML por lo que no es necesario crear nada más y sirve para discriminarlas del resto de las cotas. Las líneas donde se crea el layer y envía la cota son las siguientes:

    Layer creado: (Cre_Lay - COTAS ML 7) donde primero figura el nombre que le di a la capa y luego el número correspondiente al color (ejemplo, 1 es rojo, 3 es amarillo, 6 es magenta, 7 es blanco) Se puede modificar a gusto.

    Layer donde se envía la cota: (command ._Change (entlast) p la - COTAS ML ) que es el mismo nombre del layer creado, claro.
    o Acota líneas en diferentes ángulos, pero a las curvas sólo las acota por sus extremos.

    Adjunto los 4 Lisp y recuerden que se pueden crear y modificar a gusto, y cualquier mejora será bienvenida.

    -- IMÁGENES ADJUNTAS --
    Archivos adjuntados Archivos adjuntados

  2. #2
    Fecha de ingreso
    Apr 2002
    Mensajes
    26,550

    Thumbs up Lisp para acotación automática AutoCAD

    Madre mía, cuanto tiempo, bienvenido a casa, no tardes tanto para el próximo mensaje, un saludo amigo.
    |Agradecer cuando alguien te ayuda es de ser agradecido|

  3. #3
    Fecha de ingreso
    Sep 2008
    Mensajes
    156

    Lisp para acotación automática AutoCAD

    Cita Iniciado por 3dpoder Ver mensaje
    Madre mía, cuanto tiempo, bienvenido a casa, no tardes tanto para el próximo mensaje, un saludo amigo.
    JA. Gracias, el AutoCAD es necesario ya qué hago proyecto de viviendas, generalmente, y es muy útil poder personalizarlo a tu gusto. Tengo otros Lisps que he encontrado en la web y modificado a mi gusto, no soy programador, ni nada cercano, pero con un ojo crítico se puede estudiar las líneas y cambiarlas para poder usar estas herramientas con más soltura. También se puede personalizar todos los comandos de AutoCAD.

    Los comandos por defecto del programa no son muy eficientes, lo principal arranca instalando EXPRES que es opcional en la instalación de AutoCAD, pero que igual se puede instalar desde el disco más adelante. En esta extensión se puede ver y modificar muchas cosas del programa, pero principalmente, para mí, los comandos (Command Alias Editor).

    Ya qué la velocidad es crucial cuando se trabaja con AutoCAD, es necesario poder usar las dos manos en funciones diferentes: la derecha (mayormente) para manejar el mouse sobre el dibujo, y la izquierda para ingresar los comandos que llaman a las herramientas. Al modificar los comandos hay que tener algo en cuenta, y es que deben quedar cómodos para la mano que los escribe. Por ejemplo: para llamar la herramienta Cota continua el comando es ACO; esto implica tener que levantar el codo y bajar la vista al teclado para ir de la C a la O, entonces se debe modificar el comando (que se suma al anterior, no lo sobrescribe) por ejemplo, por ACD, en este caso no se levanta la mano ni se baja la vista al teclado y sólo usás cuatro dedos y de forma muy rápida.

    Yo tengo, por ejemplo, las cotas de esta manera:
    Cota ► AC
    Cota continua ► ACD, el original es DCO
    Cota angular ► ACA, el original es ADN
    cota alineada ► ACX, para acotar cosas que no son ortogonales a la grilla. El original es DAL.

    De esta manera se puede añadir comandos personalizados para no tener que ir al botón de la herramienta con el mouse y así perder tiempo y evitás alejarte del área del dibujo donde estás trabajando.
    Hay que recordar que con el dedo gordo de la mano izquierda se teclea la barra espaciadora, que es el otro INTRO en autoCAD.

  4. #4
    Fecha de ingreso
    Jun 2021
    Mensajes
    1
    Hola. Perdón no puedo ver los adjuntos. ¿Podrías volver a ponerlos?

  5. #5
    Fecha de ingreso
    Apr 2002
    Mensajes
    26,550
    Hola, deberías verlos. Mira de que no tengas activado adblock en el foro.

    https://www.foro3d.com/f45/desactiva...om-111548.html
    |Agradecer cuando alguien te ayuda es de ser agradecido|

Temas similares

  1. AutoCAD Buscando lisp con list en AutoCAD
    Por Murtzia en el foro Programas de Diseño 3D y CAD
    Respuestas: 1
    : 09-10-2013, 11:24
  2. Acotación radio AutoCAD 07
    Por Recio3 en el foro Programas de Diseño 3D y CAD
    Respuestas: 2
    : 06-03-2012, 11:44
  3. Busco lisp de AutoCAD
    Por REALPLAYERR en el foro Programas de Diseño 3D y CAD
    Respuestas: 0
    : 14-06-2008, 16:49
  4. Rutinas Lisp para AutoCAD en diferente idioma
    Por dideje en el foro Programas de Diseño 3D y CAD
    Respuestas: 2
    : 28-03-2008, 22:36
  5. Problemas para cargar mis archivos Lisp en AutoCAD 2004
    Por A&P en el foro Programas de Diseño 3D y CAD
    Respuestas: 2
    : 26-05-2005, 00:51