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 --
![]()