VerticalTextPosition Example |
Using Programming Languages other than VBA
Sub Example_VerticalTextPosition() ' This example creates an aligned dimension in model space ' and cycles the dimension text through a couple of different ' vertical alignments Dim dimObj As AcadDimAligned Dim point1(0 To 2) As Double, point2(0 To 2) As Double Dim location(0 To 2) As Double Dim CurrentValue As String ' Define the dimension point1(0) = 5: point1(1) = 5: point1(2) = 0 point2(0) = 9: point2(1) = 5: point2(2) = 0 location(0) = 5: location(1) = 7: location(2) = 0 ' Create an aligned dimension object in model space Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location) ThisDrawing.Application.ZoomAll ' Read and display current text position Select Case dimObj.VerticalTextPosition Case acVertCentered: CurrentValue = "centered" Case acAbove: CurrentValue = "above" Case acOutside: CurrentValue = "outside" Case acJIS: CurrentValue = "to Japanesee industrial standards" End Select MsgBox "The vertical position of the dimension is: " & CurrentValue ' Change the position of the dimension text to be above the extesnion lines dimObj.VerticalTextPosition = acAbove ThisDrawing.Regen acAllViewports MsgBox "Dimension text is now aligned above extension lines" ' Change the position of the dimension text to be centered with the extension lines dimObj.VerticalTextPosition = acVertCentered ThisDrawing.Regen acAllViewports MsgBox "Dimension text is now centered with the extension lines" End Sub
Comments? |