JIG（即时绘图）-直线即时绘图-EntityJig（单实体即时绘图）

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

Namespace ZwZpps

    Public Class JIGclass
        <CommandMethod("LinePreview")> _
        Public Sub LinePreview()
            Dim ZcDoc As Document = ZwSoft.ZwCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim ZcDb As Database = ZcDoc.Database
            Dim ZcED As Editor = ZcDoc.Editor


            Dim TextID As ObjectId = Nothing
            Do
                Dim peo As New PromptEntityOptions(vbLf & "Select a text:")
                peo.SetRejectMessage(vbLf & "Must be a text.")
                peo.AddAllowedClass(GetType(DBText), True)


                Dim per