取cass断面数据

gzxl

gzxl 发表于 2011-9-11 03:51
C#的

可以啊，不过里面还没完善，比如判断左正右负等等

2. using System;
   
3. using System.Collections.Generic;
   
4. using System.Linq;
   
5. using System.Text;
   
6. using Autodesk.AutoCAD.ApplicationServices;
   
7. using Autodesk.AutoCAD.EditorInput;
   
8. using Autodesk.AutoCAD.Runtime;
   
9. using Autodesk.AutoCAD.DatabaseServices;
   
10. using Autodesk.AutoCAD.Geometry;
    
11. 
    
12. namespace 断面采集//gzxl
    
13. {
    
14.     public class Class1
    
15.     {
    
16.         [CommandMethod("cjdm")]
    
17.         public static void cjdm()
    
18.         {
    
19.             var db = HostApplicationServices.WorkingDatabase;
    
20.             var doc = Application.DocumentManager.GetDocument(db);
    
21.             var ed = doc.Editor;
    
22.             Database acCurDb = doc.Database;
    
23. 
    
24.             Application.SetSystemVariable("osmode", 513);
    
25.             PromptPointOptions prPointOptions = new PromptPointOptions("\n选择断面起点或中点:");
    
26.             PromptPointResult prPointRes;
    
27.             prPointRes = ed.GetPoint(prPointOptions);
    
28.             if (prPointRes.Status != PromptStatus.OK)
    
29.                 return;
    
30.             Application.SetSystemVariable("osmode", 0);
    
31. 
    
32.             var resEnt = ed.GetEntity("\n请选择断面线(直线):");
    
33.             if (resEnt.Status != PromptStatus.OK)
    
34.                 return;
    
35. 
    
36.             using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
    
37.             {
    
38.                 Line line = resEnt.ObjectId.GetObject(OpenMode.ForRead) as Line;
    
39.                 LineSegment3d ls3d = new LineSegment3d(line.StartPoint, line.EndPoint); ;
    
40.                 Line3d l3d = new Line3d(line.StartPoint, line.EndPoint);               
    
41.                
    
42.                 TypedValue[] acTypValAr = new TypedValue[2];
    
43.                 acTypValAr.SetValue(new TypedValue((int)DxfCode.Start, "INSERT"), 0);
    
44.                 acTypValAr.SetValue(new TypedValue((int)DxfCode.LayerName, "GCD"), 1);
    
45.                 SelectionFilter acSelFtr = new SelectionFilter(acTypValAr);
    
46. 
    
47.                 PromptSelectionResult acSSPrompt;
    
48.                 acSSPrompt = ed.GetSelection(acSelFtr);
    
49. 
    
50.                 if (acSSPrompt.Status == PromptStatus.OK)
    
51.                 {
    
52.                     SelectionSet acSSet = acSSPrompt.Value;
    
53.                     int count2 = 0;
    
54.                     string LineText2 = "";
    
55.                     //double[] PositionX, PositionY, PositionZ;
    
56.                     double[]PositionZ;
    
57.                     // 遍历选择集中的对象
    
58.                     foreach (SelectedObject acSSObj in acSSet)
    
59.                     {
    
60.                         // 检查以确定返回的 SelectedObject 对象是有效的
    
61.                         if (acSSObj != null)
    
62.                         {
    
63. 
    
64.                             Entity acEnt = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite) as Entity;
    
65.                             if (acEnt != null)
    
66.                             {
    
67.                                 count2++;
    
68.                                 //PositionX = new Double[count2];
    
69.                                 //PositionY = new Double[count2];
    
70.                                 PositionZ = new Double[count2];
    
71.                                 Point3d Position = ((Autodesk.AutoCAD.DatabaseServices.BlockReference)(acEnt)).Position;
    
72.                                 //PositionX[count2 - 1] = Position[0];
    
73.                                 //PositionY[count2 - 1] = Position[1];
    
74.                                 PositionZ[count2 - 1] = Position[2];   
    
75. 
    
76.                                 Point3d pt1 = prPointRes.Value; //断面起点
    
77.                                 Point3d pt2 = l3d.GetClosestPointTo(Position).Point;
    
78. 
    
79.                                 //double dist = pt2.DistanceTo(pt1);
    
80.                                 LineText2 += (pt2 - pt1).Length + "," + PositionZ[count2 - 1].ToString() + "\n";
    
81.                             }                           
    
82.                         }
    
83.                     }
    
84.                     ed.WriteMessage(LineText2 + "\n");
    
85.                 }
    
86.             }
    
87.         }
    
88.     }
    
89. }

using System;<br /> using System.Collections.Generic;<br /> using System.Linq;<br /> using System.Text;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Runtime;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.Geometry;<br /> <br /> namespace 断面采集//gzxl<br /> {<br />     public class Class1<br />     {<br />         [CommandMethod("cjdm")]<br />         public static void cjdm()<br />         {<br />             var db = HostApplicationServices.WorkingDatabase;<br />             var doc = Application.DocumentManager.GetDocument(db);<br />             var ed = doc.Editor;<br />             Database acCurDb = doc.Database;<br /> <br />             Application.SetSystemVariable("osmode", 513);<br />             PromptPointOptions prPointOptions = new PromptPointOptions("\n选择断面起点或中点:");<br />             PromptPointResult prPointRes;<br />             prPointRes = ed.GetPoint(prPointOptions);<br />             if (prPointRes.Status != PromptStatus.OK)<br />                 return;<br />             Application.SetSystemVariable("osmode", 0);<br /> <br />             var resEnt = ed.GetEntity("\n请选择断面线(直线):");<br />             if (resEnt.Status != PromptStatus.OK)<br />                 return;<br /> <br />             using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())<br />             {<br />                 Line line = resEnt.ObjectId.GetObject(OpenMode.ForRead) as Line;<br />                 LineSegment3d ls3d = new LineSegment3d(line.StartPoint, line.EndPoint); ;<br />                 Line3d l3d = new Line3d(line.StartPoint, line.EndPoint);                <br />                 <br />                 TypedValue[] acTypValAr = new TypedValue[2];<br />                 acTypValAr.SetValue(new TypedValue((int)DxfCode.Start, "INSERT"), 0);<br />                 acTypValAr.SetValue(new TypedValue((int)DxfCode.LayerName, "GCD"), 1);<br />                 SelectionFilter acSelFtr = new SelectionFilter(acTypValAr);<br /> <br />                 PromptSelectionResult acSSPrompt;<br />                 acSSPrompt = ed.GetSelection(acSelFtr);<br /> <br />                 if (acSSPrompt.Status == PromptStatus.OK)<br />                 {<br />                     SelectionSet acSSet = acSSPrompt.Value;<br />                     int count2 = 0;<br />                     string LineText2 = "";<br />                     //double[] PositionX, PositionY, PositionZ;<br />                     double[]PositionZ;<br />                     // 遍历选择集中的对象<br />                     foreach (SelectedObject acSSObj in acSSet)<br />                     {<br />                         // 检查以确定返回的 SelectedObject 对象是有效的<br />                         if (acSSObj != null)<br />                         {<br /> <br />                             Entity acEnt = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite) as Entity;<br />                             if (acEnt != null)<br />                             {<br />                                 count2++;<br />                                 //PositionX = new Double[count2];<br />                                 //PositionY = new Double[count2];<br />                                 PositionZ = new Double[count2];<br />                                 Point3d Position = ((Autodesk.AutoCAD.DatabaseServices.BlockReference)(acEnt)).Position;<br />                                 //PositionX[count2 - 1] = Position[0];<br />                                 //PositionY[count2 - 1] = Position[1];<br />                                 PositionZ[count2 - 1] = Position[2];   <br /> <br />                                 Point3d pt1 = prPointRes.Value; //断面起点<br />                                 Point3d pt2 = l3d.GetClosestPointTo(Position).Point;<br /> <br />                                 //double dist = pt2.DistanceTo(pt1);<br />                                 LineText2 += (pt2 - pt1).Length + "," + PositionZ[count2 - 1].ToString() + "\n"; <br />                             }                            <br />                         }<br />                     }<br />                     ed.WriteMessage(LineText2 + "\n");<br />                 }<br />             } <br />         }<br />     }<br /> }

13648893846

zjlszw 发表于 2012-2-24 21:52
提取断面数据 我发一个，源码如下：
(defun c:tqdmsj()
(srcs_data)

能否加个循环，能批量提取就好了

f4800

取cass断面数据

没有币下载  也没截图啊。。

yjpzc

回复 yjpzc 的帖子

取cass断面数据演示
横断面线需要为直线

yfanzi

不顶此贴哥心里不踏实！

gzxl

C#的

xiao1979

好东西

★胜/tp驮

没 币咯！郁闷

xgr

顶一下，希望多发一些类似的测绘方面的源码。

54525596

怎么这样子．．

杜阳

没有钱了 悲哀啊