UnitsFormat Example |
Using Programming Languages other than VBA
Sub Example_UnitsFormat() ' This example creates an aligned dimension in model space and ' uses UnitsFormat to cycle through some common unit formats ' for the dimension Dim dimObj As AcadDimAligned Dim point1(0 To 2) As Double, point2(0 To 2) As Double Dim location(0 To 2) As Double ' Define the dimension point1(0) = 0: point1(1) = 5: point1(2) = 0 point2(0) = 5.12345678: 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 ' Cycle through common unit formats dimObj.UnitsFormat = acDimLScientific ' Change format to Scientific ThisDrawing.Regen acAllViewports MsgBox "The dimension units are now set to Scientific" dimObj.UnitsFormat = acDimLDecimal ' Change format to Decimal ThisDrawing.Regen acAllViewports MsgBox "The dimension units are now set to Decimal" dimObj.UnitsFormat = acDimLArchitectural ' Change format to Architectural ThisDrawing.Regen acAllViewports MsgBox "The dimension units are now set to Architectural" dimObj.UnitsFormat = acDimLWindowsDesktop ' Change format to WindowsDesktop ThisDrawing.Regen acAllViewports MsgBox "The dimension units are now set to Windows Desktop" End Sub
Comments? |