Para crear un estilo de cota nuevo, utilice el método Add. Este método requiere la entrada del nombre del nuevo estilo de cota.
ActiveX Automation de AutoCAD permite agregar nuevos estilos de cota y modificar el estilo de cota activo. También se puede cambiar el estilo de cota asociado a cada cota, con el método StyleName
Así mismo, se puede copiar un estilo o un conjunto de valores ya existentes. Utilice el método CopyFrom para copiar un estilo de cota de un objeto de origen en un nuevo estilo de cota. El objeto de origen puede ser otro objeto DimStyle, una cota, un objeto Tolerance o Leader, o incluso un objeto Document Cuando se copian los parámetros de estilo de otra cota, el estilo se duplica con exactitud. Si los parámetros de estilo se copian de una cota o de un objeto Tolerance o Leader, en el nuevo estilo se copian los parámetros actuales, incluidas las modificaciones del objeto. Si se copia el estilo de un objeto Document, en el nuevo estilo se copian el estilo de cota activo y todas las modificaciones del dibujo.
Copia de estilos de cota y modificaciones
En este ejemplo se crean tres estilos de cota nuevos y se copian respectivamente en cada uno los parámetros actuales del documento, un estilo de cota determinado y una cota concreta. Si sigue el proceso de configuración adecuado antes de ejecutar este código de ejemplo, comprobará que se crean varios estilos de cota diferentes.
- Cree un nuevo dibujo y selecciónelo para que sea el dibujo activo.
- Cree una cota lineal en el nuevo dibujo. La cota debe ser el único objeto del dibujo.
- Cambie el color de la línea de cota a amarillo.
- Cambie la variable de sistema DIMCLRD a 5 (azul).
- Ejecute el siguiente ejemplo:
Sub Ch5_CopyDimStyles()
Dim newStyle1 As AcadDimStyle
Dim newStyle2 As AcadDimStyle
Dim newStyle3 As AcadDimStyle
Set newStyle1 = ThisDrawing.DimStyles.Add _
("Style 1 copied from a dim")
Call newStyle1.CopyFrom(ThisDrawing.ModelSpace(0))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 2 copied from Style 1")
Call newStyle2.CopyFrom(ThisDrawing.DimStyles.Item _
("Style 1 copied from a dim"))
Set newStyle2 = ThisDrawing.DimStyles.Add _
("Style 3 copied from the running drawing values")
Call newStyle2.CopyFrom(ThisDrawing)
End Sub
Abra el cuadro de diálogo DIMSTYLE. Ahora debería tener tres estilos de cota en la lista. El estilo 1 debe tener una línea de cota amarilla. El estilo 2 deber ser igual al estilo 1, y el estilo 3 debe tener la línea de cota azul.