###1.VBA 实现判断点击点在多段线上的位置在 AutoCAD 的 VBA 环境中可以通过PickPoint方法获取用户点击的点并通过GetNearestPointOnCurve方法判断该点是否在多段线上以及其在多段线上的具体位置如参数值、距离等。VBA 示例代码获取点击点在多段线上的位置Sub GetPointOnPolyline() Dim objApp As Object Dim objDoc As Object Dim objSelSet As Object Dim objEnt As Object Dim pt As Variant Dim param As Double Dim dist As Double Set objApp ThisDrawing.Application Set objDoc ThisDrawing 提示用户选择多段线 objApp.SendCommand _.SELECT _P _L 获取选中的实体 Set objSelSet objDoc.SelectionSets(Temp) If objSelSet.Count 0 Then Set objEnt objSelSet(1) Else MsgBox 未选择任何实体。 Exit Sub End If 检查是否为多段线 If objEnt.ObjectName AcDbPolyline Then MsgBox 所选对象不是多段线。 Exit Sub End If 获取用户点击点 pt objApp.GetPoint(请选择多段线上的一个点: ) 获取点击点在多段线上的最近点及参数 objEnt.GetNearestPointOnCurve pt, param, dist 输出结果 MsgBox 点击点在多段线上的参数值为: param vbCrLf _ 距离多段线起点的距离为: dist End Sub说明GetNearestPointOnCurve方法返回点击点在多段线上的最近点的参数值param和距离dist可用于计算点击线段的长度或凸度。2.C# 实现判断点击点在多段线上的位置如果 VBA 无法满足需求可以使用 C# 结合 AutoCAD .NET API 实现更复杂的逻辑。以下是一个 C# 示例用于判断点击点在多段线上的位置并提取线段的长度或凸度。C# 示例代码获取点击点在多段线上的位置using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Geometry; namespace PolylinePointFinder { public class Program { [CommandMethod(GetPointOnPolyline)] public void GetPointOnPolyline() { Document doc Application.DocumentManager.MdiActiveDocument; Database db doc.Database; Editor ed doc.Editor; // 选择多段线 PromptEntityOptions peo new PromptEntityOptions(请选择一条多段线: ); peo.SetRejectInvalidEntities(true); PromptEntityResult per ed.GetEntity(peo); if (per.Status ! PromptStatus.OK) return; using (Transaction tr db.TransactionManager.StartTransaction()) { Entity ent tr.GetObject(per.ObjectId, OpenMode.ForRead) as Entity; if (ent null || !(ent is Polyline)) { ed.WriteMessage(所选对象不是多段线。); return; } Polyline pline ent as Polyline; // 获取用户点击点 Point3d clickPoint ed.GetPoint(请选择多段线上的一个点: ).Value; // 获取点击点在多段线上的最近点及参数 Point3d nearestPoint new Point3d(); double param 0.0; double dist 0.0; pline.GetNearestPointOnCurve(clickPoint, ref nearestPoint, ref param, ref dist); // 输出结果 ed.WriteMessage(点击点在多段线上的参数值为: param.ToString() ); ed.WriteMessage(距离多段线起点的距离为: dist.ToString() ); // 如果需要获取线段的长度或凸度可以进一步处理 // 例如根据参数值确定点击的是哪一段线 int segmentIndex (int)Math.Floor(param); if (segmentIndex pline.NumberOfVertices - 1) { Point2d start pline.GetPoint2dAt(segmentIndex); Point2d end pline.GetPoint2dAt(segmentIndex 1); double segmentLength (end - start).Length; ed.WriteMessage(点击线段的长度为: segmentLength.ToString() ); } else { ed.WriteMessage(点击点位于多段线的终点。 ); } tr.Commit(); } } } }说明此代码通过GetNearestPointOnCurve方法获取点击点在多段线上的参数值param和距离dist并根据参数值判断点击的是哪一段线从而提取线段的长度或凸度。3.总结对比方法是否支持判断点击点位置是否需要编程适用场景VBA✅✅快速实现简单功能C#✅✅复杂逻辑、自动化处理以上方法可根据实际需求选择使用。参考来源C# CAD二次开发之基本图形多段线弧长计算核心技巧C#读取CAD文件dwg/dxf并处理CAD二次开发IFoxCAD框架系列26- 分段测量多段线长度和计算多边形的面积C# CAD交互界面-自定义窗体三 
长河君 · 2026/8/28 23:53:26 · 阅读 1.2k 判断点击点在多段线上的位置
###1.VBA 实现判断点击点在多段线上的位置在 AutoCAD 的 VBA 环境中可以通过PickPoint方法获取用户点击的点并通过GetNearestPointOnCurve方法判断该点是否在多段线上以及其在多段线上的具体位置如参数值、距离等。VBA 示例代码获取点击点在多段线上的位置Sub GetPointOnPolyline() Dim objApp As Object Dim objDoc As Object Dim objSelSet As Object Dim objEnt As Object Dim pt As Variant Dim param As Double Dim dist As Double Set objApp ThisDrawing.Application Set objDoc ThisDrawing 提示用户选择多段线 objApp.SendCommand _.SELECT _P _L 获取选中的实体 Set objSelSet objDoc.SelectionSets(Temp) If objSelSet.Count 0 Then Set objEnt objSelSet(1) Else MsgBox 未选择任何实体。 Exit Sub End If 检查是否为多段线 If objEnt.ObjectName AcDbPolyline Then MsgBox 所选对象不是多段线。 Exit Sub End If 获取用户点击点 pt objApp.GetPoint(请选择多段线上的一个点: ) 获取点击点在多段线上的最近点及参数 objEnt.GetNearestPointOnCurve pt, param, dist 输出结果 MsgBox 点击点在多段线上的参数值为: param vbCrLf _ 距离多段线起点的距离为: dist End Sub说明GetNearestPointOnCurve方法返回点击点在多段线上的最近点的参数值param和距离dist可用于计算点击线段的长度或凸度。2.C# 实现判断点击点在多段线上的位置如果 VBA 无法满足需求可以使用 C# 结合 AutoCAD .NET API 实现更复杂的逻辑。以下是一个 C# 示例用于判断点击点在多段线上的位置并提取线段的长度或凸度。C# 示例代码获取点击点在多段线上的位置using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Geometry; namespace PolylinePointFinder { public class Program { [CommandMethod(GetPointOnPolyline)] public void GetPointOnPolyline() { Document doc Application.DocumentManager.MdiActiveDocument; Database db doc.Database; Editor ed doc.Editor; // 选择多段线 PromptEntityOptions peo new PromptEntityOptions(请选择一条多段线: ); peo.SetRejectInvalidEntities(true); PromptEntityResult per ed.GetEntity(peo); if (per.Status ! PromptStatus.OK) return; using (Transaction tr db.TransactionManager.StartTransaction()) { Entity ent tr.GetObject(per.ObjectId, OpenMode.ForRead) as Entity; if (ent null || !(ent is Polyline)) { ed.WriteMessage(所选对象不是多段线。); return; } Polyline pline ent as Polyline; // 获取用户点击点 Point3d clickPoint ed.GetPoint(请选择多段线上的一个点: ).Value; // 获取点击点在多段线上的最近点及参数 Point3d nearestPoint new Point3d(); double param 0.0; double dist 0.0; pline.GetNearestPointOnCurve(clickPoint, ref nearestPoint, ref param, ref dist); // 输出结果 ed.WriteMessage(点击点在多段线上的参数值为: param.ToString() ); ed.WriteMessage(距离多段线起点的距离为: dist.ToString() ); // 如果需要获取线段的长度或凸度可以进一步处理 // 例如根据参数值确定点击的是哪一段线 int segmentIndex (int)Math.Floor(param); if (segmentIndex pline.NumberOfVertices - 1) { Point2d start pline.GetPoint2dAt(segmentIndex); Point2d end pline.GetPoint2dAt(segmentIndex 1); double segmentLength (end - start).Length; ed.WriteMessage(点击线段的长度为: segmentLength.ToString() ); } else { ed.WriteMessage(点击点位于多段线的终点。 ); } tr.Commit(); } } } }说明此代码通过GetNearestPointOnCurve方法获取点击点在多段线上的参数值param和距离dist并根据参数值判断点击的是哪一段线从而提取线段的长度或凸度。3.总结对比方法是否支持判断点击点位置是否需要编程适用场景VBA✅✅快速实现简单功能C#✅✅复杂逻辑、自动化处理以上方法可根据实际需求选择使用。参考来源C# CAD二次开发之基本图形多段线弧长计算核心技巧C#读取CAD文件dwg/dxf并处理CAD二次开发IFoxCAD框架系列26- 分段测量多段线长度和计算多边形的面积C# CAD交互界面-自定义窗体三