AutoCad - Lisp para modificar cotas

Buenas, necesito una lisp que seleccionando varias cotas, le introduzca a cada una su mismo valor de medida, como texto modificado.

Es para acotar, y luego poder escalar o distorsionar sin que cambie el valor mostrado

Hola
prueba con esto

Genial!!! Es exactamente lo que quería.

Una vez implementada en una lisp, y con un pequeño añadido, queda así:

esto me vendrá genial, tanto para retocar detalles en los planos, como para realizar planos de isometricos a partir de ejes en dimensiones reales.

Muchas gracias Gerardo.
Saludos.

Y con que orden se ejecuta ?

Todas las lisp traen una línea que comienza por defun c:xxxxx, como esta
(defun c:mco (/)

Pues esa es la orden: "mco"

Si cambias esas letras, cambias la orden. Yo por ejemplo siempre intento poner letras o números y letras de la parte izquierda del teclado, por comodidad para la mano, o letras que me recuerden para que sirve, esta es " modificar cotas"

Este si que me funciona.

Y matizando su finalidad este sirve para cambiar la cota y poner la que tu consideres en todas las cotas que marques?

¿es correcto?

Gracias.

No, pero algo parecido, lo que hace es coger el valor que ha medido la cota y "ponérselo a mano" de forma que si luego escalas el dibujo, ya las cotas no cambian de valor.

Lo uso para hacer detalles ampliados, y para planos
isométricos de tuberías.

Si lo hiciera de la forma tradicional, tendría que ir una por una cambiando el valor de cota por un texto fijo.

Pues que curioso porque a mi cuando le pongo el comando “mco” lo que me pregunta son los decimales que quiero poner en la cota que marco.

Si, pero porque la cota es un número con decimales, que tú puedes cambiar en las propiedades, entonces te lo pregunta por qué internamente, el valor de cota tiene decimales, y quiere saber con cuánta precisión te va a cambiar el valor por un "número escrito"

Te invito a dibujar algo, acotarlo, usar la lisp y luego escalarlo todo, verás que las cotas no cambian.

Si le das dos decimales verás lo mismo que si cambias la precisión de la cota a 0,00 pero al escalar una cota cambia la medida, a no ser que la cambies a mano, descompongan la cota, o uses está lisp

Muchas gracias Juanma!

Muy interesante!

¿Tienes algún autolisp más? Que utilices asiduamente …..
Creo que me voy hacer una buena biblioteca… jaja

Me encantaría aprender hacerlos…

Pues tengo una que calcula el peso de sólidos, y les coloca un texto en el centro con su peso a cada sólido, y uno más con la suma total.

Te recomiendo las web

https://www.afralisp.net/
http://www.lee-mac.com/programs.html

Si andas medio bien de inglés

Muchas gracias!

Les echo un vistazo y te cuento…

Saludos,

Aquí tienes un ejemplo de una función LISP que te permitirá seleccionar múltiples cotas y asignarles el mismo valor de medida como texto modificado:

(defun c:IntroducirValorCotas (/ ss ent val)
(setq ss (ssget "_X" '((0 . "DIMENSION"))))

(if ss
(progn
(setq val (getreal "\nIntroduce el valor de medida: "))

(setq ent (ssname ss 0))
(command "_.dimedit" ent "" "_txtext" "" (rtos val))

(setq i 1)
(while (setq ent (ssname ss i))
(command "_.dimedit" ent "" "_txtext" "" (rtos val))
(setq i (1+ i))
)

(princ "\nLos valores de medida de las cotas se han actualizado correctamente.")
)
(princ "\nNo se han encontrado cotas seleccionadas.")
)

(princ)
)


Puedes cargar esta función LISP en AutoCAD y luego ejecutar el comando "INTRODUCIRVALORCOTAS" para utilizarla.

Cuando ejecutes el comando, se te pedirá que introduzcas el valor de medida que deseas asignar a las cotas. Una vez que ingreses el valor, todas las cotas seleccionadas tendrán su texto de medida actualizado con el valor especificado.

Recuerda que al utilizar esta función, el texto de medida de las cotas se modificará directamente. Si posteriormente escalas o distorsionas las cotas, el valor mostrado no cambiará ya que se actualizó como texto modificado.

Ten en cuenta que esta es una función básica que asume que todas las cotas seleccionadas son cotas lineales. Si tienes diferentes tipos de cotas en la selección, es posible que necesites realizar adaptaciones adicionales al código.


______________________________________________________
Estudia la Licenciaturas Ejecutivas en Programación y Transformación Digital