ExtensionLineExtend Example |
Using Programming Languages other than VBA
Sub Example_ExtensionLineExtend() ' This example creates a Dim3PointAngular object in model space ' and changes the length of the extension line to extend 1.5 units past ' the dimension using the ExtensionLineExtend property Dim DimPointAngularObj As AcadDim3PointAngular Dim AngleVertex(0 To 2) As Double Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double Dim TextPoint(0 To 2) As Double ' Define the new Dim3PointAngular object AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0 FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0 SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0 TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0 ' Create the new Dim3PointAngular object in model space Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint) ThisDrawing.Application.ZoomAll ' Read and display current extension line extend length MsgBox "The extension line currently extends " & DimPointAngularObj.ExtensionLineExtend & " units past the dimension" ' Change the extension line extend length to extend 1.5 ' units past the dimension DimPointAngularObj.ExtensionLineExtend = 1.5 ThisDrawing.Regen acAllViewports ' Read and display current extension line extend length MsgBox "The extension line now extends " & DimPointAngularObj.ExtensionLineExtend & " units past the dimension" End Sub
Comments? |