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? |