ExtensionLineColor Example

Using Programming Languages other than VBA

Sub Example_ExtensionLineColor()
	' This example creates a Dim3PointAngular object in model space
	' and changes the extension line color to red using the ExtensionLineColor property

	Dim DimPointAngularObj As AcadDim3PointAngular
	Dim AngleVertex(0 To 2) As Double
	Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double
	Dim TextPoint(0 To 2) As Double

	' Define the new Dim3PointAngular object
	AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0
	FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0
	SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0
	TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0

	' Create the new Dim3PointAngular object in model space
	Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint)
	ThisDrawing.Application.ZoomAll

	' Read and display current dimension line color
	MsgBox "The extension line color for this object is currently set to: " & DimPointAngularObj.ExtensionLineColor

	' Change the extension line color
	DimPointAngularObj.ExtensionLineColor = acRed
	ThisDrawing.Regen acAllViewports

	' Read and display current extension line color
	MsgBox "The extension line color for this object is now set to: " & DimPointAngularObj.ExtensionLineColor & " (Red)"

End Sub

 

   Comments?