gis二次開发.docVIP

GIS的二次开发——使用pb调用mapx控件（原创） ///新建图层的函数 //wf_add_layer oleobject aLayer,lb_dataset,LayerInfo,Flds ole_1.object.Geoset=H:\water_pt_map.gst alayer=Create OleObject alayer.ConnectToNewObject(MapX.Layer.5) LayerInfo=Create OleObject LayerInfo.ConnectToNewObject(MapX.LayerInfo.5) Flds=Create OleObject Flds.ConnectToNewObject(MapX.fields.5) Flds.AddStringField (ID, 12 ) Flds.AddStringField (Name, 50) //新建图层 LayerInfo.Type = 6 LayerInfo.AddParameter (NAME, meteruse) LayerInfo.AddParameter (Fields, Flds ) LayerInfo.AddParameter (AUTOCREATEDATASET, 1) LayerInfo.AddParameter (DATASETNAME, PT_WATER)