流氓灬兔
路人甲
路人甲
  • 注册日期2011-05-11
  • 发帖数1
  • QQ
  • 铜币105枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:4040回复:3

Mapbasic程序困难求解答

楼主#
更多 发布于:2011-05-11 22:40
<P>Mapbasic下写的程序,检查没错误,但是运行时提示invalid window identifier:0   (无效的窗口标识符),不知道哪儿出错了!程序如下:</P>
<P>'产生射线<BR>include"Mapbasic.def"<BR>'open table"F:\毕业论文\毕业设计\图\射线层\射线1"<BR>'open table"F:\毕业论文\毕业设计\图\边界"<BR>dim i,n as integer<BR>dim r,x1,y1,x2,y2,x0,y0,x3,y3,b,a as float</P>
<P><BR>''''''''原点坐标、半径、射线条数、视区坐标<BR>x0=1048236.365<BR>y0=3986187.05<BR>r=18000<BR>n=108<BR>x1=1028084.308<BR>y1=3967218.86<BR>x2=1071914.501<BR>y2=4002503.15<BR>'''''''''''''''''''''''''''''''''''''''''''</P>
<P>Set CoordSys nonearth<BR>units "m"<BR>bounds(x1,y1) (x2,y2)</P>
<P>for i=0 to n-1<BR>b=i*360/n<BR>a=b*deg_2_rad<BR>x3=r*cos(a)<BR>y3=r*sin(a)<BR>     create line<BR>     (x0,y0) (x0+x3,y0+y3)<BR>next</P>
喜欢0 评分0
yudingjian
路人甲
路人甲
  • 注册日期2006-01-14
  • 发帖数4
  • QQ
  • 铜币113枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2011-05-13 08:35
设置 地图窗口  可编辑图层  等
举报 回复(0) 喜欢(0)     评分
beyondsky
路人甲
路人甲
  • 注册日期2007-09-06
  • 发帖数4
  • QQ
  • 铜币119枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2012-04-25 12:08
需要制定绘图的窗口ID<div><div>Dim WinID As Integer</div><div>Dim LayerNum As Integer</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>WinID = FrontWindow()</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>If WindowInfo(Winid,WIN_INFO_TYPE) <> WIN_MAPPER Then</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Note "当前不是地图窗口!"</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Exit Function</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>End If</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>LayerNum = MapperInfo(WinID,MAPPER_INFO_EDIT_LAYER)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>If LayerNum <= 0 Then</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Note "请先设置可编辑图层!"</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Exit Sub</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>End If</div></div>
举报 回复(0) 喜欢(0)     评分
lcs158
论坛版主
论坛版主
  • 注册日期2003-07-30
  • 发帖数319
  • QQ
  • 铜币19枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2022-05-21 14:17
    create line  (x0,y0) (x0+x3,y0+y3)
这句有问题,line 后面或者要一个变量,或者要一个地图窗口。
[url=http://www.sohi.cn]北京搜海书店,做中国3S书籍最齐全,服务最好的品牌书店。看看我们的网站,现在有什么新书!!![/url]
举报 回复(0) 喜欢(0)     评分
游客

返回顶部