获取选择PolyLine多段线的各个端点

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

Imports ZwSoft.ZwCAD.Geometry

Public Class ZwcadApp
    <CommandMethod("plPoint")> _
    Public Sub plPoint()
        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 plEnt As Polyline = Nothing
            Do
                Dim peo As New PromptEntityOptions(vbLf & "Select a polyline:")
                peo.SetRejectMessage(vbLf & "Must be a polyline.")
                peo.AddAllowedClass(GetType(Polyline), True)