.NET下使用ZWCAD标准对话框选择线型

Imports ZwSoft.ZwCAD.Windows
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.LayerManager.LayerFilter


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


            Dim peo As New PromptEntityOptions(vbLf & "Select an object:")
            Dim per As PromptEntityResult = ZcED.GetEntity(peo)
            If per.Status <> PromptStatus.OK Then
                Return
            End If