AddDimRadialLarge Example

Using Programming Languages other than VBA

Sub Example_AddDimRadialLarge()
	Dim PI As Double: PI = 3.141592
	Dim oMS As AcadModelSpace
	Set oMS = ThisDrawing.ModelSpace

	Dim ptCenter(2) As Double
	Dim oA As AcadArc
	Set oA = oMS.AddArc(ptCenter, 10, PI / 3, PI * 3 / 4)

	Dim ptChordPoint(2) As Double
	ptChordPoint(0) = 0: ptChordPoint(1) = 10: ptChordPoint(2) = 0

	Dim ptOverrideCenter(2) As Double
	ptOverrideCenter(0) = -3: ptOverrideCenter(1) = -6: ptOverrideCenter(2) = 0

	Dim ptJogPoint(2) As Double
	ptJogPoint(0) = 0: ptJogPoint(1) = 5: ptJogPoint(2) = 0

	Dim oDimRadialLarge As AcadDimRadialLarge
	Set oDimRadialLarge = oMS.AddDimRadialLarge(oA.Center, ptChordPoint, ptOverrideCenter, ptJogPoint, PI / 4)

	Dim ptTextPosition(2) As Double
	ptTextPosition(0) = 0: ptTextPosition(1) = 6: ptTextPosition(2) = 0
	oDimRadialLarge.TextPosition = ptTextPosition

	Update
	ZoomExtents
End Sub

 

   Comments?