AngleFormat Example

Using Programming Languages other than VBA

Sub Example_AngleFormat()
	' This example creates a Dim3PointAngular object in model space
	' and sets its Angle Format to some common values

	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

	' Cycle through some common angle formats

	DimPointAngularObj.AngleFormat = acDegreeMinuteSeconds
	ThisDrawing.Regen acAllViewports
	MsgBox "The angle format of the new Dim3PointAngular object is now set to degree/minute/second"

	DimPointAngularObj.AngleFormat = acGrads
	ThisDrawing.Regen acAllViewports
	MsgBox "The angle format of the new Dim3PointAngular object is now set to grads"

	DimPointAngularObj.AngleFormat = acRadians
	ThisDrawing.Regen acAllViewports
	MsgBox "The angle format of the new Dim3PointAngular object is now set to radians"

End Sub

 

   Comments?