DimLineSuppress Example

Using Programming Languages other than VBA

Sub Example_DimLineSuppress()
   ' This example creates a Radial Dimension in model space and
   ' uses the DimLineSuppress property to toggle the display
   ' of the dimension lines

	Dim dimObj As AcadDimRadial
	Dim center(0 To 2) As Double
	Dim chordPoint(0 To 2) As Double
	Dim leaderLen As Integer

	' Define the dimension
	center(0) = 0: center(1) = 0: center(2) = 0
	chordPoint(0) = 5: chordPoint(1) = 5: chordPoint(2) = 0
	leaderLen = 5

	' Create the radial dimension in model space
	Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
	ThisDrawing.Application.ZoomAll

	MsgBox "The radial dimension has been created.", vbInformation

	dimObj.DimLineSuppress = Not (dimObj.DimLineSuppress)
	ThisDrawing.Application.ZoomAll

	MsgBox "The radial dimension appearance has been modified.", vbInformation
End Sub

 

   Comments?