怎样在选择多段线的同时计算得到所选的点位于多段线的哪段上

xgr

相同问题见http://bbs.mjtd.com/dispbbs_4_59025_100_1.html
在单选一个多段线时可以返回一个对象和一个选择点，但不知道怎么计算得到选择点位于或最接近于多段线哪一段。

sieben

1 public Autodesk.AutoCAD.EditorInput.PromptEntityResult GetEntity(Autodesk.AutoCAD.EditorInput.PromptEntityOptions options)
    Autodesk.AutoCAD.EditorInput.Editor 的成员
2 public Autodesk.AutoCAD.Geometry.Point3d PickedPoint { get; }
    Autodesk.AutoCAD.EditorInput.PromptEntityResult 的成员
3 public virtual Autodesk.AutoCAD.Geometry.Point3d GetClosestPointTo(Autodesk.AutoCAD.Geometry.Point3d givenPoint, bool extend)
    Autodesk.AutoCAD.DatabaseServices.Curve 的成员
4 public virtual double GetParameterAtPoint(Autodesk.AutoCAD.Geometry.Point3d point)
    Autodesk.AutoCAD.DatabaseServices.Curve 的成员
5 将GetParameterAtPoint 返回值取整

guohq

2.   ''' <summary>
   
3.     ''' 找多段线上某一顶点到线外一点的最近顶点
   
4.     ''' </summary>
   
5.     ''' <param name="pt"></param>
   
6.     ''' <param name="objPolID"></param>
   
7.     ''' <param name="VerNum">可以传出最近点的序号</param>
   
8.     ''' <returns></returns>
   
9.     ''' <remarks></remarks>
   
10.     Public Function NearestVerPt(ByVal pt As Point2d, ByVal objPolID As  ObjectId, Optional ByRef VerNum As Integer = 0) As Point2d
    
11.         Using Trans As  Transaction = DB.TransactionManager.StartTransaction
    
12.             Dim Ent As  Entity = Trans.GetObject(objPolID, clsAADS.OpenMode.ForRead)
    
13.             If TypeOf Ent Is  Polyline Then
    
14.                 Dim objPol As  Polyline = Ent
    
15.                 Dim ptTemp As Point2d = objPol.GetPoint2dAt(0)
    
16.                 Dim Dist As Double = pt.GetDistanceTo(ptTemp)
    
17.                 VerNum = 0
    
18.                 For I As Integer = 1 To objPol.NumberOfVertices - 1
    
19.                     ptTemp = objPol.GetPoint2dAt(I)
    
20.                     If pt.GetDistanceTo(ptTemp) < Dist Then
    
21.                         VerNum = I
    
22.                         Dist = pt.GetDistanceTo(ptTemp)
    
23.                     End If
    
24.                 Next
    
25.                 Return objPol.GetPoint2dAt(VerNum)
    
26.             Else
    
27.                 NearestVerPt = Nothing
    
28.             End If
    
29.             Trans.Commit()
    
30.         End Using
    
31.     End Function

  ''' <summary><br />     ''' 找多段线上某一顶点到线外一点的最近顶点<br />     ''' </summary><br />     ''' <param name="pt"></param><br />     ''' <param name="objPolID"></param><br />     ''' <param name="VerNum">可以传出最近点的序号</param><br />     ''' <returns></returns><br />     ''' <remarks></remarks><br />     Public Function NearestVerPt(ByVal pt As Point2d, ByVal objPolID As  ObjectId, Optional ByRef VerNum As Integer = 0) As Point2d<br />         Using Trans As  Transaction = DB.TransactionManager.StartTransaction<br />             Dim Ent As  Entity = Trans.GetObject(objPolID, clsAADS.OpenMode.ForRead)<br />             If TypeOf Ent Is  Polyline Then<br />                 Dim objPol As  Polyline = Ent<br />                 Dim ptTemp As Point2d = objPol.GetPoint2dAt(0)<br />                 Dim Dist As Double = pt.GetDistanceTo(ptTemp)<br />                 VerNum = 0<br />                 For I As Integer = 1 To objPol.NumberOfVertices - 1<br />                     ptTemp = objPol.GetPoint2dAt(I)<br />                     If pt.GetDistanceTo(ptTemp) < Dist Then<br />                         VerNum = I<br />                         Dist = pt.GetDistanceTo(ptTemp)<br />                     End If<br />                 Next<br />                 Return objPol.GetPoint2dAt(VerNum)<br />             Else<br />                 NearestVerPt = Nothing<br />             End If<br />             Trans.Commit()<br />         End Using<br />     End Function

xgr

谢谢回复
guohq,请用C#写个简单的代码

guohq

2. public Point2d NearestVerPt(Point2d pt, ObjectId objPolID, ref int VerNum = 0)
   
3. {
   
4.         Point2d functionReturnValue = default(Point2d);
   
5.         using (Transaction Trans = DB.TransactionManager.StartTransaction) {
   
6.                 Entity Ent = Trans.GetObject(objPolID, clsAADS.OpenMode.ForRead);
   
7.                 if (Ent is Polyline) {
   
8.                         Polyline objPol = Ent;
   
9.                         Point2d ptTemp = objPol.GetPoint2dAt(0);
   
10.                         double Dist = pt.GetDistanceTo(ptTemp);
    
11.                         VerNum = 0;
    
12.                         for (int I = 1; I <= objPol.NumberOfVertices - 1; I++) {
    
13.                                 ptTemp = objPol.GetPoint2dAt(I);
    
14.                                 if (pt.GetDistanceTo(ptTemp) < Dist) {
    
15.                                         VerNum = I;
    
16.                                         Dist = pt.GetDistanceTo(ptTemp);
    
17.                                 }
    
18.                         }
    
19.                         return objPol.GetPoint2dAt(VerNum);
    
20.                 } else {
    
21.                         functionReturnValue = null;
    
22.                 }
    
23.                 Trans.Commit();
    
24.         }
    
25.         return functionReturnValue;
    
26. }

public Point2d NearestVerPt(Point2d pt, ObjectId objPolID, ref int VerNum = 0)<br /> {<br />         Point2d functionReturnValue = default(Point2d);<br />         using (Transaction Trans = DB.TransactionManager.StartTransaction) {<br />                 Entity Ent = Trans.GetObject(objPolID, clsAADS.OpenMode.ForRead);<br />                 if (Ent is Polyline) {<br />                         Polyline objPol = Ent;<br />                         Point2d ptTemp = objPol.GetPoint2dAt(0);<br />                         double Dist = pt.GetDistanceTo(ptTemp);<br />                         VerNum = 0;<br />                         for (int I = 1; I <= objPol.NumberOfVertices - 1; I++) {<br />                                 ptTemp = objPol.GetPoint2dAt(I);<br />                                 if (pt.GetDistanceTo(ptTemp) < Dist) {<br />                                         VerNum = I;<br />                                         Dist = pt.GetDistanceTo(ptTemp);<br />                                 }<br />                         }<br />                         return objPol.GetPoint2dAt(VerNum);<br />                 } else {<br />                         functionReturnValue = null;<br />                 }<br />                 Trans.Commit();<br />         }<br />         return functionReturnValue;<br /> }

这个是自动翻译的，可能有些问题

xgr

其实两位的方法只是取得了选择点距离多段线端点最近点的号，我需要的是选择点所选择那一段线的方位角，这个就有些麻烦，因为所选择的位置有前有后，所以选择同一个点返回的点号可能相差1.

xgr

已想到完美解决办法
GetParameterAtPoint返回值的小数部分即代表所选点在多段线的位置

ZZX4274382

在单选一个多段线时可以返回一个对象和一个选择点,这句话的意思是什么啊,可以返回点的吗,可否给个例子说明一下