TextColor Example

Using Programming Languages other than VBA

Sub Example_TextColor()
   ' This example creates an aligned dimension in model space and
   ' uses the TextColor property to toggle the dimension text color to red

	Dim dimObj As AcadDimAligned
	Dim point1(0 To 2) As Double, point2(0 To 2) As Double
	Dim location(0 To 2) As Double

	' Define the dimension
	point1(0) = 5: point1(1) = 5: point1(2) = 0
	point2(0) = 7: point2(1) = 5: point2(2) = 0
	location(0) = 5: location(1) = 7: location(2) = 0

	' Create an aligned dimension object in model space
	Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
	ThisDrawing.Application.ZoomAll

	' Read and display current dimension text color
	MsgBox "The dimension text color for this object is currently set to: " & dimObj.TextColor

	' Change the dimension text color
	dimObj.TextColor = acRed
	ThisDrawing.Regen acAllViewports

	' Read and display current dimension text color
	MsgBox "The dimension text color for this object is now set to: " & dimObj.TextColor & " (Red)"

End Sub

 

   Comments?