地图相关法律法规常识-重要地理信息数据审核与公布

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/weixin_42078760/article/details/89857037

2003年3月25日,国土资源部19号令下发《重要地理信息数据审核公布管理规定》

  • 重要地理信息数据的界定

  • 涉及国家主权 政治主张的地理信息数据
  • 国界 国家面积 海岸线长度,版图重要特征点如钓鱼岛 台湾省 赤尾峪,地势 地貌分区位置等地理信息数据
  • 冠以“全国”“中华”“中国”等字样的地理信息数据
  • 经相邻省政府联合勘定并经国务院批复的省级界线长度和行政面积,沿海省份 直辖市 自治区海岸线长度
  • 其他需经国务院测绘地理信息主管部门审核的重要地理信息数据
  • 重要地理信息数据的审核

在这里插入图片描述

  • 重要地理信息数据的公布

    公布方式

    重要地理信息数据经国务院批准并明确授权公布的部门后,要以公告形式在全国范围内发行的报刊和互联网上刊登公布。

    注意事项

  • 公布时,必须注明审核和公布的部门
  • 公布部门在公布时,应将公告抄送至国务院地理信息主管部门,地信主管部门在收到公告后,应按照规定期限书面通知建议人
  • 国务院有关部门、有关单位或者个人擅自发布已经批准授权公布的重要地理信息数据的,擅自发布未经国务院批准的重要地理信息数据的,依法承担相应法律责任
  • 重要地理信息数据的使用

    在行政管理、新闻传播、对外交流等对社会公众有影响的活动,公开出版的教材及需使用重要地理信息数据的,应当使用依法公布的数据。
展开阅读全文

地理信息

12-08

我做了个程序是要在地图上显示汽车,其中汽车是bmp文件。但是出来的是一个7。请问高手怎么修改?rnprocedure TForm1.Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1, Y1,rn X2, Y2, Distance: Double; Shift, Ctrl: WordBool;rn var EnableDefault: WordBool);rnVarrn s : variant;rn Pnt : cmapxPoint; //点rn FeaFac :cmapxFeatureFactory; //地图图元rn Lyr : cmapxLayer; //图层rn Ftr : cmapxFeature ; //图元对象rn NewStyle : cmapxStyle ; //点对象的样式符号rn Nothing:variant;rnbeginrn s :=CreateOleObject('MapX.Point.4');rn s:=map1.Layers.CreateLayer('temp',emptyparam,emptyparam,emptyparam,emptyparam);rn Lyr:=Map1.Layers.Item('temp'); // 新建图层rn Lyr.Style.SupportsBitmapSymbols;rn Lyr.Style.SymbolBitmapOverrideColor;rn FeaFac:=map1.featurefactory; //土元rn NewStyle:=Lyr.Style;rn //NewStyle.SupportsBitmapSymbols;rn // NewStyle.SymbolBitmapOverrideColor;rn With NewStyle dorn beginrn SymbolType:=miSymbolTypeBitmap; //SymbolType是如何显示点图元(以图)rn SymbolBitmapSize:= 24 ;rn SymbolBitmapTransparent:= False ;rn SymbolBitmapName:='F:\应用mapx\导入bmp文件\GiftService.bmp';rn end;rn map1.AutoRedraw:=False; //禁止自动刷新rn Lyr.Editable:=True;//置当前图层为可写状态rn pnt := CoPoint.Create;rn pnt.Set_(x1,y1);rn //Lyr.SearchAtPoint(s,emptyparam); //'创建点对象rn //'添加进当前图层rn Ftr:=FeaFac.CreateSymbol(Pnt,Newstyle);rn Ftr:=FeaFac. CreateSymbol (Pnt,map1.DefaultStyle);rn Lyr.AddFeature(Ftr,EmptyParam);rn Lyr.Refresh;rn Map1.AutoRedraw:=True;rn Lyr.Editable:=False;rnend;rnrn另我也做了一个别的程序也是显示汽车的rnunit Unit1;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, OleCtrls, MapXLib_TLB, StdCtrls;rnrntypern TForm1 = class(TForm)rn Map1: TMap;rn Button1: TButton;rn procedure Button1Click(Sender: TObject);rn privatern procedure car;rn Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rnrnimplementationrnvarrn dxpos,dypos:double;rn$R *.dfmrnrn TForm1 rnrnprocedure TForm1.car;rnvarrn G_CarLayer:MapXLib_TLB.layer;rn fMapSymbol:MapXLib_TLB.Feature;rn fNewSymbol:MapXLib_TLB.Feature;rnbeginrn dxpos:= Map1.CenterX;rn dypos:= Map1.CenterY;rn G_CarLayer:=Map1.Layers.CreateLayer('temp',emptyparam,emptyparam,emptyparam,emptyparam);rn G_CarLayer.Style.SupportsBitmapSymbols;rn G_CarLayer.Style.SymbolBitmapOverrideColor;rn Map1.Layers.AnimationLayer:=G_CarLayer;rn fNewSymbol.Attach(map1);rn With Map1.DefaultStyle dorn beginrn // SymbolFont: = 'custom symbols';rn SymbolType :=1;rn SymbolBitmapName :='TEMP1-32.BMP';rn SymbolBitmapSize:= 24;rn SymbolBitmapTransparent := True;rn end;rn fNewSymbol.Type_:=miFeatureTypeSymbol;rn fNewSymbol.Style:=Map1.DefaultStyle;rn fNewSymbol.Point.Set_(dxpos, dypos) ;rn fMapSymbol:=G_CarLayer.AddFeature(fNewSymbol,emptyparam);rnend;rnrnprocedure TForm1.Button1Click(Sender: TObject);rnbeginrn car;rnend;rnrnend.其中一直说fNewSymbol.Attach(map1);有问题,请问怎么解决啊? 论坛

没有更多推荐了,返回首页