[编程交流] lisp到vba

Public Sub PlinePtAtDist()
       Dim db As Database = HostApplicationServices.WorkingDatabase
       Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
       db.Pdmode = 66 'just to make the points more visible
       Dim tr As Transaction = db.TransactionManager.StartTransaction()
       Try
           Dim peo As PromptEntityOptions = New PromptEntityOptions(vbCr & "Select a lwpline: ")
           peo.SetRejectMessage(vbCr & "Please select lightweight polyline only! ")
           peo.AddAllowedClass(GetType(Polyline), True)
           Dim per As PromptEntityResult = ed.GetEntity(peo)
           If per.Status <> PromptStatus.OK Then Exit Sub
           Dim pl As Polyline = tr.GetObject(per.ObjectId, OpenMode.ForRead)
           Dim len As Double = pl.Length
           Dim pdo As PromptDoubleOptions = New PromptDoubleOptions(vbCr & "Enter distance from startpoint: ")
           pdo.AllowNegative = False
           pdo.AllowZero = True
           pdo.DefaultValue = len
           pdo.AllowArbitraryInput = False
           Dim pdr As PromptDoubleResult = ed.GetDouble(pdo)
           If pdr.Status <> PromptStatus.OK Or pdr.Value > len Then Exit Sub
           Dim pt As Point3d = pl.GetPointAtParameter(pl.GetParameterAtDistance(pdr.Value)) 'crux of the process
           Dim ptAtDist As DBPoint = New DBPoint(pt)
           Dim btr As BlockTableRecord = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)
           btr.AppendEntity(ptAtDist)
           tr.AddNewlyCreatedDBObject(ptAtDist, True)
           tr.Commit()
       Catch ex As Exception
           tr.Abort()
           ed.WriteMessage("Error during execution! " & ex.Message)
       Finally
           tr.Dispose()
       End Try
   End Sub  

        static public void PlinePtAtDist()
       {
           // Obtain Database and Editor
           Database db = HostApplicationServices.WorkingDatabase;
           Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
           db.Pdmode = 66; // to make point more visible
           PromptEntityOptions entOpts = new PromptEntityOptions("\nSelect a pline or spline entity: ");
           entOpts.SetRejectMessage("\nPlease select LWPoly, 2DPoly, 3DPoly, or spline only! ");
           entOpts.AddAllowedClass(typeof(Polyline), true);
           entOpts.AddAllowedClass(typeof(Polyline2d), true);
           entOpts.AddAllowedClass(typeof(Polyline3d), true);
           entOpts.AddAllowedClass(typeof(Spline), true);
           using (Transaction tr = db.TransactionManager.StartTransaction())
           {
               PromptEntityResult prEntRes = ed.GetEntity(entOpts);
               if (prEntRes.Status != PromptStatus.OK) return; //terminate if no object selected
               Curve crv = (Curve)tr.GetObject(prEntRes.ObjectId, OpenMode.ForRead);
               Double len = crv.GetDistanceAtParameter(crv.EndParam); //total length of curve
               PromptDoubleOptions pdo = new PromptDoubleOptions("\nEnter distance from startpoint: ");
               pdo.AllowNegative = false;
               pdo.AllowZero = true;
               pdo.DefaultValue = len;
               pdo.AllowArbitraryInput = false;
               PromptDoubleResult pdr = ed.GetDouble(pdo);
               if (pdr.Status != PromptStatus.OK || pdr.Value > len) return;//value has been entered and less than total
               Point3d pt = crv.GetPointAtParameter(crv.GetParameterAtDistance(pdr.Value));//crux of routine
               DBPoint ptAtDist = new DBPoint(pt);
               try
               {
                   BlockTableRecord btr = (BlockTableRecord)(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite));
                   btr.AppendEntity(ptAtDist);
                   tr.AddNewlyCreatedDBObject(ptAtDist, true);
                   tr.Commit();
               }
               catch (System.InvalidOperationException ex)
               {
                   tr.Abort();
                   ed.WriteMessage("\nProblem adding point at distance!");
                   ed.WriteMessage(ex.Message);
               }
               finally
               {
                   ed.WriteMessage("\nPoint at Distance command terminated.");
               }
           }
       }