AddDimAngular Example

Using Programming Languages other than VBA

Sub Example_AddDimAngular()
	' This example creates an angular dimension in model space.

	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

End Sub

 

   Comments?