
Cuantas veces haz tenido que insertar números consecutivos en un plano Autocad?
Por ejemplo, para numerar lotes: 1... 2... 3... 4... etc.
La siguiente rutina copia un texto con una cadena numérica (cadena numérica es lo que "dice" el texto y el texto es la entidad grafica) y le suma un factor indicado.
Ejemplo:
Tenemos un texto cuya cadena es "1" (sin comillas) y queremos seguir numerando hasta el "5".
Hacemos correr la rutina y escribimos en la línea de comando cote (Command: cote) y le damos enter. Nos solicita que seleccionemos el texto a copiar y el factor a sumar, en este caso el texto con la cadena "1" e ingresamos un 1 como factor a sumar, luego nos pide un punto de referencia para copiar el texto y finalmente indicamos posición final del nuevo texto (que tendrá la cadena "2").
Al seguir indicando nuevas posiciones para el texto este se incrementa de uno en uno, al llegar a "5" hacemos enter para finalizar.
La rutina continúa sumando hasta finalizar con un enter.
Nota: Esta rutina solo es aplicable a entidades "TEXT".
Si desconoces si la entidad es un TEXT o MTEXT debes hacer un list y pinchar dicha entidad antes de aplicar la rutina.
El comando LIST entrega una descripción de las propiedades de la entidad en la pantalla de texto de autocad.
Ejemplo de entidad TEXT
Command: list
Select objects: 1 found
Select objects:
TEXT Layer: 0
Space: Model space
Handle = 4260
Style = STANDARD
Font file = txt
start point, X= -1.1062 Y= -0.0527 Z= 0.0000
height 0.2852
text 1
rotation angle 0
width scale factor 1.0000
obliquing angle 0
generation normal
Ejemplo de entidad MTEXT
Command: list
Select objects: 1 found
Select objects:
MTEXT Layer: 0
Space: Model space
Handle = 4261
Location: X= -0.4106 Y= 0.1255 Z= 0.0000
Width: 1.0390
Normal: X= 0.0000 Y= 0.0000 Z= 1.0000
Rotation: 0
Text style: STANDARD
Text height: 0.2852
Attachment: TopLeft
Flow direction: ByStyle
Contents: 1
Bueno basta de cháchara y vamos al grano.
Descarga aquí
No hay comentarios:
Publicar un comentario