CenterType Example |
Using Programming Languages other than VBA
Sub Example_CenterType() ' This example creates a diametric dimension in model space. ' It then changes the type of center for the dimension. Dim dimObj As AcadDimDiametric Dim chordPoint(0 To 2) As Double Dim farChordPoint(0 To 2) As Double Dim leaderLength As Double ' Define the dimension chordPoint(0) = 5#: chordPoint(1) = 3#: chordPoint(2) = 0# farChordPoint(0) = 5#: farChordPoint(1) = 5#: farChordPoint(2) = 0# leaderLength = 1# ' Create the diametric dimension in model space Set dimObj = ThisDrawing.ModelSpace.AddDimDiametric(chordPoint, farChordPoint, leaderLength) ZoomAll ' Set the center to be none dimObj.CenterType = acCenterNone dimObj.Update MsgBox "The dimension center type is set to none." ' Change the center type to center mark dimObj.CenterType = acCenterMark dimObj.Update MsgBox "The dimension center type is set to center mark." ' Change the center type to center line dimObj.CenterType = acCenterLine dimObj.Update MsgBox "The dimension center type is set to center line." End Sub
Comments? |