LandingGap Example |
Using Programming Languages other than VBA
Sub Example_LandingGap() ' This example creates an MLeader object and gets and sets values for ' the landing gap. Dim oML As AcadMLeader Dim points(0 To 14) As Double ' Define the leader points points(0) = 1: points(1) = 1: points(2) = 0 points(3) = 1: points(4) = 2: points(5) = 0 points(6) = 2: points(7) = 2: points(8) = 0 points(9) = 3: points(10) = 2: points(11) = 0 points(12) = 4: points(13) = 4: points(14) = 0 Dim i As Long Set oML = ThisDrawing.ModelSpace.AddMLeader(points, i) oML.LandingGap = 3.2 ZoomAll End Sub
Comments? |