获取所选取的多段线（polyline）的两个端点

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.EditorInput


Public Class Class2
    <CommandMethod("FindEndPts")> _
    Public Sub FindEndPts()
        Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZcDB As Database = ZcDoc.Database
        Dim ZcED As Editor = ZcDoc.Editor
        Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction
            Dim objId As ObjectId = ObjectId.Null
            Dim picPt As Point3d = Nothing


            Do
                Dim peo As New PromptEntityOptions(vbLf & "Select a polyline:")
                Dim per As PromptEntityResult = ZcED.GetEntity(peo)
                If per