[编程交流] VB。net：创建油炸圈饼

       <CommandMethod("DON")> _ 
       Shared Public  Sub DrawDonut()
           Dim ed As Editor =  Application.DocumentManager.MdiActiveDocument.Editor 
           Try
               Dim pdo1 As PromptDoubleOptions =  New PromptDoubleOptions("\nSpecify inside diameter of donut: ") 
               pdo1.AllowNegative = False
               pdo1.AllowNone = False
               pdo1.AllowZero = False
               Dim dres1 As PromptDoubleResult =  ed.GetDouble(pdo1) 
               If dres1.Status <> PromptStatus.OK Then
                   Return
               End If
               Dim pdo2 As PromptDoubleOptions =  New PromptDoubleOptions("\nSpecify outside diameter of donut: ") 
               pdo2.AllowNegative = False
               pdo2.AllowNone = False
               pdo2.AllowZero = False
               Dim dres2 As PromptDoubleResult =  ed.GetDouble(pdo2) 
               If dres2.Status <> PromptStatus.OK Then
                   Return
               End If
               Dim pto As PromptPointOptions =  New PromptPointOptions("\nSpecify center point of donut: ") 
               pto.AllowNone = False
               Dim ptres As PromptPointResult =  ed.GetPoint(pto) 
               Dim center As Point3d =  ptres.Value 
               If ptres.Status <> PromptStatus.OK Then
                   Return
               End If
               Dim rad1 As Double =  dres1.Value / 2 
               Dim rad2 As Double =  dres2.Value / 2 
               Dim lwt As Double =  rad2 - rad1 
               Dim pt1 As Point2d =  New Point2d(center.X -(rad1 + lwt / 2),center.Y) 
               Dim pt2 As Point2d =  New Point2d(center.X +(rad1 + lwt / 2),center.Y) 
               Dim pline As Polyline =  New Polyline() 
               pline.AddVertexAt(0, pt1, 1.0, lwt, lwt)
               pline.AddVertexAt(1, pt2, 1.0, lwt, lwt)
               pline.AddVertexAt(2, pt1, 0.0, lwt, lwt)
               pline.Closed = True
               {
                   Dim db As Database =  HostApplicationServices.WorkingDatabase 
                   Dim tm As AcDb.TransactionManager =  db.TransactionManager 
                   Imports (Transaction tr = tm.StartTransaction())
                   {
                       Dim btr As BlockTableRecord = CType(tr.GetObject(db.CurrentSpaceId,OpenMode.ForWrite), BlockTableRecord)
                       btr.AppendEntity(pline)
                       tr.AddNewlyCreatedDBObject(pline, True)
                       tr.Commit()
                   }
               }
           Catch ex As Autodesk.AutoCAD.Runtime.Exception
               ed.WriteMessage(ex.StackTrace)
           End Try
       End Sub