流氓灬兔
路人甲
路人甲
  • 注册日期2011-05-11
  • 发帖数1
  • QQ
  • 铜币105枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:4074回复: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
游客

返回顶部