叠加分析__GIS动力站_ArcGIS|开源|虚拟地理环境|算法|工程|信息空间化|WebGIS


	处理第一、第二数据源、数据集:
	Set objDSa = Form1.SuperWorkspace1.Datasources.Item(cmbDsNameA.Text)
	Set objDSb = Form1.SuperWorkspace1.Datasources.Item(cmbDsNameB.Text)
	Set objDtA = objDSa.Datasets.Item(cmbDtNameA.Text)
	Set objDtB = objDSb.Datasets.Item(cmbDtNameB.Text)
	处理结果数据源、数据集:
	Set objDSc = Form1.SuperWorkspace1.Datasources.Item(cmbDsNameC.Text)
	Set objDtC = objDSc.CreateDataset(Trim$(txtDtNameC.Text), lDtCType, iOption)
	进行相应的叠加分析:
	bResult = objOverlayAnalyst.Clip(objDtA, objDtB, objDtC) '裁剪
	bResult = objOverlayAnalyst.Intersect(objDtA, objDtB, objDtC, bJoinAttrib) '相交
	bResult = objOverlayAnalyst.Union(objDtA, objDtB, objDtC, bJoinAttrib) '相并
	bResult = objOverlayAnalyst.Identity(objDtA, objDtB, objDtC, bJoinAttrib) '完全切割
	bResult = objOverlayAnalyst.Erase(objDtA, objDtB, objDtC) '擦除


	添加属性数据表:
	strDtName = TreeView1.SelectedItem.Text 'Dataset的名称
	Set objDS = SuperWorkspace1.Datasources(1)
	Set objDt = objDS.Datasets(strDtName)
	Set objDtVector = objDt '获取数据集
	Set objRecordset = objDtVector.Query("", True) '查询记录集
	添加并显示属性数据：
	objRecordset.MoveFirst
	lvwDtAttribute.ListItems.Add , , objRecordset.GetFieldValue(1)
	vFieldVal = objRecordset.GetFieldValue(j)
	lvwDtAttribute.ListItems(i).SubItems(j - 1) = vFieldVal
	objRecordset.MoveNext '装载下一条记录

（本文已被浏览次）

发布人：admin
推荐给好友:

上篇新闻：
下篇新闻：