How to get Start/end point of a polyline?

Anonymous — Wed, 19 Apr 2006 10:16:11 GMT

Hi All,
I need to get start & end point of a lwpolyline selected by GetEntity method.
My objective is.. I want to insert a text on both of the ends of a selected lwpolyline.
Thanks
Kashu

Re: How to get Start/end point of a polyline?

Anonymous — Wed, 19 Apr 2006 10:41:54 GMT

Kashu,

here is a sample that labels the X&Y of the endponts of a ployline.

John Coon

Public Sub Main()
Dim PLine As AcadLWPolyline
Set PLine = getPLine
If Not (PLine Is Nothing) Then
Dim Points As Variant
Points = PLine.Coordinates
LabelStations Points
Else
MsgBox "No polyline was selected.", vbInformation, "Finished"
End If
End Sub

Private Function getPLine() As AcadLWPolyline
On Error Resume Next
Dim Pick As AcadEntity, PickPt As Variant
ThisDrawing.Utility.GetEntity Pick, PickPt, _
vbCrLf & "Select polyline: "
If Not (Pick Is Nothing) Then
If TypeOf Pick Is AcadLWPolyline Then Set getPLine = Pick
End If
End Function

Private Sub LabelStations(Points As Variant)
Dim mtxtLabel As AcadMText
Dim dblRot As Double
Dim x As Double
Dim y As Double
Dim ptText(0 To 2) As Double
Dim StationText As String

Dim StationFormat As String
StationFormat = "#0.00"
Dim i As Long
For i = 0 To (UBound(Points) - 1) Step 2
x = Points(i): y = Points(i + 1)
ptText(0) = x: ptText(1) = y: ptText(2) = 0
StationText = Format(CStr(x), StationFormat) & _
"," & Format(CStr(y), StationFormat)
dblRot = -ThisDrawing.GetVariable("VIEWTWIST")

Set mtxtLabel = ThisDrawing.ModelSpace.AddMText(ptText, dblWidth,
StationText)
mtxtLabel.Rotation = dblRot
Next i
End Sub

wrote in message news:5146830@discussion.autodesk.com...
Hi All,
I need to get start & end point of a lwpolyline selected by GetEntity
method.
My objective is.. I want to insert a text on both of the ends of a selected
lwpolyline.
Thanks
Kashu

topic Re: How to get Start/end point of a polyline? in VBA Forum

How to get Start/end point of a polyline?

Re: How to get Start/end point of a polyline?