[分享]绘制剖断线(C#)

carrot1983

2. using System;
3. using System.Text;
4. using Autodesk.AutoCAD.ApplicationServices;
5. using Autodesk.AutoCAD.DatabaseServices;
6. using Autodesk.AutoCAD.EditorInput;
7. using Autodesk.AutoCAD.Geometry;
8. using Autodesk.AutoCAD.Runtime;
9. namespace CsMgd1
10. {
11.     public class Class1
12.     {
13.         Database db = HostApplicationServices.WorkingDatabase;
14.         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
15.         [CommandMethod("Test")]
16.         public void Test()
17.         {
18.             ed.WriteMessage("\n绘制剖断线  By carrot1983");
19.    PromptPointResult proPtRes1;
20.    PromptPointOptions proPtOpts1 = new PromptPointOptions("\n指定第一点: ");
21.    proPtRes1 = ed.GetPoint(proPtOpts1);
22.    Point3d pt1 = proPtRes1.Value;
23.    PromptPointResult proPtRes2;
24.    PromptPointOptions proPtOpts2 = new PromptPointOptions("\n指定第二点: ");
25.             proPtOpts2.UseDashedLine = true;
26.    proPtOpts2.UseBasePoint = true;
27.             proPtOpts2.BasePoint = pt1;
28.    proPtRes2 = ed.GetPoint(proPtOpts2);
29.    Point3d pt2 = proPtRes2.Value;
30.             Point2dCollection pts = GetPoDuanPoints(pt1, pt2);
31.             ObjectId pline = AddPline(pts, 0.0);
32.         }
33.         //取得两点间角度
34.         public static double Get2PointsAngle(Point3d pt1, Point3d pt2)
35.         {
36.             Vector3d v1 = pt1.GetVectorTo(pt2);
37.             return v1.GetAngleTo(Vector3d.XAxis);
38.         }
39.         //按方向和距离求取点
40.         public static Point3d PolarPoint(Point3d basePt, double angle, double distance)
41.         {
42.             double[] pt = new double[3];
43.             pt[0] = basePt[0] + distance * Math.Cos(angle);
44.             pt[1] = basePt[1] + distance * Math.Sin(angle);
45.             pt[2] = basePt[2];
46.             Point3d point = new Point3d(pt[0], pt[1], pt[2]);
47.             return point;
48.         }
49.         //计算剖断线的顶点表
50.         public static Point2dCollection GetPoDuanPoints(Point3d pt1, Point3d pt2)
51.         {
52.              double ang = Get2PointsAngle(pt1, pt2);
53.              Point3d leftPt = PolarPoint(pt1, ang+Math.PI, 56);
54.              Point3d rightPt = PolarPoint(pt2, ang, 56);
55.              Point3d middlePt = new Point3d((leftPt.X + rightPt.X) * 0.5, (leftPt.Y + rightPt.Y) * 0.5, (leftPt.Z + rightPt.Z) * 0.5);
56.              Point3d leftPt1 = PolarPoint(middlePt, ang + Math.PI, 26);
57.              Point3d leftPt2 = PolarPoint(PolarPoint(middlePt, ang + Math.PI, 12), ang + Math.PI * 0.5, 44);
58.              Point3d rightPt1 = PolarPoint(middlePt, ang, 26);
59.              Point3d rightPt2 = PolarPoint(PolarPoint(middlePt, ang, 12), ang + Math.PI * 1.5, 44);
60.              Point2dCollection pts = new Point2dCollection();
61.              pts.Add(new Point2d (leftPt.X,leftPt.Y));
62.              pts.Add(new Point2d(leftPt1.X, leftPt1.Y));
63.              pts.Add(new Point2d(leftPt2.X, leftPt2.Y));
64.              pts.Add(new Point2d(rightPt2.X, rightPt2.Y));
65.              pts.Add(new Point2d(rightPt1.X, rightPt1.Y));
66.              pts.Add(new Point2d(rightPt.X, rightPt.Y));
67.              return pts;
68.         }
69.         // 由二维点集合和线宽创建二维优化多段线的函数.
70.         public static ObjectId AddPline(Point2dCollection pts, double width)
71.         {
72.             try
73.             {
74.                 int n = pts.Count;
75.                 Polyline ent = new Polyline();
76.                 for (int i = 0; i < n; i++)
77.                     ent.AddVertexAt(i, pts[i], 0, width, width);
78.                 ObjectId entId = AppendEntity(ent);
79.                 return entId;
80.             }
81.             catch
82.             {
83.                 ObjectId nullId = ObjectId.Null;
84.                 return nullId;
85.             }
86.         }
87.         // 将图形对象加入到模型空间的函数.
88.         public static ObjectId AppendEntity(Entity ent)
89.         {
90.             Database db = HostApplicationServices.WorkingDatabase;
91.             ObjectId entId;
92.             using (Transaction trans = db.TransactionManager.StartTransaction())
93.             {
94.                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);
95.                 BlockTableRecord btr = (BlockTableRecord)trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
96.                 entId = btr.AppendEntity(ent);
97.                 trans.AddNewlyCreatedDBObject(ent, true);
98.                 trans.Commit();
99.             }
100.             return entId;
101.         }
102.     }
103. }

using System; using System.Text; using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.Runtime; namespace CsMgd1 {     public class Class1     {         Database db = HostApplicationServices.WorkingDatabase;         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;         [CommandMethod("Test")]         public void Test()         {             ed.WriteMessage("\n绘制剖断线  By carrot1983");    PromptPointResult proPtRes1;    PromptPointOptions proPtOpts1 = new PromptPointOptions("\n指定第一点: ");    proPtRes1 = ed.GetPoint(proPtOpts1);    Point3d pt1 = proPtRes1.Value;    PromptPointResult proPtRes2;    PromptPointOptions proPtOpts2 = new PromptPointOptions("\n指定第二点: ");             proPtOpts2.UseDashedLine = true;    proPtOpts2.UseBasePoint = true;             proPtOpts2.BasePoint = pt1;    proPtRes2 = ed.GetPoint(proPtOpts2);    Point3d pt2 = proPtRes2.Value;             Point2dCollection pts = GetPoDuanPoints(pt1, pt2);             ObjectId pline = AddPline(pts, 0.0);         }         //取得两点间角度         public static double Get2PointsAngle(Point3d pt1, Point3d pt2)         {             Vector3d v1 = pt1.GetVectorTo(pt2);             return v1.GetAngleTo(Vector3d.XAxis);         }         //按方向和距离求取点         public static Point3d PolarPoint(Point3d basePt, double angle, double distance)         {             double[] pt = new double[3];             pt[0] = basePt[0] + distance * Math.Cos(angle);             pt[1] = basePt[1] + distance * Math.Sin(angle);             pt[2] = basePt[2];             Point3d point = new Point3d(pt[0], pt[1], pt[2]);             return point;         }         //计算剖断线的顶点表         public static Point2dCollection GetPoDuanPoints(Point3d pt1, Point3d pt2)         {              double ang = Get2PointsAngle(pt1, pt2);              Point3d leftPt = PolarPoint(pt1, ang+Math.PI, 56);              Point3d rightPt = PolarPoint(pt2, ang, 56);              Point3d middlePt = new Point3d((leftPt.X + rightPt.X) * 0.5, (leftPt.Y + rightPt.Y) * 0.5, (leftPt.Z + rightPt.Z) * 0.5);              Point3d leftPt1 = PolarPoint(middlePt, ang + Math.PI, 26);              Point3d leftPt2 = PolarPoint(PolarPoint(middlePt, ang + Math.PI, 12), ang + Math.PI * 0.5, 44);              Point3d rightPt1 = PolarPoint(middlePt, ang, 26);              Point3d rightPt2 = PolarPoint(PolarPoint(middlePt, ang, 12), ang + Math.PI * 1.5, 44);              Point2dCollection pts = new Point2dCollection();              pts.Add(new Point2d (leftPt.X,leftPt.Y));              pts.Add(new Point2d(leftPt1.X, leftPt1.Y));              pts.Add(new Point2d(leftPt2.X, leftPt2.Y));              pts.Add(new Point2d(rightPt2.X, rightPt2.Y));              pts.Add(new Point2d(rightPt1.X, rightPt1.Y));              pts.Add(new Point2d(rightPt.X, rightPt.Y));              return pts;         }         // 由二维点集合和线宽创建二维优化多段线的函数.         public static ObjectId AddPline(Point2dCollection pts, double width)         {             try             {                 int n = pts.Count;                 Polyline ent = new Polyline();                 for (int i = 0; i < n; i++)                     ent.AddVertexAt(i, pts[i], 0, width, width);                 ObjectId entId = AppendEntity(ent);                 return entId;             }             catch             {                 ObjectId nullId = ObjectId.Null;                 return nullId;             }         }         // 将图形对象加入到模型空间的函数.         public static ObjectId AppendEntity(Entity ent)         {             Database db = HostApplicationServices.WorkingDatabase;             ObjectId entId;             using (Transaction trans = db.TransactionManager.StartTransaction())             {                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);                 BlockTableRecord btr = (BlockTableRecord)trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);                 entId = btr.AppendEntity(ent);                 trans.AddNewlyCreatedDBObject(ent, true);                 trans.Commit();             }             return entId;         }     } }

绘制剖断线，我是先用LISP写一遍，再用C#将LISP翻译过来当做练习。
结果不知道为什么。LISP执行的是OK的。
C#执行过程中在两点角度为[0 PI] 是OK的，但是在(PI 2PI)点位错掉了。
呵呵，果然C#很难走顺畅。。。
将LISP附上：

2. (defun C:PD (/ PT1 PT2 PTS)
3.   (princ "\n★绘制剖断线 By carrot1983")
4.   (if (and (setq PT1 (getpoint "\n指定第一点: "))
5.     (setq PT2 (getpoint PT1 "\n指定第二点: "))
6.     (setq PTS (C-DRAW_PODUAN PT1 PT2))
7.       )
8.     (progn
9.       (command "_.PLINE")
10.       (foreach X PTS
11. (command "_NON" X)
12.       )
13.       (command "")
14.     )
15.   )
16.   (princ)
17. )
18. (defun C-DRAW_PODUAN
19.        (PT1 PT2 / ANG LPT LPT1 LPT2 MPT PTS RPT RPT1 RPT2 X Y)
20.   (setq ANG (angle PT1 PT2))
21.   (setq LPT (polar PT1 (+ ANG pi) 56))
22.   (setq RPT (polar PT2 ANG 56))
23.   (setq MPT (mapcar
24.        '(lambda (X Y) (* (+ X Y) 0.5))
25.        LPT
26.        RPT
27.      )
28.   )
29.   (setq LPT1 (polar MPT (+ ANG pi) 26))
30.   (setq LPT2 (polar MPT (+ ANG pi) 12))
31.   (setq LPT2 (polar LPT2 (+ ANG (* 0.5 pi)) 44))
32.   (setq RPT1 (polar MPT ANG 26))
33.   (setq RPT2 (polar MPT ANG 12))
34.   (setq RPT2 (polar RPT2 (+ ANG (* 1.5 pi)) 44))
35.   (setq PTS (list LPT LPT1 LPT2 RPT2 RPT1 RPT))
36. )

(defun C:PD (/ PT1 PT2 PTS)   (princ "\n★绘制剖断线 By carrot1983")   (if (and (setq PT1 (getpoint "\n指定第一点: "))     (setq PT2 (getpoint PT1 "\n指定第二点: "))     (setq PTS (C-DRAW_PODUAN PT1 PT2))       )     (progn       (command "_.PLINE")       (foreach X PTS (command "_NON" X)       )       (command "")     )   )   (princ) ) (defun C-DRAW_PODUAN        (PT1 PT2 / ANG LPT LPT1 LPT2 MPT PTS RPT RPT1 RPT2 X Y)   (setq ANG (angle PT1 PT2))   (setq LPT (polar PT1 (+ ANG pi) 56))   (setq RPT (polar PT2 ANG 56))   (setq MPT (mapcar        '(lambda (X Y) (* (+ X Y) 0.5))        LPT        RPT      )   )   (setq LPT1 (polar MPT (+ ANG pi) 26))   (setq LPT2 (polar MPT (+ ANG pi) 12))   (setq LPT2 (polar LPT2 (+ ANG (* 0.5 pi)) 44))   (setq RPT1 (polar MPT ANG 26))   (setq RPT2 (polar MPT ANG 12))   (setq RPT2 (polar RPT2 (+ ANG (* 1.5 pi)) 44))   (setq PTS (list LPT LPT1 LPT2 RPT2 RPT1 RPT)) )

dukeyongwang

将Lisp的运行结果图片贴上让看看，不知道啥叫剖断线

jsy198610

你的这个剖断线跟剖面图是不是一个东西的

无惢

不能设置比例，不太好

sdaulj

路过并表示强烈支持！

aprilsea

角度转换有问题

aprilsea

萝卜兄转战.NET了？你的拉移随心已经成名已久啦！你的剖断线程序，我测试了是后面的角度转换有问题，改过后就行了。不知道你解决没有？

1. public static Point2dCollection GetVertexAndPoints(Point3d pt1, Point3d pt2,double offset_x,double offset_y,double offset_end)
   
2.         {
   
3.              Point2d p1 = new Point2d(pt1.X, pt1.Y);
   
4.              Point2d p2 = new Point2d(pt2.X, pt2.Y);
   
5.              double ang = GetTwoPoints2DAngle(p1, p2);
   
6.              double length = p1.GetDistanceTo(p2);
   
7.              //offset_x = 120.0;
   
8.              //offset_y = 220.0;
   
9.              //offset_end=500.0;
   
10.              //角度定义
    
11.              double ang_pi = Rad2Ang(180.0) + ang;
    
12.              double ang_half_pi = Rad2Ang(90.0) + ang;
    
13.              double ang_half_pi2 = ang - Rad2Ang(90.0);
    
14.              //起始点
    
15.              Point2d StartPoint = PolarPoint(p1, ang_pi, 500.0);
    
16.              Point2d EndPoint = PolarPoint(p2, ang, 500.0);
    
17.              //中点
    
18.              Point2d middlePt = PolarPoint(p1, ang, 0.5 * length);
    
19.              //左右第一点
    
20.              Point2d leftPt1 = PolarPoint(middlePt, ang_pi, 0.5 * offset_x);
    
21.              Point2d rightPt1 = PolarPoint(middlePt, ang, 0.5 * offset_x);
    
22.              //L2、R2投影点
    
23.              Point2d PtL = PolarPoint(middlePt, ang_pi, 0.25 * offset_x);
    
24.              Point2d PtR = PolarPoint(middlePt, ang, 0.25 * offset_x);
    
25.              //左右第二点
    
26.              Point2d leftPt2 = PolarPoint(PtL, ang_half_pi, 0.5 * offset_y);
    
27.              Point2d rightPt2 = PolarPoint(PtR, ang_half_pi2, 0.5 * offset_y);
    
28.              //添加到点集
    
29.              Point2dCollection pts = new Point2dCollection();
    
30.              pts.Add(StartPoint); //起点
    
31.              pts.Add(new Point2d(leftPt1.X, leftPt1.Y));
    
32.              pts.Add(new Point2d(leftPt2.X, leftPt2.Y));
    
33.              pts.Add(new Point2d(rightPt2.X, rightPt2.Y));
    
34.              pts.Add(new Point2d(rightPt1.X, rightPt1.Y));
    
35.              pts.Add(EndPoint);   //终点1
    
36.              return pts;
    
37.         }

复制代码