![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
GIS
hjfjoy
这个作者很懒,什么都没留下…
展开
-
鹰眼实现办法
procedure TFrmMain.MapMainAfterDraw(ASender: TObject; Display: OleVariant;viewDrawPhase: Integer);varFillSymbol: IFillSymbol;pColor: IColor;outline: ILineSymbol;flag: WordBool;symbol: OleVariant;begin原创 2009-03-28 23:12:00 · 570 阅读 · 0 评论 -
读取XML文件
通过读取XML配置文件以哈希表结构进行保存。 Dim strMapInfoPath As String = System.Windows.Forms.Application.StartupPath() + "/MapConfiguration/DJTFHDMList.XML" Dim doc As XmlDocument = New XmlDocument原创 2009-06-30 19:09:00 · 377 阅读 · 0 评论 -
创建地理坐标类型
nType 创建地理坐标类型 Public Function CreateProject(ByVal pSpatRefFact As ISpatialReferenceFactory, ByVal nType As Integer, ByVal strNameBZ As String) As IProjectedCoordinateSystem 投影坐标系原创 2009-06-30 14:54:00 · 771 阅读 · 0 评论 -
改变图层的空间参考
IFeatureLayer player ;player = pMap.get_Layer(0) as IFeatureLayer;IFeatureClass pFeatureClass;pFeatureClass = player.FeatureClass;IGeoDataset pGeoDataset;pGeoDataset = pFeatureClass as IGeoDataset;//Q转载 2009-06-18 20:17:00 · 1148 阅读 · 0 评论 -
使用空间参考对话框
IProjectedCoordinateSystem pSpatialReference;ISpatialReferenceDialog pDialog ;pDialog = new SpatialReferenceDialogClass();pSpatialReference = pDialog.DoModalCreate(true, false,false,0) asIProjectedCoo转载 2009-06-18 20:21:00 · 867 阅读 · 0 评论 -
显示打印机属性对话框 --API函数
Dim printerName As String = m_printDoc.PrinterSettings.PrinterName If String.IsNullOrEmpty(printerName) = False Then Dim hPrinter As IntPtr If OpenPrint原创 2009-06-08 00:02:00 · 1282 阅读 · 0 评论 -
导出透明背景色图片
原创 2009-05-27 17:17:00 · 1095 阅读 · 0 评论 -
要素SHAPE裁剪函数
原创 2009-05-27 17:25:00 · 529 阅读 · 0 评论 -
获取某一字段唯一值
/**//// /// 得到要素类某字段的唯一值/// /// 要素类/// 指定要得到唯一值的字段/// 唯一值字符数据public static string[] GetUniqueValue(IFeatureClass pFeatureClass,string strFld){//得到IFeatureCursor游标IFeatureCursor pCursor=pFeatureClass.原创 2009-04-21 18:00:00 · 625 阅读 · 0 评论 -
打印页面设置
Private Sub ApplyPageSetup() DIm m_document As PrintDocument = New PrintDocument() Dim pageSetup As New PageSetupDialog() pageSetup.Document = m_document Try原创 2009-04-08 12:00:00 · 671 阅读 · 0 评论 -
保存图件
说明:对pagelayout下面显示的图件(该图件已经生成)进行保存 Dim pDocument As IMapDocument = New MapDocumentClass() pDocument.Open(strDocCument) Dim pMxdContents As IMxdContents = pPageL原创 2009-04-06 15:09:00 · 431 阅读 · 0 评论 -
ArcEngine数据删除几种方法
一、 几种删除方法代码1. 查询结果中删除 private void Delete1(IFeatureClass PFeatureclass) { IQueryFilter pQueryFilter = new QueryFilterClass(); pQueryFilter.WhereClause = "objectI原创 2009-04-11 10:52:00 · 1513 阅读 · 0 评论 -
ArcEngine 唯一值查询
ArcEngine 唯一值查询关键字: arcengine 唯一值 查询 distinct 转载:http://blog.csdn.net/mydriverc/archive/2007/07/26/1709210.aspx 评论;我试验了,其实可以使用IqueryFilter.subField="distinct(FiledName)"直接Search 就行 有时我们需要读取图层中某个字段转载 2010-01-21 18:03:00 · 3935 阅读 · 0 评论