请问用鼠标点击一条直线如何以鼠标点击坐标将这条线断成2条直线

sclkkk · 发表于 2011-4-20 19:34:00

请问用鼠标点击一条直线如何以鼠标点击坐标将这条线断成2条直线。其中一条线的起始坐标为原来直线的起始坐标，结束坐标为鼠标点击坐标，另一条线的起始坐标为鼠标点击坐标结束坐标为原来直线的结束坐标。

sclkkk · 发表于 2011-4-21 08:07:00

第一次搞AutoCAD二次开发,哪为高手教下小弟啊

sailorcwx · 发表于 2011-4-21 11:56:00

[CommandMethod("t1")]
      public void test1()
      {
         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
         PromptEntityOptions selectPrompt = new PromptEntityOptions("");
         PromptEntityResult selectResult = ed.GetEntity(selectPrompt);
         if (selectResult.Status != PromptStatus.OK)
            return;
         Transaction tr=HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction();
         Line lineObject = tr.GetObject(selectResult.ObjectId, OpenMode.ForWrite) as Line;
         Point3d pt = selectResult.PickedPoint;
         pt = lineObject.GetClosestPointTo(pt, false);
         Point3dCollection breakPoints=new Point3dCollection();
         breakPoints.Add(pt);
         DBObjectCollection resultObjects=lineObject.GetSplitCurves(breakPoints);
         BlockTableRecord btr = tr.GetObject(HostApplicationServices.WorkingDatabase.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;
         foreach (DBObject obj in resultObjects)
         {
            btr.AppendEntity((Entity)obj);
            tr.AddNewlyCreatedDBObject(obj, true);
         }
         lineObject.Erase();
         tr.Commit();
         tr.Dispose();
      }
      [CommandMethod("t2")]
      public void test2()
      {
         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
         PromptPointOptions pointPrompt = new PromptPointOptions("");
         PromptPointResult pointResult = ed.GetPoint(pointPrompt);
         if (pointResult.Status != PromptStatus.OK)
            return;
         Point3d pt = pointResult.Value;
         PromptSelectionResult lineResult= ed.SelectCrossingWindow(pt, pt);
         if (lineResult.Status != PromptStatus.OK)
            return;
         ObjectId lineId = lineResult.Value.GetObjectIds()[0];
         Transaction tr = HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction();
         Line lineObject = tr.GetObject(lineId, OpenMode.ForWrite) as Line;
         Point3dCollection breakPoints = new Point3dCollection();
         breakPoints.Add(pt);
         DBObjectCollection resultObjects = lineObject.GetSplitCurves(breakPoints);
         BlockTableRecord btr = tr.GetObject(HostApplicationServices.WorkingDatabase.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;
         foreach (DBObject obj in resultObjects)
         {
            btr.AppendEntity((Entity)obj);
            tr.AddNewlyCreatedDBObject(obj, true);
         }
         lineObject.Erase();
         tr.Commit();
         tr.Dispose();
      }

sclkkk · 发表于 2011-4-22 14:41:00

回复
大哥,你给我的代码怎么用啊,怎么我调试到
Line lineObject = tr.GetObject(selectResult.ObjectId, OpenMode.ForWrite) as Line;
就报错弹出了啊

sailorcwx · 发表于 2011-4-22 16:19:00

仅支持直线，其余线及优化处理你自己来做。在autocad2011+vs2010上测试通过

sclkkk · 发表于 2011-4-22 16:59:00

回复
程序中是用Polyline画的线,也是一样用么

sclkkk · 发表于 2011-4-22 17:13:00

回复
Polyline lineObject = tr.GetObject(selectResult.ObjectId, OpenMode.ForWrite) as Polyline;
还是直接退出了,请问是怎么回事

chmenf087 · 发表于 2011-4-22 22:56:00

算了吧，这个用lisp比.net简单好多哦
(defun c:spL (/ e entt pt1 pnt vent closePnt)
  (vl-load-com)
  (setq omd (getvar "osmode") entt (entsel "\nPlease pick:"))
  (setq e (car entt) vent (vlax-ename->vla-object e) pt1 (cadr entt) closePnt (vlax-curve-getclosestpointto vent pt1))
  (vl-cmdf "Break" entt "F" closepnt closepnt)
  (setvar "osmode" omd)
)

chmenf087 · 发表于 2011-4-22 23:02:00

回复
不过不支持圆和椭圆

sclkkk · 发表于 2011-4-25 07:58:00

回复
没办法啊,老板就要用.NET

请问用鼠标点击一条直线如何以鼠标点击坐标将这条线断成2条直线

发表回复

精选推荐