polyline segment length

[hari.ramalingam]

hi all,

i am new to vba, we have a unique requirement. we have leader (polylines) to label components. we we want the length of one of the segment of polyline to be 6" (as shown in attachment). is it possible?

thanks

Hari 

[seabrahenrique · Accepted solution]

Try this:

Sub ChangeMLeader()

' Declare variables
Dim objMLeader As AcadMLeader

' Get MLeader from the user
ThisDrawing.Utility.GetEntity objMLeader, pt

' Change the landing distance of the MLeader
objMLeader.DoglegLength = 6

' Update the MLeader
objMLeader.Update

End Sub

I guess the .DoglegLenght is the parameter that you find.

Hope can help u.

[Ed__Jobe · Accepted solution]

No need for programming. Define an mleader style with the landing distance set to 6". Then select the leaders and change their style .

[Smaltsbarger]

Create a leader with your parameters using the Multileader Style manager. Command MLEADERSTYLE. 

[hari.ramalingam]

hi @seabrahenrique  thanks,

but our client is using polylines instead of mleader, is there any way we can change the polyline to mleader as it is?

[seabrahenrique]

Right.

So if i understood correct: You have a polyline itself and want to change the length of a specific segment inside this polyline, correct?

In this case i guess the only way is to reconstruct your poyline changing the X position of one vertice to "grow" the required part of your polyline, you know?

I hope can help!

[hari.ramalingam]

thanks again for your reply @seabrahenrique 

is it possible to construct the polyline via vba code?

thanks

Hari R.

[seabrahenrique]

Yes, and is pretty simple.

See the code bellow:

Sub MakePolyline()

    ' Declare variables
    Dim objPolyline As AcadPolyline, Coords(8) As Double

    'First Point
    Coords(0) = 0 'X
    Coords(1) = 0 'Y
    Coords(2) = 0 'Z

    'Second Point
    Coords(3) = 6 'X
    Coords(4) = 0 'Y
    Coords(5) = 0 'Z

    'Last Point
    Coords(6) = 20 'X
    Coords(7) = 20 'Y
    Coords(8) = 0 'Z

    ' Create a new Polyline object
    Set objPolyline = ThisDrawing.ModelSpace.AddPolyline(Coords)

End Sub

They do one Polyline similar a your first picture:

You also can "capture" the polylines and they vertices in all your project and try to reconstruct then after making some changes... Is just a suggestion, if i got what your need correctly.

I hope can help.

[Ed__Jobe]

---

@hari.ramalingam wrote:

hi @seabrahenrique  thanks,

but our client is using polylines instead of mleader, is there any way we can change the polyline to mleader as it is?

---

oooh, slap their hand!  😁 No reason to use polylines as leaders.