2,142
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
tinedwy 2003-10-20
- 打赏
- 举报
i know i know
Set plys = fld.Value
For Each pts In plys.Parts
For i = 0 To pts.Count - 1
Set pt = pts.Item(i)
pt.X = numLen * xleft / (pt.X - xleft)
pt.Y = numLen * ybottom / (pt.Y - ybottom)
pts.Set i, pt
Next i
Next pts
Set fld.Value = plys
Set plys = fld.Value
For Each pts In plys.Parts
For i = 0 To pts.Count - 1
Set pt = pts.Item(i)
pt.X = numLen * xleft / (pt.X - xleft)
pt.Y = numLen * ybottom / (pt.Y - ybottom)
pts.Set i, pt
Next i
Next pts
Set fld.Value = plys
tinedwy 2003-10-14
- 打赏
- 举报
谢谢：）
finewy@126.com
finewy@126.com
zhaofuhong 2003-09-30
- 打赏
- 举报
楼上的兄弟，我的Email: zhao_fu_hong@elong.com
谢谢了哈！！
谢谢了哈！！
crazyeagle 2003-09-29
- 打赏
- 举报
我有MAPINFO的！可以给个邮箱！！！
tinedwy 2003-09-27
- 打赏
- 举报
不是打算，是只能用mo！而我又不太熟悉得这个！能帮帮忙！！
tinedwy 2003-09-27
- 打赏
- 举报
恩，是得！
我打算用mo！
我打算用mo！
sandinsea 2003-09-27
- 打赏
- 举报
mapinfo,mapgis,arcinfo,,arcgis等都可以啊，看一下说明就可以了，也可以自己编一下程序
