.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("ColorDL")> _
        Public Sub ColorDL()
            Dim ZcDoc As Document = ZwSoft.ZwCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim ZcDb As Database = ZcDoc.Database
            Dim ZcED As Editor = ZcDoc.Editor


            Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()
                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


                Dim Ent As Entity = DirectCast(ZcTran.GetObject(per.ObjectId, OpenMode.ForWrite), Entity)


                If Not Ent Is Nothing Then
                    Dim Colordl As New ColorDialog()
                    Dim dlr As DialogResult = Colordl.ShowDialog()
                    If dlr = System.Windows.Forms.DialogResult.OK Then
                        Ent.Color = Colordl.Color
                    End If
                End If
                ZcTran.Commit()
            End Using
        End Sub


    End Class

End Namespace

执行COLORDL命令并选择一个对象后，弹出如下zwcad标准颜色调色板。