ExtensionLineOffset Example

Using Programming Languages other than VBA

Sub Example_ExtensionLineOffset()
	' This example creates a Dim3PointAngular object in model space
	' and changes the offset of the extension lines using the
	' ExtensionLineOffset 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 offset of the extension lines from the control points
	MsgBox "The extension lines are currently offset " & DimPointAngularObj.ExtensionLineOffset & " units"

	' Change the extension lines offset distance from the control points
	DimPointAngularObj.ExtensionLineOffset = 1.5
	ThisDrawing.Regen acAllViewports

	' Read and display current offset of the extension lines from the control points
	MsgBox "The extension lines are now offset " & DimPointAngularObj.ExtensionLineOffset & " units"

End Sub

 

   Comments?