boom214
路人甲
路人甲
  • 注册日期2005-08-12
  • 发帖数12
  • QQ
  • 铜币166枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1402回复:3

[求助]怎么判断一个点是否在弧段上?

楼主#
更多 发布于:2005-11-08 18:30
<P>各位大虾,请教一个问题:在AO二次开发中,道路网已经建好,现在已知一个点,通过什么方法可以判断这个点是否在某条弧段上?</P>
喜欢0 评分0
cftao2008
路人甲
路人甲
  • 注册日期2005-03-09
  • 发帖数141
  • QQ
  • 铜币568枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-11-09 09:35
<P>这段代码应该是吧!你看看!</P>
<P>Dim pMxDoc As IMxDocument<BR>Set pMxDoc = ThisDocument<BR>Dim pEnumFeature As IEnumFeature<BR>Set pEnumFeature = pMxDoc.FocusMap.FeatureSelection<BR>Dim pFeature As IFeature<BR>pEnumFeature.Reset<BR>Set pFeature = pEnumFeature.Next<BR>If pFeature Is Nothing Then<BR>  MsgBox "Please select a valid feature", vbInformation<BR>  Exit Sub<BR>End If<BR>Dim pRelationalOperator As IRelationalOperator<BR><FONT color=#e61a6b>Set pRelationalOperator = pFeature.ShapeCopy<BR>Dim pPoint As IPoint<BR>Set pPoint = New esriCore.Point<BR>pPoint.PutCoords InputBox("X coordinate of the point?"), InputBox("Y coordinate of the point?")<BR></FONT>If <FONT color=#ff0033>pRelationalOperator.Contains(pPoint)</FONT> Then MsgBox "Inside" Else MsgBox "Outside"</P>
举报 回复(0) 喜欢(0)     评分
cftao2008
路人甲
路人甲
  • 注册日期2005-03-09
  • 发帖数141
  • QQ
  • 铜币568枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-11-09 09:39
<P>在各个几何对象中有一个IRelationalOperator接口,它是专门用来判断几何对象之间的拓扑关系的!<br></P>
[此贴子已经被作者于2005-11-9 10:36:26编辑过]
举报 回复(0) 喜欢(0)     评分
boom214
路人甲
路人甲
  • 注册日期2005-08-12
  • 发帖数12
  • QQ
  • 铜币166枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-11-09 09:47
<P>哦,万分感谢。</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部