用VB或C#.NET实现任意两点画线

chpmould

刚结束NET做CAD二次开发，请教高手指点以下问题！！

用VB或C#.NET如何实现指定任意两点画线 

lzx838

以下是C#的实例代码,跟你Lisp代码类似,可惜我对几何类不熟悉,不然可能还更加简练一些.关于几何类,可以向孤哥多请教.

3. public void LzxTest()
4. {
5.     using (Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())
6.     {
7.         Autodesk.AutoCAD.EditorInput.Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
8.         PromptPointOptions proOne = new PromptPointOptions("\n请选取第一个点:");
9.         //定义第一个点
10.         Point3d ptOne = new Point3d();
11.         //定义第二个点
12.         Point3d ptTwo = new Point3d();
13.         PromptPointResult resOne = ed.GetPoint(proOne);
14.         if (resOne.Status == PromptStatus.OK)
15.         {
16.             ptOne = resOne.Value;
17.             PromptPointOptions proTwo = new PromptPointOptions("\n请选取第二个点:");
18.             proTwo.BasePoint = ptOne;
19.             proTwo.UseBasePoint = true;
20.             PromptPointResult resTwo = ed.GetPoint(proTwo);
21.             if (resTwo.Status == PromptStatus.OK)
22.             {
23.                 ptTwo = resTwo.Value;
24.                 Database db = HostApplicationServices.WorkingDatabase;
25.                 using (Transaction trans = db.TransactionManager.StartTransaction())
26.                 {
27.                     BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead, false);
28.                     BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite, false);
29.                     Line lineObject = new Line(ptOne, ptTwo);
30.                     double douLineAngle = lineObject.Angle;
31.                     #region 计算双重线的起终点坐标
32.                     //----------------------------------------------------------------------------------------------
33.                     double douDis = 0.5;
34.                     Point3d ptLineBen1 = new Point3d(ptOne.X + douDis * Math.Cos(douLineAngle + Math.PI / 2),
35.                                                         ptOne.Y + douDis * Math.Sin(douLineAngle + Math.PI / 2),
36.                                                         ptOne.Z);
37.                     Point3d ptLineEnd1 = new Point3d(ptTwo.X + douDis * Math.Cos(douLineAngle + Math.PI / 2),
38.                                                         ptTwo.Y + douDis * Math.Sin(douLineAngle + Math.PI / 2),
39.                                                         ptTwo.Z);
40.                     Point3d ptLineBen2 = new Point3d(ptOne.X + douDis * Math.Cos(douLineAngle - Math.PI / 2),
41.                                                         ptOne.Y + douDis * Math.Sin(douLineAngle - Math.PI / 2),
42.                                                         ptOne.Z);
43.                     Point3d ptLineEnd2 = new Point3d(ptTwo.X + douDis * Math.Cos(douLineAngle - Math.PI / 2),
44.                                                         ptTwo.Y + douDis * Math.Sin(douLineAngle - Math.PI / 2),
45.                                                         ptTwo.Z);
46.                     //----------------------------------------------------------------------------------------------
47.                     #endregion
48.                     Line lineObject1 = new Line(ptLineBen1, ptLineEnd1);
49.                     Line lineObject2 = new Line(ptLineBen2, ptLineEnd2);
50.                     btr.AppendEntity(lineObject1);
51.                     btr.AppendEntity(lineObject2);
52.                     trans.AddNewlyCreatedDBObject(lineObject1, true);
53.                     trans.AddNewlyCreatedDBObject(lineObject2, true);
54.                     lineObject.Dispose();
55.                     trans.Commit();
56.                 }
57.             }
58.         }
59.     }
60. }

public void LzxTest() {     using (Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())     {         Autodesk.AutoCAD.EditorInput.Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;         PromptPointOptions proOne = new PromptPointOptions("\n请选取第一个点:");         //定义第一个点         Point3d ptOne = new Point3d();         //定义第二个点         Point3d ptTwo = new Point3d();         PromptPointResult resOne = ed.GetPoint(proOne);         if (resOne.Status == PromptStatus.OK)         {             ptOne = resOne.Value;             PromptPointOptions proTwo = new PromptPointOptions("\n请选取第二个点:");             proTwo.BasePoint = ptOne;             proTwo.UseBasePoint = true;             PromptPointResult resTwo = ed.GetPoint(proTwo);             if (resTwo.Status == PromptStatus.OK)             {                 ptTwo = resTwo.Value;                 Database db = HostApplicationServices.WorkingDatabase;                 using (Transaction trans = db.TransactionManager.StartTransaction())                 {                     BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead, false);                     BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite, false);                     Line lineObject = new Line(ptOne, ptTwo);                     double douLineAngle = lineObject.Angle;                     #region 计算双重线的起终点坐标                     //----------------------------------------------------------------------------------------------                     double douDis = 0.5;                     Point3d ptLineBen1 = new Point3d(ptOne.X + douDis * Math.Cos(douLineAngle + Math.PI / 2),                                                         ptOne.Y + douDis * Math.Sin(douLineAngle + Math.PI / 2),                                                         ptOne.Z);                     Point3d ptLineEnd1 = new Point3d(ptTwo.X + douDis * Math.Cos(douLineAngle + Math.PI / 2),                                                         ptTwo.Y + douDis * Math.Sin(douLineAngle + Math.PI / 2),                                                         ptTwo.Z);                     Point3d ptLineBen2 = new Point3d(ptOne.X + douDis * Math.Cos(douLineAngle - Math.PI / 2),                                                         ptOne.Y + douDis * Math.Sin(douLineAngle - Math.PI / 2),                                                         ptOne.Z);                     Point3d ptLineEnd2 = new Point3d(ptTwo.X + douDis * Math.Cos(douLineAngle - Math.PI / 2),                                                         ptTwo.Y + douDis * Math.Sin(douLineAngle - Math.PI / 2),                                                         ptTwo.Z);                     //----------------------------------------------------------------------------------------------                     #endregion                     Line lineObject1 = new Line(ptLineBen1, ptLineEnd1);                     Line lineObject2 = new Line(ptLineBen2, ptLineEnd2);                     btr.AppendEntity(lineObject1);                     btr.AppendEntity(lineObject2);                     trans.AddNewlyCreatedDBObject(lineObject1, true);                     trans.AddNewlyCreatedDBObject(lineObject2, true);                     lineObject.Dispose();                     trans.Commit();                 }             }         }     } }

chpmould

非常感谢版主的热心帮助!!!

我刚测试了一下,这正是我需要实现的效果

chpmould

另外再请教一个问题

C#中类似LISP中的（polar）相对点是那个函数