1 using Autodesk.AutoCAD.DatabaseServices;
 2 using Autodesk.AutoCAD.EditorInput;
 3 using Autodesk.AutoCAD.ApplicationServices;
 4 using Autodesk.AutoCAD.Geometry;
 5 using Autodesk.Civil.DatabaseServices;
 6
 7 namespace 翻模工具
 8 {
 9     /// <summary>
10     /// 2019年5月23日
11     /// 计算选定范围内的平均曲面高程
12     /// </summary>
13     class MeanHeight
14     {
15         public void CalMeanHeigt()
16         {
17             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.CurrentDocument;
18             Database db = doc.Database;
19             TypedValue[] tv = new TypedValue[]
20                {
21                 new TypedValue((int)DxfCode.Start,"LWPOLYLINE")
22                };
23             SelectionFilter sf = new SelectionFilter(tv);
24             PromptSelectionResult psr = doc.Editor.GetSelection(sf);
25             if (psr.Status != PromptStatus.OK) return;
26             SelectionSet ss = psr.Value;
27             PromptEntityOptions peo = new PromptEntityOptions("拾取曲面");
28             peo.SetRejectMessage("\n请选择三角网曲面");
29             peo.AddAllowedClass(typeof(TinSurface), true);
30             PromptEntityResult per = doc.Editor.GetEntity(peo);
31             if (per.Status != PromptStatus.OK) return;
32             using (Transaction tr = doc.TransactionManager.StartTransaction())
33             {
34                 BlockTable bt = db.BlockTableId.GetObject(OpenMode.ForRead) as BlockTable;
35                 BlockTableRecord btr = bt[BlockTableRecord.ModelSpace].GetObject(OpenMode.ForWrite) as BlockTableRecord;
36                 TinSurface sur = per.ObjectId.GetObject(OpenMode.ForRead) as TinSurface;
37                 foreach (ObjectId id in ss.GetObjectIds())
38                 {
39                     Polyline pl = id.GetObject(OpenMode.ForRead) as Polyline;
40                     Point3dCollection pts = new Point3dCollection();
41                     for (int i = 0; i < pl.NumberOfVertices; i++)
42                     {
43                         pts.Add(pl.GetPoint3dAt(i));
44                     }
45                     if (pts[0].DistanceTo(pts[pts.Count - 1]) != 0)
46                     {
47                         pts.Add(pts[0]);
48                     }
49                     double h = sur.GetBoundedVolumes(pts).Net / pl.Area;
50                     Point3d pt1 = pl.GeometricExtents.MaxPoint;
51                     Point3d pt2 = pl.GeometricExtents.MinPoint;
52                     Point3d pt = pt2 + (pt1 - pt2)/2;
53                     DBText t = new DBText();
54                     t.TextString = h.ToString("0.000");
55                     t.Position = pt;
56                     t.HorizontalMode = TextHorizontalMode.TextCenter;
57                     t.VerticalMode = TextVerticalMode.TextVerticalMid;
58                     t.AlignmentPoint = pt;
59                     t.Height = 2.5;
60                     t.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Autodesk.AutoCAD.Colors.ColorMethod.ByColor, 1);
61                     btr.AppendEntity(t);
62                     tr.AddNewlyCreatedDBObject(t, true);
63                 }
64                 tr.Commit();
65             }
66         }
67     }
68 }