ExtensionLineExtend Example

Using Programming Languages other than VBA

Sub Example_ExtensionLineExtend()
	' This example creates a Dim3PointAngular object in model space
	' and changes the length of the extension line to extend 1.5 units past
	' the dimension using the ExtensionLineExtend 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 extension line extend length
	MsgBox "The extension line currently extends " & DimPointAngularObj.ExtensionLineExtend & " units past the dimension"

	' Change the extension line extend length to extend 1.5
	' units past the dimension
	DimPointAngularObj.ExtensionLineExtend = 1.5
	ThisDrawing.Regen acAllViewports

	' Read and display current extension line extend length
	MsgBox "The extension line now extends " & DimPointAngularObj.ExtensionLineExtend & " units past the dimension"

End Sub

 

   Comments?