ExtLine1StartPoint Example

Using Programming Languages other than VBA

Sub Example_ExtLine1StartPoint()
	' This example creates an angular dimension. It then changes
	' the location of the ExtLine1StartPoint.

	Dim dimObj As AcadDimAngular
	Dim angVert(0 To 2) As Double
	Dim FirstPoint(0 To 2) As Double
	Dim SecondPoint(0 To 2) As Double
	Dim TextPoint(0 To 2) As Double

	' Define the dimension
	angVert(0) = 0#: angVert(1) = 5#: angVert(2) = 0#
	FirstPoint(0) = 1#: FirstPoint(1) = 7#: FirstPoint(2) = 0#
	SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#
	TextPoint(0) = 3#: TextPoint(1) = 5#: TextPoint(2) = 0#

	' Create the angular dimension in model space
	Set dimObj = ThisDrawing.ModelSpace.AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)
	ZoomAll
	MsgBox "The current value of ExtLine1StartPoint is " & dimObj.ExtLine1StartPoint(0) & ", " & dimObj.ExtLine1StartPoint(1) & ", " & dimObj.ExtLine1StartPoint(2), vbInformation, "ExtLine1StartPoint Example"

	' Change the start point of the first extension line
	FirstPoint(0) = 0: FirstPoint(1) = 3: FirstPoint(2) = 0
	dimObj.ExtLine1StartPoint = FirstPoint
	dimObj.Update

	' Return the start point of the first extension line
	' Note that the return value is a Variant
	Dim retPnt As Variant
	retPnt = dimObj.ExtLine1StartPoint
	MsgBox "The new value of ExtLine1StartPoint is " & dimObj.ExtLine1StartPoint(0) & ", " & dimObj.ExtLine1StartPoint(1) & ", " & dimObj.ExtLine1StartPoint(2), vbInformation, "ExtLine1StartPoint Example"
End Sub

 

   Comments?