best_lilin
路人甲
路人甲
  • 注册日期2004-03-12
  • 发帖数367
  • QQ
  • 铜币1110枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1703回复:4

[求助][VB+AO]以知点坐标如何生成多边形

楼主#
更多 发布于:2005-05-13 18:13
<P>[vb+ao]如果以知n个点的坐标,如何生成线或多边形呢?要用哪些函数,接口呀?有代码最好。谢谢指点</P>
喜欢0 评分0
故国虽大,好战必亡;天下虽安,忘战必危。————司马穰苴
chenjunfc
外卖仔
外卖仔
  • 注册日期2003-08-14
  • 发帖数58
  • QQ283832077
  • 铜币452枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-05-14 15:51
<P>  Dim pPoint As IPoint
  Set pPoint = New Point
  
  Dim pPointCollection As IPointCollection
  Set pPointCollection = New Polygon</P><P>//设置点坐标</P><P> pPointCollection.AddPoint pPoint   </P><P>   //重复步骤
  Dim pTopo As ITopologicalOperator
  Set pTopo = pPointCollection
  pTopo.Simplify</P>
举报 回复(0) 喜欢(0)     评分
best_lilin
路人甲
路人甲
  • 注册日期2004-03-12
  • 发帖数367
  • QQ
  • 铜币1110枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-05-15 18:06
谢谢帮助
故国虽大,好战必亡;天下虽安,忘战必危。————司马穰苴
举报 回复(0) 喜欢(0)     评分
snowtracer
路人甲
路人甲
  • 注册日期2004-07-13
  • 发帖数95
  • QQ
  • 铜币143枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-05-16 10:03
<P>感谢!!!</P>
举报 回复(0) 喜欢(0)     评分
wzhipeng0117
路人甲
路人甲
  • 注册日期2005-05-05
  • 发帖数53
  • QQ
  • 铜币317枚
  • 威望0点
  • 贡献值0点
  • 银元0个
4楼#
发布于:2005-05-16 22:02
<P>有用</P><P>谢谢</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部